Unter Office 365 und mit folgendem Code:
Public Sub test()
Dim strCon As String
Dim strFile As String
Dim strSQL As String
Dim cn As Object
Dim rs As Object
'strFile = "dta.xls"
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1"";"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon
strSQL = "SELECT * FROM [Tabelle1$]"
rs.Open strSQL, cn
Debug.Print rs.GetString
End Sub
Erhalte Ich diese Ausgabe:
17:08:05 1
17:09:29 2
17:55:53 2
18:14:00 2
19:02:27 2
19:02:27 2
19:02:27 2
19:02:27 2
Die Mappe ist als xlsm (nicht .xls (!)) gespeichert.
Die benutzerdefinierte Zellformatierung: hh:mm:ss
|