VBScriptによる更新

Question

実現したいこと

●VBSファイルからexcelファイルのVBAを実行したいです。
内容：VBAファイルのAシートを、所定場所のファイルに上書きするコードになっています。
以下参考サイトを再現しようとしたら、cmdで実行するとエラーになってしまいました。
※エラーはVBA処理は実行できているが、エラーメッセージが出る結果となっています。
対処方法を教えていただけないでしょうか？
参考サイト：https://plus-info-tech.com/macro-auto-run

●VBAファイルとvbs保管場所

・VBAファイル中身

●VBA実行後上書きされるファイル保管場所
※朱字はパス名になります。

●cmd

発生している問題・エラーメッセージ

VBSエラー内容

該当のソースコード

Dim excelApp,macro

file = WScript.Arguments(0)
macro = WScript.Arguments(1)

Set excelApp = CreateObject("Excel.Application")

excelApp.Visible = False        'Excelを非表示にする
excelApp.DisplayAlerts = False  'ポップアップメッセージを非表示にする
excelApp.AutomationSecurity = 1 'マクロを有効にする

'Excelファイルを読み取り専用で開く
excelApp.Workbooks.Open file,3,False

'WScript.Echo "---マクロを実行します---"

'マクロを実行する
excelApp.Run macro

'WScript.Echo "---マクロの実行が完了しました---"

'Excelを終了する
excelApp.Quit

Set excelApp = Nothing

Sub 転記()
    Path = "\\vvv\www\xxx\yyy"　’vvv,www,xxx,yyyはパス名になります。
    Workbooks.Add                                                                                                                       'ファイル作成
    ThisWorkbook.Sheets("A").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)    '新規ファイルの最終シートへコピー
    Application.DisplayAlerts = False                                                                                             'メッセージ非表示※上書き保存
        For Each ws In Sheets
            If ws.Name <> "A" Then ws.Delete                                                                   'ワークシート名が"溶接機一覧"以外は削除
        Next ws
    ActiveWorkbook.SaveAs Filename:=Path & "\" & "一覧"  '保存
    ActiveWorkbook.Close '新規ファイル閉じる
    Application.DisplayAlerts = True  'メッセージ表示※上書き保存
    
   Application.Quit
   Application.DisplayAlerts = False 'メッセージを非表示に設定
   ThisWorkbook.Close False
   Application.DisplayAlerts = True  'メッセージを非表示に設定
  
End Sub

試したこと

VBSファイルでは以下トライもしましたが、同じエラーが出てしまいました。
Dim excelApp,macro →　Dim excelApp,file,macro
excelApp.Quit →　'excelApp.Quit

補足情報（FW/ツールのバージョンなど）

①VBSファイルがタスクスケジューラ上で実行できないエラー
●以下参考URLに沿って設定したのですが、実行できませんでした。

●設定内容

●エラー内容

ここにより詳細な情報を記載してください。

Comments

[otn]

vbsからVBAの起動はやったこと無いのですが、
少なくとも、VBAの Application.Quit の後にも文があるのが変ですね。
Application.Quit はExcelを終了させます。

[YT0014]

Excelでは、マクロはSub(プロシージャ)とはことなるものなのですが、マクロの実行で正しいのでしょうか？
正しいのなら、マクロの定義をご提示ください。
また、プロシージャを直接呼ばれるのなら、モジュール名.プロシージャ名が必要だという情報もありましたので、モジュール名を追加しての実行を試されてはいかがでしょう。
https://excel-vba.work/2021/04/16/%E3%80%90vba%E3%80%91vbscript%E3%81%8B%E3%82%89vba%E3%81%AE%E3%83%97%E3%83%AD%E3%82%B7%E3%83%BC%E3%82%B8%E3%83%A3%E3%82%92%E5%AE%9F%E8%A1%8C%E3%81%99%E3%82%8B/

[jabe]

otnさん回答ありがとうございます。
jinojiさんのコメントにあります通り、vbsとvbar両コードにexcelApp.Quitがある為、重複してしまっているという事ですよね？

[jabe]

YT0014さん回答ありがとうございます。
マクロとSub（プロシージャ）を同じで定義していました。

リンク先コードでもトライしてみました。
15行目objExcel.Run "Module1.転記"でエラーが出てしまいました。
Option Explicit

Dim objExcel

'Excelオブジェクトを取得
Set objExcel = CreateObject("Excel.Application")

'ExcelファイルをOPEN
objExcel.Workbooks.Open("C:\テスト\一覧.xlsm")

'Excelファイルを非表示
objExcel.Visible = False

'「testModule」のSubプロシージャ「sample」を実行
objExcel.Run "Module1.転記"

'Excelを終了
objExcel.Quit

'後片付け
Set objExcel = Nothing

Answer 1

Excelマクロの方の最後４行をコメントアウトしてみては。

Comments

[jabe]

回答ありがとうございます。
該当コードコメントアウトしましたら、cmd上で動作できました。

質問が連続してお手数お掛けしますが、参考サイトにあります。
タスクスケジューラでの実行を試みたのですが、実行する事が出来ませんでした。
対処方法を教えていただけないでしょうか？
事象は補足情報へ追加させていただきます。

[jinoji]

それは別の質問を立てた方がいいと思います。その方がたくさんの人の目に触れるでしょうから。

[jabe]

ご連絡ありがとうございます。
承知しました、別質問を立てさせていただきます。