dポイントプレゼントキャンペーン実施中!

下記のマクロを実行すると指定フォルダ内
「C:\Users\160931\Desktop\テスト\」
の指定ファイル
「テストチェックリスト.xlsm」
の別ブックの
マクロ
「チェック」
を実行できますが、
実行マクロを複数設定出来る方法を教えてください。
例えば
「チェック」「チェック2」「チェック3」

現状のマクロ
Sub 別ブックマクロ実行()

Const FILE_NAME = "C:\Users\160931\Desktop\テスト\テストチェックリスト.xlsm"
Const PROC_NAME = "チェック"
Dim app
Set app = CreateObject("Excel.Application")

With app
'Excel非表示
.Visible = False
Dim wb
Set wb = .Workbooks.Open(FILE_NAME)
.Run wb.Name & "!" & PROC_NAME
'アラートを消す
.DisplayAlerts = False
wb.Save
wb.Close

End With

app.Quit

End Sub

以上となります。
宜しくお願い致します。

質問者からの補足コメント

  • うーん・・・

    回答ありがとうございました。
    記者の教えて頂いたコードを設定しましたが、
    「コンパイルエラー」同じ適用範囲内で宣言が重複しております。
    とエラーメッセージが表示され
    コードの
    「Const PROC_NAME = "チェック2"」の部分の
    「PROC_NAME = 」が変色しており
    マクロを実行できませんでした。
    解決方法を教えてください。
    宜しくお願い致します。

    No.2の回答に寄せられた補足コメントです。 補足日時:2024/04/05 10:41
  • うれしい

    ご連絡ありがとうございました。
    上手くできました。

    No.3の回答に寄せられた補足コメントです。 補足日時:2024/04/05 11:50

A 回答 (3件)

Const PROC_NAME = "チェック"


を消して



Dim wb

'アラートを消す
の間に、

Const PROC_NAME = "チェック"
Set wb = .Workbooks.Open(FILE_NAME)
.Run wb.Name & "!" & PROC_NAME

これを1セットとして、
「チェック」の部分を書き換えた3セットを続けて書き込む。
この回答への補足あり
    • good
    • 0

すみません。


const を削除してみてください。
この回答への補足あり
    • good
    • 0
この回答へのお礼

ありがとうございます。
早速試してみます。

お礼日時:2024/04/05 11:20

> 実行マクロを複数設定出来る方法を教えてください。



あなたはどうすれば複数設定出来ると考えましたか?
それやってみて、うまく動かなかったり、エラーが出てから質問しませんか。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A