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

下記のマクロを実行すると指定フォルダ先のワイルドカードで指定したファイルの指定シートを
作業ブックの指定した場所にコピーが出来ます。
srcFileName = "*12345678*.xlsm"の
「23045888」この数字の部分を
作業ブックの指定シート名「建築物（確認申請）（第1号様式）」の
指定セル値「AB1」に出来る方法を教えてください。
現状のマクロ
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年　【担当】確認番号　建物名称\01月\"
srcFileName = "*23045888*.xlsm"

' コピー先の作業ブックとシートを指定
Set destWorkbook = ThisWorkbook
Set destSheet = destWorkbook.Sheets("第4号様式（印刷用）")

' コピー元のファイルを検索
srcFileName = Dir(srcFolderPath & srcFileName)
' コピー元のブックを開く
Set srcWorkbook = Workbooks.Open(srcFolderPath & srcFileName)
' コピー元のシートを取得（左から4番麺目のシート）
Set srcSheet = srcWorkbook.Sheets(4)
' コピー元のシート名を取得
srcSheetName = srcSheet.Name
' コピー元のシートをコピー先にコピー
srcSheet.Copy After:=destSheet
' コピー元のブックを閉じる
srcWorkbook.Close SaveChanges:=False
End Sub
以上となります。
宜しくお願い致します

No.1 ベストアンサー 回答者： zongai 回答日時： 2024/04/01 18:10

こういうことでいいのかな？

' コピー元のフォルダパスとファイル名を指定
srcFolderPath = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\2024年　【担当】確認番号　建物名称\01月\"
’’’srcFileName = "*23045888*.xlsm"　

' コピー先の作業ブックとシートを指定
Set destWorkbook = ThisWorkbook
Set destSheet = destWorkbook.Sheets("第4号様式（印刷用）")

' コピー元のファイル名を設定
srcFileName = "*" & destWorkbook.Sheets("建築物（確認申請）（第1号様式）").Range("AB1").Value & "*.xlsm"

この回答へのお礼

回答ありがとうございます
早速試させて頂きます
後ほど、ご連絡をさせて頂きます

お礼日時：2024/04/01 18:13

No.2 回答者： otasuke3900z 回答日時： 2024/04/01 19:01

そういうのはChat GPTとかに聞くと親切に答えてくれるし

レスポンスも早いよ。
( ´ー｀)y-~~