Makro Daten über eine ODBC Datenquelle im Netz Daten auslesen.
Excel importiert aber leider nur die erste Zeile, was ist am Code
falsch ?
########################################
Private Sub Workbook_Open()
'Liest die ISH Daten ein
On Error Resume Next
ActiveSheet.QueryTables("BESTAND").Refresh
If Err.Number > 0 Then 'Falls Query noch nicht existiert...
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DBQ=G:\INPULS;DefaultDir=G:\INPULS;Driver={Microsoft Text-Treiber (*.txt; *.csv)};DriverId=27;Extensions=txt;FIL=te" _
), Array( _
"xt;ImplicitCommitSync=Yes;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=" _
), Array("Yes;")), Destination:=Range("A2"))
.Sql = Array( _
"SELECT BESTAND.`PAT-NUMMER`, BESTAND.`PRÜFZIFFER 1`, BESTAND.FALLNUMMER, BESTAND.`PRÜFZIFFER 2`, BESTAND.VORNAME, BESTAND.NAME, BESTAND.`ISH-OE`, BESTAND.NUMMER, BESTAND.DATUM, BESTAND.LAST" & Chr(13) & "" & Chr(10) & "FROM BESTAND.txt BESTAND")
.Name = "BESTAND"
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
End If
###########################
Gruß Ingo