[[20170611205153]]　『ある文字が含まれているbookを開く』（vo）　ページの最後に飛ぶ

『ある文字が含まれているbookを開く』（vo）

 こんばんは！お願いします。

 フォルダの中に、
 アメリカ1.xlsx
 アメリカ2.xlsx
 カナダ.xlsx
 というファイルが存在しています。

 アメリカという文字を含むファイルをすべて開くコードが知りたいです。
 以下の様に書くと自分としてはアメリカ1とアメリカ2が開くと思うのですが、何も起きません。
 ご指摘をお願いします。

 Sub てすと()

 Dim txt As String

 txt = アメリカ

 Dim Fol As String
 Dim B As String

  Fol = "C:\Users\Desktop\新しいフォルダー\"
  B = Dir(Fol & "*txt*")

 Do While B <> ""
 Workbooks.Open fileName:=Fol & B, UpdateLinks:=0, _
        ReadOnly:=True

   B = Dir()
  Loop

 End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

違いがわかりますか

 Option Explicit

 Sub test()
    Dim txt As String

    txt = "アメリカ"

    MsgBox "*txt*.xlsx"
    MsgBox "*" & txt & "*.xlsx"

 End Sub

（マナ） 2017/06/11(日) 21:20

 マナさん

 わかりました。
 一個目はアメリカとならずtxtのまま！

 Sub てすと()

 Dim txt As String

 txt = "アメリカ"

 Dim Fol As String
 Dim B As String

  Fol = "C:\Users\k\Desktop\新しいフォルダー\"
  B = Dir(Fol & "*" & txt & "*.xlsx")

 Do While B <> ""
 Workbooks.Open fileName:=Fol & B, UpdateLinks:=0, _
        ReadOnly:=True

   B = Dir()
  Loop

 End Sub

 *や"の使い方を整理して学んでおきます。
 ありがとうございます。
（vo） 2017/06/11(日) 21:37

コメント返信：