ループ処理でエクセルを保存 ■デスクトップのパスを自動取得Dim WSH As Object Set WSH = CreateObject("Wscript.Shell") Dim DesktopPath As String DesktopPath = WSH.SpecialFolders("Desktop") Set WSH = Nothing ■日付 'YYYYMMDD1, YYYYMMDD2を宣言 Dim…