[[20220806145343]]　『開いているファイルのワイルドカード指定方法』（マツ）　ページの最後に飛ぶ

『開いているファイルのワイルドカード指定方法』（マツ）

複数ファイルを開いた状態でVBAにて、Book1からBook2に値をコピーします。
以下のところでファイル名にワイルドカードを使用することはできないでしょうか。
　*book1*.xlsxのようにしたいです。
book2でマクロを作成しています。

Sub sample()

Dim Bk1 As Workbook
Dim Bk2 As Workbook

Set Bk1 = Workbooks("book1.xlsx")
Set Bk2 = Workbooks("book2.xlsx")

Book1からBook2に値をコピー
Bk1.Sheets("Sheet1").Range("A1:A1").Copy
Bk2.Sheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues

End Sub

詳しい方ご教示願います。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

詳しくはないですが、【開いているブック】を巡回して、ブック名に一致するものがあるか調べればokでは？

（もこな２） 2022/08/06(土) 15:24

 Sub Sample()
    Dim Bk1 As Workbook
    Dim Bk2 As Workbook
    Set Bk2 = ThisWorkbook

    For Each Bk1 In Workbooks
        If Bk1.Name Like "*book1*.xlsx" Then
            MsgBox Bk1.Name
        End If
    Next wb
 End Sub

 MsgBox の行にコピー処理を記述してください。
（hatena） 2022/08/06(土) 16:09

回答ありがとうございます。
正常にマクロ処理できました。
（マツ） 2022/08/06(土) 18:49

コメント返信：