下記のマクロは先日より教えて頂いたマクロです。
作業シート名「建築物(確認申請)(第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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
5
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
6
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
7
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
8
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
11
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
12
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
13
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
14
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
15
PDF出力マクロについて。マクロ初心者です。 エクセルで、アクティブシートを指定したフォルダに保存す
Visual Basic(VBA)
-
16
VBA listBoxについて
Visual Basic(VBA)
-
17
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
18
[オートフィルタ]の適用範囲の確認は可能か?
Excel(エクセル)
-
19
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
20
VBAに詳しい方教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
ワイルドカード「*」を使うとう...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
別ブックをダイアログボックス...
-
エクセルのマクロについて教え...
-
エクセルのマクロを使ってメー...
-
【困っています2】VBA 追加処...
-
エクセルVBAが途中で止まります
-
マクロで最終行を取得したい
-
エクセルのマクロについて教え...
-
拡張メタファイルにて貼り付け
-
【ご教示ください】VBAの記述方...
-
ExcelのVBAです。フォルダ内の...
-
VBAで複数のブックを開かずに処...
-
EXCEL VBA 単語置き換え につい...
-
Excelのマクロコードについて教...
-
【マクロ】違うフォルダにある...
-
【ExcelVBA】インデックスが有...
-
vbaでvbaProjectのパスワード解...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBS Bookを閉じるコード
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】zip圧縮されたCSV...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
ExcelのVBAです。フォルダ内の...
-
vbaで他のブックに転記したい。...
-
フォルダ内の全てのファイルに...
-
VBAで複数のブックを開かずに処...
-
VBSでExcelのオープン確認
-
VBA 実行時エラー 2147024893
-
【Excel VBA】書き込み先ブック...
-
VBA シート名が一致した場合の...
おすすめ情報
どなたか、親切に教えて頂ける方、お願いいたします。