EXCELマクロとバッチファイルを1つに纏めて起動

質問

大変お世話になっております。
今回は、EXCELマクロとバッチファイルを１つに纏めて、タイムスケジューラで自動実行したいのですが、やり方が分からず困っております。バッチファイルも手動なら正常起動出来ております。
EXCELのマクロもタイムスケジューラで起動出来ております。
バッチファイルでEXCELを起動させるとか、EXCELのマクロの中でバッチファイルを起動させるやり方とかネットで調べて見ましたが、いざ設定となるとどうすべきなのか分からなくなっています。それぞれのバッチファイルとEXCELのマクロを下記へ記載させて頂きました。
下記へ記載した順番で実行したいです。何方か、お分かりでしたらご教示を頂けますと大変助かります。
【入力データ再コピー.bat】
rmdir /s /q C:\Users\watan\Documents\27_EXCEL教習\TEST\10_2023-課題参画者リスト\データ
mkdir C:\Users\watan\Documents\27_EXCEL教習\TEST\10_2023-課題参画者リスト\データ
xcopy \\watarise\tech-division\08.内部課金\2023年度\課題参画者リストC:\Users\watan\Documents\27_EXCEL教習\TEST\10_2023-課題参画者リスト\データ /e
※作業用ホルダー内入力データを削除する為、ホルダー毎削除し、サーバから作業ホルダーへ更新させた入力データをコピー。
【標準モジュールで作成したEXCELのマクロ】
Sub 参画者リストおまとめ()
Dim fPath As String
Dim motoFile As String
Dim sakiSheet As Worksheet
Dim sakiLRow As Long, motoLRow As Long, sakiLRow2 As Long
Dim wbNew As Workbook
Dim fontName As String
Dim fontSize As Integer
fontName = "MSPゴシック"
fontSize = 10
Dim PutDir As String
Dim PutFileName As String
Dim PutFullPath As String
Dim GetDir As String
DeleteFile
LogPut "処理開始"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
GetDir = "C:\Users\watan\Documents\27_EXCEL教習\TEST\10_2023-課題参画者リスト\データ"

PutFileName = "2023-課題参画者リスト纏め_" & Format(Now, "YYYYMMDD") & ".xlsx"
PutFullPath = PutDir & "\" & PutFileName
Set wbNew = Workbooks.Add
Set sakiSheet = wbNew.Worksheets(1)
With sakiSheet
.Columns("A:B").ColumnWidth = 10
.Columns("C:G").ColumnWidth = 20
.Columns("H").ColumnWidth = 50
.Cells(1, "A").Value = "課題番号"
.Cells(1, "B").Value = "職員番号"
.Cells(1, "C").Value = "氏名"
.Cells(1, "D").Value = "所属/拠点"
.Cells(1, "E").Value = "所属/グループ"
.Cells(1, "F").Value = "職制"
.Cells(1, "G").Value = "該非判定結果"
.Cells(1, "H").Value = "課題名"
Filename = Dir(GetDir & "\課題参画者_*.xlsx")
fPath = GetDir & "\"
motoFile = Dir(fPath & "*.xlsx")
Do While motoFile <> ""
sakiLRow = sakiSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim motoSheet As Worksheet ' motoSheetを宣言
Set motoSheet = Workbooks.Open(Filename:=fPath & motoFile, UpdateLinks:=True, ReadOnly:=True).Worksheets(1)
motoLRow = motoSheet.Cells(motoSheet.Rows.Count, 3).End(xlUp).Row
motoSheet.Range("B8:F" & motoLRow).Copy sakiSheet.Range("B" & sakiLRow + 1)
sakiLRow2 = sakiSheet.Cells(sakiSheet.Rows.Count, 3).End(xlUp).Row motoSheet.Range("G8:G" & motoLRow).Copy sakiSheet.Range("B" & sakiLRow + 1)
sakiSheet.Range("H" & sakiLRow + 1 & ":H" & sakiLRow2).Value = motoSheet.Range("C2").Value sakiSheet.Range("B" & sakiLRow + 1 & ":B" & sakiLRow2).Value = motoSheet.Range("B8:B" & motoLRow).Value
motoSheet.Range("B8:F" & motoLRow).Copy sakiSheet.Range("B" & sakiLRow + 1)
　※文字数制限の為、マクロの記載は途中まで
【Thisworkbookに作成した自動起動の為のマクロ】
Private Sub Workbook_Open()
Dim isBookOpen As Boolean
'実行させたい処理を呼び出す
Call 参画者リストおまとめ
'他に開いているブックがあるかどうかを確認
isBookOpen = False
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
isBookOpen = True
Exit For
End If
Next
'他に開いているブックがあるかどうかで分岐
If isBookOpen Then
'Excelファイルを保存せずに閉じる
ThisWorkbook.Close SaveChanges:=False
Else
'Excelを終了する
Application.Quit
End If
End Sub
【マクロで作成したリストをサーバへコピー.bat】
@echo off
rem 実行日取得
set year=%date:~0,4%
set month=%date:~5,2%
set day=%date:~8,2%
set date2=%year%%month%%day%
xcopy C:\Users\watan\Documents\27_EXCEL教習\菊池-TEST\10_2023-課題参画者リスト\出力結果\2023参画者リストまとめ_%date2%.xlsx \\watarise\tech-division\08.内部課金\2023年度\課題参画者リスト\課題参画者リストまとめ\

