nachdem ich in letzter Zeit viele nette Informationen aus euren Forumsbeiträgen bekommen habe, möchte ich nun auch einmal eure Hilfe in Anspruch nehmen.
Szenario: Ich möchte eine *.csv-Datei einlesen. Meine CSV-Datei hat aufgrund des Exports aus einem anderen System immer einen festen Teil des Dateinamens und danach einen Bindestrich mit einer Zahlenkombination.
Also z.B. Dateiname = "Excelliste" & "-" & "5646468768(beliebig)" & ".csv"
Diese Datei liegt immer im gleichen Ordner und hat immer den gleichen Dateinamen, lediglich die Zahlenkombination am Ende variiert. Über einen Button möchte ich durch einen einfachen klick die *.csv Datei einlesen. Nun stehe ich vor dem Problem, dass ich die Zahlenkombination am Ende in meinem Code nicht beliebig gestalten kann. Ich weiß, dass es bei dem "Like"-Operator den Stern( * ) für ein beliebiges Zeichen im String gibt, allerdings habe ich in diesem Kontext nichts dazu gefunden bzw. habe falsch recherchiert.
Jetzt meine Frage: Wie gestalte ich zum Einlesen das Ende meines Dateinamens ab dem festen Teil als variabel?
Mein Code besteht bis jetzt nur aus dem aufgezeichneten Teil vom Makrorekorder.
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Daten\Excelliste-20170211121450958.csv" _
, Destination:=Range("$A$1"))
.Name = "Excelliste-20170211121450958"
.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 = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Ich hoffe es ist alles verständlich.
Grüße,
Simon