Syntaxfehler, aber wo?
12.01.2005 21:04:32
Werner
es wird immer ein Fehler angemeckert, wer sieht, wo der Fehler ist?
Verkauf.xls ist die geschlossene Quellmappe.
Option Explicit
Public
Sub Worksheet_SQL()
Dim Recordset As ADODB.Recordset
Dim ConnectionString As String
Dim SQL As String
'Hier kommt die Fehlermeldung----------------------------
ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0" & _
"Data Source=" & ThisWorkbook.Path & "\Verkauf.xls" & _
"Extended Properties=Excel 8.0"
SQL = "SELECT * FROM [Verkauf$]"
Set Recordset = New ADODB.Recordset
On Error GoTo ErrHandler
Call Recordset.Open(SQL, ConnectionString, _
CursorTypeEnum.adOpenForwardOnly, LockTypeEnum.adLockReadOnly, _
CommandTypeEnum.adCmdText)
Call Tabelle1.Range("A1").CopyFromRecordset(Recordset)
ErrHandler:
If Err.Number <> 0 Then MsgBox Err.Description
If Recordset.State = ObjectStateEnum.adStateOpen Then Recordset.Close
Set Recordset = Nothing
End Sub
mfg Werner
Anzeige