回答No.3

imogasi · ベストアンサー

＃２に追加、参考。WEBに
https://808hanablog.com/excelvba-auto-execution-bat-startup
ExcelVBA（マクロ）定期自動実行方法【batファイル VBScriptファイル タスクスケジューラ】
記事がある。

お礼

補足でタイムスケジューラーでユーザIDのパスワードについて、お尋ねしておりましたが、下記URLを参考にして、無事マクロを自動実行出来るようになりました。 https://www.teamxeppet.com

Powered by GRATICA

補足

早速のご教示ありがとうございました。
ご教示を頂けましたので、EXCELマクロ起動前後の処理とVBScriptを1つのバッチファイルに記載し、正常に起動させる事ができました。
タスクスケジューラもご紹介頂いておりますが、
タイムスケジューラにバッチファイルを設定している途中で、windowsIDのパスワードを求められました。
そのパスワードはwindows10起動後のログインパスワードの事だと思いますが、ログイン時のパスワード設定はしておりません。
タイムスケジューラでパスワードを記載しないで設定する方法をご存知でしたらご教示頂けましたら大変助かります。

回答No.2

imogasi

エクセルVBAに親和性の近いのはVBSCRIPTだ（常識）。
VBSCRIPTにはMkDirななんてのもある。ファイル・フォルダー関係の処理は充実している。
タイムスケジューラーというのも作れるかも、またはVBSCRIPTで実行できるかも。
VBAコードの（内容は普通の、シートの加工など処理）実行はモジュール名１行を、その中に書き込めば仕舞では？
質問者の言う、バッチファイルというのを、別のもので実行しなくてもVBSCRIPTで、できませんか？

回答No.1

m5048172715

タスクスケジューラとschtasksコマンド
https://maku77.github.io/windows/admin/schtasks.html

> ブックを開いたときにマクロを自動的に実行する
https://support.microsoft.com/ja-jp/office/%E3%83%96%E3%83%83%E3%82%AF%E3%82%92%E9%96%8B%E3%81%84%E3%81%9F%E3%81%A8%E3%81%8D%E3%81%AB%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%92%E8%87%AA%E5%8B%95%E7%9A%84%E3%81%AB%E5%AE%9F%E8%A1%8C%E3%81%99%E3%82%8B-1e55959b-e077-4c88-a696-c3017600db44

を使う。