ActiveSheet.QueryTables.Add
19.11.2004 12:14:42
Russi
Ich möchte eine Textdatei per Datenbankabfrage einlesen. Leider erwartet die Abfrage Spaltenüberschriften, die in der Textdatei nicht vorhanden sind. Dies hat zur Folge, dass in meiner Excel-Tabelle immer die erste Zeile / der erste Datensatz fehlt.
Kann man Excel irgendwie beibringen, dass meine Datenbank keine Überschriften enthält und dass die erste Zeile = dem ersten Datensatz ist?
Vielen Dank für jeden Tipp!!!!
Viele Grüße
Russi
www.Russi.de.tt
Hier mein Makro:
Sub TXT_Abfrage()
With ActiveSheet.QueryTables.Add( _
Connection:="ODBC;DSN=Text-Dateien;DefaultDir=" _
& ThisWorkbook.Path & ";DriverId=27;MaxBufferSize=2048;PageTimeout=5;", _
Destination:=Range("A2"))
.Sql = Array("SELECT * FROM db.txt db")
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = False
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With
End Sub