Hallo @ all,
ich habe folgendes Problem. Mein Ziel ist es, eine CSV Datei in eine Tabelle hineinzubekommen. Soweit so gut habe ich alles was Schwerpunkt CSV Datei in Excel zu bekommen über den Makrorekorder aufgezeichnet. Das sieht dann wie folgt aus:
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\(und weiterführend der entsprechende Dateipfad)" _
, Destination:=Range("$A$1"))
.Name = "Christian"
.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 = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 4, 2, 2, 2, 9, 9, 1, 9, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Soweit so gut hab ich damit auch kein Problem in der Funktionsweise dieses Makros. Jetzt ist es aber so, dass die CSV Datei automatisch gespeichert wird in abhängigkeit vom entsprechenden Tagesdatum als Dateinamen. Somit ändert sich immer wieder der Dateiname und folglich ist das Makro unbrauchbar. Mir ist soweit klar, denn Pfad ändern zu müssen in Abhängigkeit an das entsprechende Datum. Es wird auch sicherlich eine Lösung in der Umgebung von VBA dazu geben. Aber für meine persönliche Übersicht möchte ich gerne den Dateipfad in eine Zelle auslagern. Dort habe ich auch keine weiteren Probleme den dementsprechend den Pfad an das aktuelle Datum automatisch ändern zu lassen. Mein Problem ist vielmehr wie ich es schaffen kann, aus dem im Makro aufgezeichneten Dateipfad in eine Zelle auszulagern. Ich hoffe ich konnte mein Problem zielgenau beschreiben.
|