Ich möchte eine Datei importieren (externe Daten laden) und diese in excel bearbeiten.
Dies alles soll durch einen Befehl über VBA geschehen.
Dazu habe ich ein Makro aufgezeichnet um die Datei zu importieren.
Sub Optimierung()
' Optimierung Makro
' TEXT;G:\Dokumente und Einstellungen\Andreas\Desktop\28.09.04\Optimierung.txt
Sheets("Interplanetar_Einlesen").Select
Columns("A:G").Select
Selection.ClearContents
Selection.QueryTable.Delete
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Sheets("Interplanetar").Cells(11, 3)" _
, Destination:=Range("A1"))
.name = "Optimierung_15"
.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 = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = " "
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("A:G").Select
Range("G1").Activate
Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1:G1").Select
Range("G1").Activate
Selection.Copy
Range("H1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Dabei steht die Zeile
' TEXT;G:\Dokumente und Einstellungen\Andreas\Desktop\28.09.04\Optimierung.txt
bei der Aufzeichnung an der Stelle von
TEXT;Sheets('Interplanetar').Cells(11, 3)
Letztere habe ich eingefügt, da ich den Anwender des VBA-Programmes den Pfadnamen der einzulesenden Datei eingeben lassen will.
Die Eingabe geht in eine Zelle (C11) auf der Arbeitsmappe Interplanetar.
wenn ich nun dieses Makro abspiele erkennt es die Datei nicht...
woran kann dies liegen?