connection zwischen mdb xls dateien...

[maxmustermann]

also ich hab 2 fragen:

1. ich will in einer datei überprüfen welche tabellen vorhanden sind, welche attribute usw..

das ganze mache ich so:
Dim con As ADODB.Connection
Dim cat1 As New ADOX.Catalog

Set con = CurrentProject.Connection
Set cat1.ActiveConnection = con

MsgBox cat1.Tables(5).Columns(0).Name

dann gibt er mir zb das 1. attribut einer bestimmten tabelle aus..

jetzt will ich das ganze in einer externen datenbank kontrollieren!

wie soll ich da jetzt die connection aufbaun? hat da wer ne ahnung?



2. ich hab ein modul geschrieben, was mir folgendes problem bereitet:
ich greife im modul auf ein excel file zu, und hole mir aus diesem immer daten, und kontrolliere bestimmte felder darin usw..

jedoch hab ich das problem das sich meiner meinung nach irgendwie die connection oder so nicht schliesst, da es vorkommen kann dass man nach dem ausführen kein excel file mehr direkt aufmachen kann!

nur noch wenn man excel aufmacht, und dann datei / öffnen..
wenn man direkt ne datei aufmacht, dann öffnet sich zwar excel, aber man sieht nur die obere leiste und unten die leiste.. in der mitte wo die datei dargestellt ist, bleibts leer..

ich bau die connection so auf:

Dim conExcel As New ADODB.Connection

Dim Excel As Object
Dim Sheet As Object
Dim rngSearch As Object
Dim rngFound As Object

Set Excel = GetObject(pfad)
Set Sheet = Excel.Sheets.Item("input")
Set rngSearch = Sheet.Range("A1:IV5000")
Set rngFound = rngSearch.Find("ric")

With conExcel
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties").Value = "Excel 8.0"
.Open pfad
End With

das sind alle verbindungen die ich mit excel ausführe..
woran kanns liegen?
fehlt einfach nur ein conexcel.close oder was?
hab ich glaub ich aber schon probiert und ging nicht..