Daten importieren
Engin
ich habe ein Problem mit dem unten stehenden Code, undzwar befindet sich der button in Tabelle1 und möchte den code (LOG-Datei importieren) für Tabelle 2 durhlaufen lassen, geht aber nicht sondern nur für Tabelle 1. Was muss ich verändern?
Private Sub CommandButton1_Click()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\Engino\Desktop\Fahrzeugdynamik_Test\Online\ _
NMEA_Gruppe1.LOG" _
, Destination:=Sheets("Tabelle2").Range("A1"))
.Name = "NMEA_Gruppe1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Grüße Engin
Anzeige