ich recherchierte schon stundenlang im Archiv nach diesem Betreff - wurde aber nicht so recht fündig.
Ich möchte Daten aus einer csv-Datei in eine xl-Mappe importieren - der Haken ist allerdings, daß der Name der csv-Datei ständig wechselt.
Aus der Bezeichnung "Abc_123456789_080801_080817.csv" sind stets nur die Zeichen bis zum 2. Unterstrich konstant u. es ist die einzige csv, die sich im selben Ordner wie die xls befindet...
Notdürftig habe ich mir zunächst mit dem Archiv-Code für die jüngste csv-Datei beholfen u. bis dahin ist alles auch flexibel.
Allerdings stosse ich sehr schnell an meine Grenzen, wenn es darum geht:
-- Auch der 3. Code soll flexibel gestaltet werden.
-- Der 2. Code funzt zwar perfekt - ich habe ihn nur beigefügt, damit ihr seht, wie ich zu dem Dateinamen komme - den ich auch in A1 in der xls eintrage (s. Mitte des 2. Codes).
-- Richtig knifflig wird das Ganze dann im 3. Code.
Eigentlich wollte ich diesen Zellinhalt von A1, dann später auch im 3. Code benutzen u. am Ende auch wieder im 1. Code (nach dem 2. CALL) zum Schliessen der csv...
Ich suche also nach einer Möglichkeit, sich auf diese Zelle A1 zu beziehen (dort steht der volle csv-Name) oder. mittels Platzhaltern ( "Abc_123456789_*.csv") die Makros flexibel zu halten.
(So könnte das 2. Makro evtl. größtenteils überflüssig werden...)
VB-Code: | ||||
Private Sub CommandButton1_Click() 'csv-Import 'Dim DateiName As String Dim Auswahl As Range Application.ScreenUpdating = False Call juengste_Datei '****hier wird der csv-Dateiname ermittelt If [A1] = "" Then Exit Sub [a2].Activate [a2].PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Call format_Tableau '****auch hier wird der csv-Dateiname benötigt '****jetzt soll die csv-Datei geschlossen werden (meine vergebl. Versuche) 'Set DateiName.Value = [a1] 'Workbooks("DateiName").Close Application.ScreenUpdating = True Set Auswahl = Nothing End Sub
AW: Platzhalter fuer Dateiname
Rudi
Hallo, wenn es die einzige .csv im Ordner ist: strDateiName=Thisworkbook.path &"\" &dir(Thisworkbook.path &"\" &".csv") Gruß Rudi |