VBA2010 wenn dateiname dann makro
17.01.2013 09:46:25
Rene
ich habe einen Pfad, wo nur jene Dateien geöffnet werden sollen, die mit "BK" beginnen. Dann soll für all diese geöffneten "BK"-Dateien ein Makro durchlaufen, die BK-Dateien sind alle gleich aufgebaut. Nachdem das Makro durchgelaufen ist, soll die Datei unter dem Format .csv gespeichert und geschlossen werden. Am Namen ändert sich nix, Bsp. Dateiname = BK2314.csv.
Wie muss ich den Code anpassen?
Sub Dateien_öffnen()
Dim Datei As String
Dim PFAD As String
PFAD = "C:\Temp\" 'Pfad anpassen
Datei = Dir(PFAD & "*.xlsx") 'ggf. Dateiextension anpassen
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While Datei ""
Application.Workbooks.Open Datei
Call Aufbereiten 'Makro laufen lassen
ActiveWorkbook.Close True
Datei = Dir() 'nächste Datei
Workbook
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Rene