sql-max-abfrage, accesszugriff auf xls-datei
08.11.2008 23:10:00
Guenneisen
ich muss von access auf mehrere xls-dateien zugreifen...funktioniert soweit auch alles, nur bei der SQL-Max-Abfrage scheitert es...
anbei mal der Code...mit der SQL-Abfrage würde natürlich der erste Datensatz im Direktfenster ausgewiesen...
es soll aber in dem Fall der älteste Mitarbeiter sein, die Spalte heisst "Alter"...aber bei:
Select Max (Alter) from [Liste$]
meckert der Compiler...
hoffe, Ihr könnt mir helfen:
Public Sub Problem()
Dim Cnn As ADODB.Connection
Set Cnn = New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqlabfrage As String
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=E:\Ordner\Mitarbeiter.xls;" & _
"Extended Properties=""Excel 8.0;HDR:=YES;"";"
.Open
End With
With rs
.ActiveConnection = Cnn
.Source = "[Liste$]"
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With
sqlabfrage = "Select * from [Liste$]"
rs.Open sqlabfrage, Cnn, adOpenStatic, adLockReadOnly, adCmdText
Debug.Print rs!Vorname & vbTab & rs!Name & vbTab & rs!Alter & vbTab & rs!G
Cnn.Close
End Sub