Dateinamen mit beliebiger Zahlenfolge am Ende

Hallo liebe Leute,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim strDatei As String Dim strPfad As String strPfad = "C:\Daten\" ' strDatei = Dir(strPfad & "Excelliste-?.csv") 'immer gleiche Anzahl Ziffern _ (17) strDatei = Dir(strPfad & "Excelliste-*.csv") 'variable Anzahl Ziffern If strDatei = "" Then MsgBox "Keine Datei """ & strPfad & "\Excelliste-*.csv"" gefunden" Else With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;" & strPfad & strDatei, Destination:=Range("$A$1")) .Name = Left(strDatei, Len(strDatei) - 4) .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 If End Sub

Hallo Simon,
die Version ohne Varaiblen müsste etwa wie folgt aussehen.
Allerdings bevorzuge ich die Version mit Variablen, da sie übersichtlicher ist und auch einfach für andere Projekte verwendet werden kann.
Ich habe nicht erwähnt, dass ich diese Liste täglich benutze. Dabei wird ja jedes mal eine Dateiverknüpfung zu der *.csv Datei hinterlegt und auch ein Name mit dem Datenbereich definiert. Bekomme ich hier irgendwann Probleme wenn eine bestimmte Anzahl an Namen/Dateiverknüpfungen überschritten/erreicht wird?

Ich hab keine Ahnung bei welcher Anzahl an Verbindungen Excel streikt.
Den Name kann ich ja einfach beim Einlesen über Name.Delete entfernen.
Bei Dateiverknüpfungen weiß ich allerdings nicht wie das auszusehen hat.
....
Wie kann ich nun die Links entfernen bzw. ansprechen?

Mit den folgenden Anweisungen im Anschluß an den Daten-Import kannst du die Abfrage die erstellte Querytable direkt wieder löschen. Siehe auch unten bei der Variante ohne Variablen.

    'Datenverbindung und QueryTable wieder löschen
With ActiveSheet.QueryTables(1)
.MaintainConnection = False
.WorkbookConnection.Delete
.Delete
End With

Um alle Verbindungen einer Arbeitsmappe zu killen hilft folgendes:

Sub Loeschen_AlleVerbindungen()
Dim objCon As Object
If Msgbox("Alle Verbindugen in Arbeitsmappe löschen?", _
vbOKCancel,"Verbindungen")=vbCancel then Exit Sub
For Each objCon In ActiveWorkbook.Connections
objCon.Delete
Next
End Sub

LG
Franz


Sub Test_ohne_Vars()
If Dir("C:\Daten\Excelliste-*.csv")  "" Then
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & "C:\Daten\" & _
Dir("C:\Daten\Excelliste-*.csv"), _
Destination:=Range("$A$1"))
.Name = "MeinDatenimportxxx"
.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
'Datenverbindung und QueryTable wieder löschen
With ActiveSheet.QueryTables(1)
.MaintainConnection = False
.WorkbookConnection.Delete
.Delete
End With
Else
MsgBox "CSV-Datei nicht gefunden"
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Dateinamen mit beliebiger Zahlenfolge am Ende

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateinamen mit beliebiger Zahlenfolge am Ende

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread