Bei Excel 2007 mit ADO Laufzeitfehler
Boris
vielleicht könnt ihr mir helfen, finde darüber nichts bei Google: Ich kopiere Daten aus einer Excel-Datei per ADODB. Wenn die Quelldatei in Excel 2003 abgespeichert ist (TelListe.xls) funktioniert das ganze, sobald die Quelldatei jedoch als Excel 2007 abgespeichert ist (TelListe.xlsx), kommt ein Laufzeitfehler mit der Meldung: Die externe Tabelle hat nicht das erwartete Format. Dies passiert jedoch nur, wenn die Quelldatei geschlossen ist. Bei geöffneter Datei funktioniert es.
Viele Grüße
Sub GetDBData()
Dim oRS As Object, oConn As Object
Dim sSql As String, sFData As String
sFData = ThisWorkbook.Path & "\TelListe.xlsx"
sSql = "SELECT * FROM Teilnehmer"
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Excel 8.0;DATABASE=" & sFData
Set oRS = oConn.Execute(sSql)
ThisWorkbook.Worksheets("DB").Cells(4, 1).CopyFromRecordset oRS
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
End Sub