Fehler in Abfrage?
25.06.2006 20:36:42
Jochen
was läuft hier falsch, kann den Fehler nicht finden:
Option Explicit
Sub Query_Tabelle()
Dim RecSet As ADODB.Recordset
Dim ConString As String
ConString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Verkauf.xls;" & _
"Extended Properties=Excel 8.0;"
Dim SQL As String
SQL = "SELECT * FROM [Verkauf$]"
Set RecSet = New ADODB.RecSet
On Error GoTo ERRH
Call RecSet.Open(SQL, ConString, _
CursorTypeEnum.adOpenForwardOnly, LockTypeEnum.adLockReadOnly, _
CommandTypeEnum.adCmdText)
Call Tabelle1.Range("A1").CopyFromRecordset(RecSet)
ERRH:
If Err.Number <> 0 Then Debug.Print Err.Description
If RecSet.State = ObjectStateEnum.adStateOpen Then
RecSet.Close
End If
Set RecSet = Nothing
End Sub
Grüße Jochen