下記のマクロを実行すると指定フォルダ先のワイルドカードで指定したファイルの指定シートを
作業ブックの指定した場所にコピーが出来ます。
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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
エクセルの数式で教えてください。
Excel(エクセル)
-
5
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
6
VBAを使用した時間管理
Visual Basic(VBA)
-
7
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
8
Word VBA MSGBOX 内で降順表示
Visual Basic(VBA)
-
9
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
10
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
11
エクセルでチェックボックスを一列にたくさんつくり、各行にリンク先のセルを設定する場合、どのようにした
Excel(エクセル)
-
12
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
13
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
14
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
15
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
16
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
17
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
18
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
-
19
Excel vbaのテキストボックスの扱い
Excel(エクセル)
-
20
エクセルのマクロについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別ブックをダイアログボックス...
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBS Bookを閉じるコード
-
VBAで別ブックのシートを指定し...
-
ACCESSでExcelにデータ出力、高...
-
複数のエクセルブックをひとつ...
-
ACCESSVBA からExcelの他ブック...
-
VBA ブックを開かずにブック内...
-
【マクロ】違うフォルダにある...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】インデックスが有...
-
エクセルマクロで、他ブックか...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBAで複数のブックを開かずに処...
-
フォルダ内の全てのファイルに...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリー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 シート名が一致した場合の...
おすすめ情報