ich möchte eine Datei importieren, deren Pfad ich in einer Zelle angebe. Diese Datei soll in die geöffnete Excel Mappe importiert werden. Ich habe ein Makro aufgezeichnet aber es ist beweglich wie ein Stein.
Vielleicht reicht schon ein Befehl wie ich in dem Makro den Dateipfad variabel gestalten kann. Ich habe schon sehr viel im Forum gesehen aber noch nicht das passende gefunden. Cracks werden lachen aber ich verzweifle...
Gruß Daniel
Sub Makro1()
' Makro1 Makro
' Makro am 05.03.2009 aufgezeichnet
ActiveWindow.SmallScroll Down:=-10
Cells.Select
Selection.ClearContents
'Selection.QueryTable.Delete
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;J:\NCdiag\V9.ST1", _
Destination:=Range("A1"))
.Name = "V9"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = " "
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub