ich habe einen csv-Import aufgezeichnet. Das Ergebnis u.a.
Sub Makro4_CX()
Workbooks.add
With ActiveSheet.QueryTables.add(Connection:= _
"TEXT;C:\Users\Peter\Desktop\Text importieren Testb\00Orginaldateien\00Kopierer1csv\ _
Kopierkosten_Halbjahr_2015_16_DC2455.csv" _
, Destination:=Range("$A$1"))
.Name = "Kopierkosten_Halbjahr_2015_16_DC2455"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.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)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Windows("Test2xml.xlsm").Activate
End Sub
Nun das Problem:Connection:="TEXT; hier eine Variable Daten aus "Test2xml.xlsm"
und .Name =" ebenfalls aus "Test2xml.xlsm
Die csv-Dateien befinden sich im selben Ordner anderes Unterverzeichnis wie die "Test2xml.xlsm"-Datei. In der Test2xml.xlsm-Datei befinden sich die Namen aufgelistet.
Danke für Eure Hilfe.
Gruss Peter