現在のシートをvbaの日付と時刻のデスクトップにワークブックとして保存する方法

Question

現在のシートを別のワークブックとして、日付と時間を新しいブック名でデスクトップに保存します。

保存するには？

Answer 1

現在のシートを日付と時刻の名前のワークブックとしてデスクトップにエクスポートするには、次のコードを使用します。

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