File ist angekommen.
In Deinem File sind Überschriften. Wenn Du als Text verwenden möchtest, brauchst Du HDR=Yes.
Schau Dir dazu mal diesen Link an.
Jetzt versuchst mal folgendes:
Beobachte nachfolgenden Code bzw die Variable "v" im lokalen Anzeigefenster.
(Wenn noch nicht angezeigt wird dann im VB-Editor über Ansicht | Lokal-Fenster anzeigen lassen)
Public Sub Import()
Dim strCon As String
Dim strFile As String
Dim strSQL As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim v
strFile = "c:\Test\dta\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.CursorType = adOpenDynamic
rs.Open strSQL, cn
rs.MoveFirst
v = rs.GetRows(-1, 0)
Stop
End Sub
Hinweis: Pfad zur Datei musste natürlich an Deine Umgebung anpassen.
Der Code stoppt wie gewollt bei der Stop-Anweisung.
Folgendes dürftest jetz im Anzeigefenster sehen können.
Der Datentyp "Date" wird erkannt (trotz HDR=Yes) bzw genauso wie im obigen Link geschrieben steht.
zum Abschluß:
Du hast nun ein 2D-Array.
Kannst locker in Dein Zielfile schreiben ... 100 mal und mehr ;)
|