Office: Exceldateien öffnen, Makro ausführen, speichern, schließen

Hallo zusammen,

ich möchte, dass im Ordner Pfad das Makro "Formatieren" in jeder Datei ausgeführt wird.
Folgenden Code habe ich dazu.

Code:

Leider funktioniert das Makro so nicht. Irgendwie muss ich noch einbauen, dass jede gewählte Excelmappe zunächst geöffnet, dann das Makro ausgeführt, dann gespeichert wird.
Wie geht das?

Andernfalls könnte das Makro auch einfach jede Datei öffnen, das Format-Makro ausführen, speichern und wieder schließen.
Wer kann mir helfen?

Vorab vielen Dank.

Gruß
Wahlo

:)

 

Hallo,

so besser?

Public Sub wählendatei()

Dim vntFile As Variant
Dim pfad As String '???????????????????????
Dim objWorkbook As Workbook

With Application.FileDialog(msoFileDialogFilePicker) 'Dialog um File oder Ordner auszuwählen etc.

.Title = "Bitte wählen Sie eine Rechnungsdatei aus"
.AllowMultiSelect = True
.InitialFileName = pfad

With .Filters
If .Count > 0 Then Call .Clear 'Dialog: auszuwählende Dateiformate löschen
.Add "Excel 2010", "*.xlsx" ''Dialog: auszuwählende Dateiformate hinzufügen
.Add "Excel 2003", "*.xls"
.Add "Alle", "*.*"
End With

If .Show = -1 Then
For Each vntFile In .SelectedItems
Set objWorkbook = Workbooks.Open(vntFile)
Call Formatieren
Call objWorkbook.Close(SaveChanges:=True)
Set objWorkbook = Nothing
Next
Else

MsgBox "Keine Datei ausgewählt.", vbExclamation, "Hinweis"

End If
End With
End Sub

 

Hallo Nepumuk,

so ist es genial. Vielen dank.

Wie sähe der Code aus, wenn die Dateien jeweils nach Formatieren-Makro in einen Unterordner "bearbeitet" gespeichert werden sollen?
Sorry, ist mir erst jetzt aufgegangen, dass dies praktischer wäre.

Vorab vielen Dank.

Gruß
Wahlo

 

Hallo,

das kannst du hier angeben:
Code:

 

Hallo Nepumuk,

aber in dem Fall würde doch jede Datei immer die vorher gespeicherte überschreiben oder?
Ich müsste jeweils den Originaldateinamen beibehalten und dann in den Ordner speichern.

Geht das?

Vielen dank.
Gruß
Wahlo

 

Hallo,

und wo ist das Problem?

Code:

 

Hi,

jetzt nirgendwo mehr!!!! :-)
Vielen Dank.

Besten Gruß
Wahlo