Excell Import
Excell Import
Hallo,
da mir das reicht die Logdaten in Excell zu betrachten, hab ich mir ein Excell Sheet erstellt und mit der Makrofunktion soweit bearbeitet, dass ich ein Logfile einlesen kann.
Dies wird dann in Spalten dargestellt und jeweils mit der Autofilterfunktion belegt.
Was ich aber nicht hin bekomme ist, dass bei aufrufen der Log Datei, der Dateiexplorer erscheint.
D.h. ich kann nur eine Datei mit einem bestimmten Namen aufrufen, nicht jedoch die Datei mit dem Expl. aufrufen.
Wer hat Ahnung von VBA und kann mir das einbauen?
@ Mod: wenn das nicht hier rein passt, bitte verschieben:
Code:
Sub Logdatei()
'
' Logdatei Makro
'
'
Rows("7:3000").Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Log.csv" _
, Destination:=Range("$A$7"))
.Name = "SM GPS 2 Logdatei"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
Rows("7:7").Select
Selection.AutoFilter
Columns("A:AA").EntireColumn.AutoFit
Range("A2").Select
End With
End Sub