Excel VBA Otwórz skoroszyt, wykonaj działania, zapisz jako, zamknij
To pytanie zostało zredagowane z powodu długich komentarzy i aktualizacji proponowanych odpowiedzi.
Zgodnie z żądaniem tutaj jest moduł 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
Są też problemy z obsługą błędów, wiem, że się z tym pomyliłem, ale bardziej interesuje mnie ustalenie funkcji zamykania w chwili, gdy do niej wejdę. Oto kod obsługi błędów, który wymaga trochę pracy
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
to jest twój kod testowy plus moja zmiana ścieżki i nazwy pliku