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

下記のマクロは以前教えて頂いたマクロを少しアレンジしており、
マクロを実行すると、指定の別ブックのマクロを複数実できますが、
マクロを実行すると
画像のエラーメッセージが表示され
コードの「 .Workbooks」が黄色く変色してマクロを実行できません、
解決方法を教えてください。
現状のマクロ
Sub 別ブック複数マクロ実行()

Const FILE_NAME = "\【連動版】行政報告チェックリスト(戸建て)_Copy.xlsm"

Const PROC_NAME = "特例1_3号チェック,都市ガス,都市計画法53条"

Set wb = .Workbooks.Open(ThisWorkbook.Path & FILE_NAME)

For Each PROC In Split(PROC_NAME, ",")
.Run wb.Name & "!" & PROC
'アラートを消す
.DisplayAlerts = False
Next PROC

wb.Save
wb.Close

End With

app.Quit

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

「エクセルのマクロについて教えてください。」の質問画像

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

  • 色々と教えて頂きまして、ありがとうございます。オリジナルの
    私のコピペの仕方が悪かったようで、落ち着いて調べてみると
    上手くできそうです。
    申し訳ありませんでした。

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

A 回答 (4件)

>オリジナルがどこに保存したのかが、わからなくなり困ってます



このサイトであなたが質問して、質問の回答の内容がオリジナルになっているなら、
その質問のスレッドのURLを提示していただいても構いません。
この回答への補足あり
    • good
    • 0
この回答へのお礼

ありがとうございます
確認させて頂きます

お礼日時:2024/04/08 21:33

withがないので


いきなり省略の.workbooksはないでしょう

あとworkbooka.openなので先頭の.はいらないと思いますが
    • good
    • 0

>下記のマクロは以前教えて頂いたマクロを少しアレンジしており、



そのマクロをアレンジせずに、そのままの状態で提示していただけますでしょうか。(当然、正しく動くことが前提です)

そして、そのマクロに、どのような機能の修正もしくは追加を行いたいのかを文章で提示していただけますでしょうか。
    • good
    • 0
この回答へのお礼

回答ありがとうございます
オリジナルがどこに保存したのかが、
わからなくなり
困ってます
色々やっているうちに削除したのかもしれません
せっかく回答を頂けたのに申し訳ありません
ファイルが見つかれば、
アップさせて頂きます
よろしくお願い致します

お礼日時:2024/04/08 21:24

いきなり .(ドット)から始まるオブジェクトを書けるのは、Withステートメント~End With の範囲だけです。


http://officetanaka.net/excel/vba/beginner/16.ht …

ソースをみると、End Withはありますが、Withステートメントが見当たりません。

> 以前教えて頂いたマクロを少しアレンジしており、

その際にWithステートメントを削除したのではないでしょうか。

教えていただいて、内容をよく理解しようとせずにソースをいじるとこういうことになってしまいます。
教えてもらったら、ちゃんと内容を理解して、少しは自分でできるようになろうという姿勢が必要ではないでしょうか。
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
もう少し勉強します。

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

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

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


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