エクセルのマクロについて教えてください。

Question

下記のマクロは以前教えて頂いたマクロを少しアレンジしており、
マクロを実行すると、指定の別ブックのマクロを複数実できますが、
マクロを実行すると
画像のエラーメッセージが表示され
コードの「 .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
以上となります。
宜しくお願い致します。

tatsumaru77 · Accepted Answer

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

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

little_experience000 · Answer

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

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

tatsumaru77 · Answer

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

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

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

kigoshi · Answer

いきなり　.（ドット）から始まるオブジェクトを書けるのは、Withステートメント～End With　の範囲だけです。
http://officetanaka.net/excel/vba/beginner/16.htm#google_vignette

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

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

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

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

エクセルのマクロについて教えてください。

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

withがないので

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

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

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

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