Workbook mit variablen Namen oeffnen

Hallo zusammen,
ich bins nochmal und versuch mich jetzt auch praeziser auszudruecken.
Ich habe eine vorhandene Excel-Datei in der mein komplettes Macro drin ablaeuft.
Die Daten kopier ich im Moment noch von Hand dort hinein.
Das Rohdaten befinden sich in einer csv-Datei im gleichen Ordner wie die Makrodatei.
Jetzt die Frage, kann ich Dateien automatisch aus der csv-Datei in meine vorhandene Makrodatei kopieren, auch wenn sich der Name der csv-Datei aendert.
Da es die einzige andere Datei in diesem Ordner ist (und auch die einzige csv-Datei), kann man da einfach sagen "suche die csv-Datei" im Ordner in dem wir uns befinden und kopiere die Daten des ersten Tabellenblatts daraus?
Oder gibt es die Moeglichkeit die Datei nur mit einem Teil des Namens anzusprechen,
also *AK_RP* weil das findet sich in allen Namen gleich wieder. Ziffern die vor AK und nach RP stehen aendern sich leider immer.
Danke schon mal fuer eure Hilfe
GLG
Nisi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DateienSuchen() ' Quelle: http://www.office- _ loesung.de/ftopic369121_0_0_asc.php Dim Dateiname, Pfad, Gefunden As String Pfad = ActiveWorkbook.Path & "\" Dateiname = Dir(Pfad & "*.csv") Do While Dateiname "" ' MsgBox "Ergebnis: " & Pfad & Dateiname Gefunden = Pfad & Dateiname Dateiname = Dir() Loop MsgBox "Ergebnis: " & Gefunden ' Workbooks.Open Filename:=Gefunden ' usw. evtl. "Text in Spalten" ausführen, ' kopieren, einfügen, schließen End Sub

Dim wb As Workbook Set wb = ThisWorkbook Dim wks As Worksheet Set wks = Worksheets("Raw") Application.DisplayAlerts = False Application.ScreenUpdating = False Application.EnableEvents = False Dim rawdata, rawpath, rawfile As String rawpath = ActiveWorkbook.Path & "\" rawdata = Dir(rawpath & "*.csv") rawfile = rawpath & rawdata rawdata = Dir() Workbooks.Open Filename:=rawfile Application.ScreenUpdating = False ActiveWorkbook.Worksheets(1).UsedRange.Copy 'Hier sollen die markierten Daten in das Tabellenblatt "Raw" in diese Datei(wb.wks) kopiert _ werden ActiveWorkbook.Close savechanges:=False Application.ScreenUpdating = True

Hallo Nisi,
freut mich, wenn es so weit funzt. Du hast leichte Änderungen vorgenommen, wie ich sehe. Die Zeile
rawdata = Dir()
solltest Du rausnehmen können, wenn Du rawdata hinterher nicht mehr brauchst.
Letztlich hast Du auf die Schleife verzichtet, was dazu führt, daß Du nur die jeweils erste .CSV öffnest.
In meinem Beispiel war keine Fehlerabfrage drin, aber grundsätzlich sollte eine rein, etwa in Form einer Abfrage direkt nach der Zeile "rawdata = Dir(rawpath & "*.csv")", nämlich if rawdata="", falls nichts zurückgeliefert wird. Klar, es kommt darauf an, wer letztlich mit dem Makro arbeiten soll. Falls Du es nur selbst bist, ok, aber falls nicht, wäre ne Fehlermeldung und entsprechendes handling ganz nett, zumal Du alles mögliche abgeschaltet hast.
Ich habe Deinen Code nochmal erweitert, wiederum ohne Fehlerhandling, aber er funktioniert mit meinem Dateinamen. (Ganz glücklich bin ich nicht damit, derweil er wenig elegant aussieht, aber was soll's.)

Sub nisi()
Dim wb As Workbook
Set wb = ThisWorkbook
Dim wks As Worksheet
Set wks = Worksheets("Raw")
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim rawdata, rawpath, rawfile As String
rawpath = ActiveWorkbook.Path & "\"
rawdata = Dir(rawpath & "*.csv")
rawfile = rawpath & rawdata
' rawdata = Dir()
Workbooks.Open Filename:=rawfile
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets(1).Range("A1").CurrentRegion.Copy
Windows("PfadTest.xlsm").Activate
' hier rein eben Dein Dateiname
Worksheets("Raw").Activate
Range("A1").Select
ActiveSheet.Paste
Windows(rawdata).Activate
ActiveWorkbook.Close savechanges:=False
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Genau, weil ich Deine DIMs nicht verwendet habe. Nachdem ich schon mal den Fall hatte, daß usedrange unerwartete Ergebnisse erzeugt hat, habe ich currentregion verwendet. Geschmackssache.
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Workbook mit variablen Namen oeffnen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread