Hi,
folg. Code liefert mir ein falsches Ergebnis:
Public Sub test()
Dim strFile As String
strFile = "dta.xls"
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 12.0;HDR=Yes;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
Ergebnis mit HDR = Yes: Uhrzeit richtig, dafür CellId weg!!! Darum auf Header=No - habe keine Möglichkeit in der Registry den Wert zu ändern!
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
19:02:27
Ergebnis mit HDR = No: Man sieht gleich, dass die Uhrzeit falsch übergeben wird!!! Dafür ist die CellId vorhanden!
Uhrzeit CellId
17/01/05 1
17/01/29 2
17/01/53 2
18/01/00 2
19/01/27 2
19/01/27 2
19/01/27 2
19/01/27 2
19/01/27 O003030LAC010282CEN
dta.xls:
Uhrzeit |
CellId |
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 |
19.02.27 |
O003030LAC010282CEN |
Uhrzeit als Benutzerdefiniert hh.mm.ss angeliefert
Jemand eine Ahnung?
Danke
|