![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記のマクロを実行すると指定フォルダ先のワイルドカードで指定したファイルの指定シートを
作業ブックの指定した場所にコピーが出来ます。
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ベストアンサー
- 回答日時:
こういうことでいいのかな?
' コピー元のフォルダパスとファイル名を指定
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"
お探しの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
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルVBA
Visual Basic(VBA)
-
-
4
vba 削除
Visual Basic(VBA)
-
5
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
6
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
7
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
8
Excel vbaのテキストボックスの扱い
Excel(エクセル)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
11
Excelの数式について教えてください。
Excel(エクセル)
-
12
VBAなくなるの?
Visual Basic(VBA)
-
13
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
14
エクセルの関数について教えてください
Excel(エクセル)
-
15
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
16
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
17
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
18
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
19
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
20
左右の表のキー位置を合わせたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAが途中で止まります
-
VBA シートをコピーする際に Co...
-
VBA 別ブックからコピペしたい...
-
【マクロ】違うフォルダにある...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBの処理結果をEXCELシ...
-
Excelマクロ 該当する値の行番...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
ExcelVBA:すでに開かれている...
-
vbaで他のブックに転記したい。...
-
エクセルのマクロについて教え...
-
VBA シート名が一致した場合の...
-
VBAで複数のブックを開かずに処...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
【VBA】全シートの計算式を全て...
-
ワイルドカード「*」を使うとう...
-
ユーザーフォームの切り替えに...
-
マクロVBA 1シートをまとめ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報