下記のマクロは先日より教えて頂いたマクロです。
作業シート名「建築物(確認申請)(第1号様式)」の
セル値「AB1」の数字をワイルドカードで検索し
該当するファイルの指定シートを作業ブックのシートにコピーできますが、
作業シート名「建築物(確認申請)(第1号様式)」の
セル値「AB1」の数字が表示されていなくても
マクロを実行すると
指定フォルダ先のファイルを呼び込み、作業ブックにシートがコピーされてしまします。
マクロを実行し
作業シート名「建築物(確認申請)(第1号様式)」の
セル値「AB1」の数字が表示され、該当ファイルがある場合のみ
コピー元のシートを作業ブックにコピー出来る方法を教えてください。
宜しくお願い致します。
現状のマクロ
Application.DisplayAlerts = False
Dim srcFolderPath As String
Dim srcFileName As String
Dim srcSheetName As String
Dim destWorkbook As Workbook
Dim destSheet As Worksheet
Dim srcWorkbook As Workbook
Dim srcSheet As Worksheet
' コピー元のフォルダパスとファイル名を指定
srcFolderPath = "\\nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\2024年 【担当】確認番号 建物名称\03月\"
srcFileName = "*" & ThisWorkbook.Worksheets("建築物(確認申請)(第1号様式)").Range("AB1").Value & "*.xlsm"
' コピー先の作業ブックとシートを指定
Set destWorkbook = ThisWorkbook
Set destSheet = destWorkbook.Sheets("第4号様式(印刷用)")
' コピー元のファイルを検索
srcFileName = Dir(srcFolderPath & srcFileName)
' コピー元のブックを開く
Set srcWorkbook = Workbooks.Open(srcFolderPath & srcFileName)
'シート名の値を設定
arr = Array("受付", "青紙表", "1", "1号確認", "4号完了")
'シート名でループ
For Each sname In arr
' コピー元のシートを取得
Set srcSheet = srcWorkbook.Sheets(sname)
' コピー元のシート名を取得
srcSheetName = srcSheet.Name
' コピー元のシートをコピー先にコピー
srcSheet.Copy After:=destSheet
Next
' コピー元のブックを閉じる
srcWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub
以上となります。
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
セル値「AB1」が空白の場合、処理をしないようにしたい。
と理解しました。以下の行をマクロの先頭に追加してください。
If ThisWorkbook.Worksheets("建築物(確認申請)(第1号様式)").Range("AB1").Value = "" Then Exit Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/03/27 14:27
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/11/09 11:51
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
5
VBAコードについて教えてください。
Visual Basic(VBA)
-
6
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
7
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
8
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
11
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
12
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
13
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
14
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
15
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
16
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
17
エクセルVBAについて
Visual Basic(VBA)
-
18
VBAなくなるの?
Visual Basic(VBA)
-
19
vba 削除
Visual Basic(VBA)
-
20
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
VBA 別ブックからコピペしたい...
-
VBSでExcelのオープン確認
-
VBAで別ブックのシートを指定し...
-
VBA コードを実行すると画面が...
-
別ブックをダイアログボックス...
-
【VBA】全シートの計算式を全て...
-
ACCESSVBA からExcelの他ブック...
-
VBA 実行時エラー 2147024893
-
【ExcelVBA】zip圧縮されたCSV...
-
ExcelのVBAコードについて教え...
-
Excel2013 ウインドウサイズの固定
-
エクセルマクロで、他ブックか...
-
【ExcelVBA】インデックスが有...
-
【ご教示ください】VBAの記述方...
-
フォルダ内の全てのファイルに...
-
エクセルのマクロについて教え...
-
ExcelVBA:すでに開かれている...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報
どなたか、親切に教えて頂ける方、お願いいたします。