So speichern Sie das aktuelle Blatt als Arbeitsmappe auf dem Desktop mit Datum und Uhrzeit in vba

Question

Ich möchte das aktuelle Blatt als separate Arbeitsmappe auf dem Desktop mit Datum und Uhrzeit im neuen Arbeitsmappen-Namen speichern.

Wie kann ich es speichern?

Answer 1

Wir können den folgenden Code verwenden, um das aktuelle Blatt auf den Desktop als Arbeitsmappe mit Datum und Uhrzeit im Namen zu exportieren.

Sub Expo() 

    Application.ScreenUpdating = False 

    'Get path for desktop of user PC 
    Path = Environ("USERPROFILE") & "\Desktop" 
    Sheet1.Cells.Copy 

    'Create new workbook and past copied data in new workbook & save to desktop 
    Workbooks.Add (xlWBATWorksheet) 
    ActiveWorkbook.ActiveSheet.Paste 
    ActiveWorkbook.ActiveSheet.Name = "report" 
    ActiveWorkbook.SaveAs Filename:=Path & "\" & "report " & Format(CStr(Now()), "dd-mmm (hh.mm.ss AM/PM)") & ".xlsx" 
    ActiveWorkbook.Close SaveChanges:=True 

    Application.ScreenUpdating = True 

    MsgBox "Exported to Desktop" 

End Sub