KML File über Externe Daten als Text einlesen
29.11.2013 12:53:56
Wilhelm
ich habe eine große Menge an KML-Files, welche ich über ein Makro automatisiert einlesen und mir daraus bestimmte Werte auslesen möchte. Dazu habe ich mir über den Markorekorder das Einlesen einer solchen Datei aufgezeichnet. Beim direkten Aufruf über Excel (nicht Makro) funktioniert dies, aber wenn ich das identische Marko dazu aufrufe, dann erhalten ich immer eine Laufzeitfehler 5 - Ungültiger Prozeduraufruf ungültiges Argument.
Anbei der entsprechende Codeausschnitt:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Test.kml" _
, Destination:=Range("$A$1"))
.CommandType = 0
.Name = "Test"
.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 = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
Hat jemand eine Idee, wie ich das Problem lösen kann?
Vielen Dank
Gruß Wilhelm