ich möchte aus Access eine Tabelle per VBA (ADODB) in eine Excel Tabelle einlesen.
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim SQL As String
If cnn.State = adStateOpen Then Db.Close
cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;Extended Properties=DSN=MS Access 97-Datenbank;DBQ=blabla;DefaultDir=blabla;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;PWD=blabla;UID=admin"
cnn.CursorLocation = adUseClient
cnn.Open
SQL = "SELECT * INTO [Tabelle1$] IN " & _
" 'Excel 8.0;database=Pfad+Name.xls';" & _
" FROM TAbelle"
cnn.Execute SQL
cnn.Close
Aber conn.Execute funktioniert nicht. Irgendwas ist an meinem String falsch. Kann mir Bitte jemand helfen!!
MFG Thomas