verstehe den code nicht :-(
12.08.2007 20:45:00
thorsten1896
meine Tabeles heisst: Serie_Start
wenn ich eine Table habe, und der name ein _ hat, weiter.
If InStr(cat.Tables(i).Name, "_") And cat.Tables(i).Type = "TABLE" Then
'sqlString = "SELECT ... *... FROM " & cat.Tables(i).Name
öffne meine sqlString bla bla bla.
aktuellerRec.Open sqlString, Arbeitsmappe.verbindung, adOpenStatic, adLockReadOnly
jetzt kommt mein Problem: Das ergebnis, meines SQLStrings wird replaced in Serie.Strat. und einer datumsfunktion zugewiesen. hier kracht es und ich bekomm eine Fehlermeldung, falscher Typ.
datum = Replace(cat.Tables(i).Name, "_", ".")
ws.Cells(diagrammDaten, 1).Value = datum
...
...
eigentlich müsste ich nun ein Tables aufrufen die irgendwas mit einem Datum zu tun hat?
der code kommt von einem Vorgänger, leider kann ich ihn nicht erreichen.