[[20030826151730]]　『VBAでワイルドカードは使えますか？』（困々）　ページの最後に飛ぶ

『VBAでワイルドカードは使えますか？』（困々）

マクロ内で他のExcelファイルを参照するのですが、参照先のファイル名がその都度変わります。

（ファイル名の中に「a-1」という文字が入るのは決まっているのですが、その前後に毎回異なる文字列が入ります）

構文の中に「*a-1*.xls」と指定してみたのですが、「ファイルはありません」のエラーが出てしまいます。どのように指定したらいいでしょうか。

Like 演算子を使用するとワイルドカードが使用できますよ。(INA)

 こちら事務局です。↑書き込まれた方はニックネームを書いてください。
 （kazu）

ありがとうございます。

できればLike演算子の使い方などについて詳しくお教えいただけると嬉しいです…

超初心者なもので…。　（困々）

 Dir関数を使ってはどうでしょう

 Sub SearchTest()
   Dim myPath As String
   Dim myFile As String
               '↓マクロ実行ブックが参照先のブックと同じフォルダにあればこのままでよい
   myPath = ThisWorkbook.Path & "\"  '↓違っていればこんな感じにしてください
   'mypath = "C:\Documents and Settings\ユーザー名\My Documents" & "\"
   myFile = Dir(myPath & "*a-1*.xls")

   If myFile <> "" Then
      Workbooks.Open Filename:=myPath & myFile
   Else
      MsgBox "ファイルは見つかりませんでした"
   End If
 End Sub

 パスは自分で変えてください。指定したフォルダ内で最初に見つかったブックを開きます　（りな）

「できればLike演算子の使い方などについて詳しくお教えいただけると嬉しいです…」

・ＶＢＥのヘルプで　Like 演算子　を調べると、詳しく載っていますよ。(INA)

助言ありがとうございます。どうにか上手く出来そうです！
まだまだ要勉強です。頑張りますー！　（困々）

コメント返信：

[ 一覧(最新更新順) ]

[[20030826151730]] 『VBAでワイルドカードは使えますか？』（困々） ページの最後に飛ぶ

[[20030826151730]]　『VBAでワイルドカードは使えますか？』（困々）　ページの最後に飛ぶ