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