Excel VBA Arbeitsmappe öffnen, Aktionen ausführen, speichern unter, schließen
Diese Frage wurde aufgrund langer Kommentare und Aktualisierungen der vorgeschlagenen Antworten bearbeitet.
Wie hier angefordert ist Modul 13;
Sub SaveInFormat()
Application.DisplayAlerts = False
Workbooks.Application.ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data\" & Format(Date, "yyyymm") & "DB" & ".xlsx", leFormat:=51
Application.DisplayAlerts = True
End Sub
Es gibt auch Probleme mit der Fehlerbehandlung. Ich weiß, dass ich einen Fehler gemacht habe, aber ich bin mehr daran interessiert, die Schließfunktion zu reparieren, bevor ich damit anfange. Hier ist der Fehlerbehandlungscode, der einige Arbeit benötigt
Sub test()
Dim wk As String, yr As String, fname As String, fpath As String
Dim owb As Workbook
wk = ComboBox1.Value
yr = ComboBox2.Value
fname = yr & "W" & wk
fpath = "C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data"
owb = Application.Workbooks.Open(fpath & "\" & fname)
On Error GoTo ErrorHandler:
ErrorHandler:
If MsgBox("This File Does Not Exist!", vbRetryCancel) = vbCancel Then Exit Sub Else Call Clear
'Do Some Stuff
Call Module13.SaveInFormat
owb.Close
Dies ist Ihr Testcode und meine Änderung des Dateipfads und -namens