ich arbeite gerade an einer XLAM, mit der u.a. Daten nach bestimmten Kriterien aus einem Arbeitsblatt in ein anderes Arbeitsblatt der gleichen Mappe übertragen werden können. Hierzu will ich den Jet 4.0 OLEDB-Treiber benutzen.
Das Programm soll so ablaufen:
Das SQL-Statement lautet: "INSERT INTO [NEUETABELLE$] SELECT * FROM [TABELLE1$] WHERE FELD1='Bla'"
Im Trockenen ausprobiert, funktionert das alles zuverlässig, wenn die Zieltabelle vorher schon manuell abgelegt wurde. Versuche ich nun die Zieltabelle mittel VBA anzulegen und anschließen mit
Public Sub V2ExecStatement(SQLStr, sfile)
Dim raff As Long
Datenverbindung sfile
Set Cmd = New ADODB.Command
With Cmd
.ActiveConnection = Cnn
.CommandType = adCmdText
.CommandText = SQLStr
.Execute raff
Debug.Print raff
End With
Cnn.Close
Set Cnn = Nothing
Set Cmd = Nothing
End Sub
zu befüllen, erhalte ich die Fehlermeldung "Das Datenbankmodul kann 'NEUETABELLE$' nicht finden....."
Wo liegt da der Denkfehler?
Gruß Hubert