vielleicht ist der Threadtitel nicht ganz passend, aber ich wußte nicht, wie ich es sonst nennen soll.
Und zwar geht es um folgendes Problem. Ich bastle gerade an einem Excel-Makro zum Öffnen von CSV-Dateien. Ich wollte mit dem GetOpenFilename-Dialog mehrere Dateien auf einmal öffnen und zwar, wenn ich im Feld „Dateiname“ eine Zahl z.B. „2006“ eingebe, sollen alle Dateien die mit „2006“ anfangen geöffnet werden. Meine Frage lautet, ob dies überhaupt möglich ist? Wenn ja, wäre ich sehr dankbar, wenn mir jemand helfen könnte.
ich habe was ähnliches hier mal gemacht um Text dateien zu öffnen.
Dazu habe ich das Verzeichnis ausgelesen, in einen array zwischengespeichert und dann nacheinander die text files geöffnet.
Code ist angefügt, Du müßtest entsprechend auf csv datei abändern.
Gruß
Frank
Sub ZZZZ_Dateienoffnen_1()
Dim neudatei
Dim FileArray()
Dim i%, n%
Dim Ordner$, Extension$, dName$
Ordner = „C:\data“
Extension = „2006*.txt“
ChDrive Left(Ordner, 1)
ChDir Ordner
dName = Dir(Extension)
Do While dName „“
n = n + 1
ReDim Preserve FileArray(1 To n)
FileArray(n) = Ordner & „“ & dName
dName = Dir()
Loop
For i = 1 To n
Workbooks.OpenText Filename:=FileArray(i), Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Next
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]