Excel2003 マクロ(VBA) どこにあるか分からないフォルダＡのワークブックＡを開く

質問

いつもお世話になっております。

新しいマクロの記録でフォルダＡのワークブックＡを開きました。
ChDir "C:\フォルダＡ"
Workbooks.Open Filename:= _
"C:\フォルダＡ\ワークシートＡ.xls"

しかし、今はフォルダAがCドライブにありますが、
明日はデスクトップ上にあったり、フォルダＢの中に入っていたりするかもしれません。

このような時、上記のようなVBAでは開けません。
どこにあるか分からないフォルダＡのワークブックＡを開くには
どこをどのように直せばよろしいのでしょうか？

以上、よろしくお願いいたします。

回答No.3

Wendy02 · ベストアンサー

こんばんは。

以下は、当たり前のことですが、同名ファイルは、1回きりしか開けません。ただ、すべてを検索してきます。その中で、同名なら、1回だけ開けられます。

なお、ワイルドカードは、あまり使わないほうがよいです。FileSearchオブジェクトは、MS-DOS・コマンドプロンプトとは違う法則になっていますので、独自のワイルドカードはかなりヘンな癖を持っています。また、一旦検索すると、そのキャッシュが残りますので、時間は、多少速くなるはずです。

なお、以下は、Windows のバージョンに多少影響を受けます。XP以上なら、問題ないと思ってよいです。

'標準モジュール設定

Sub TestFindFile()
Dim i As Long
Dim ret As Integer
'検索ファイル名
Const FNAME As String = "ワークシートＡ.xls"

　With Application.FileSearch
　　　　.NewSearch
　　　　'バス指定
　　　　.LookIn = "C:\Documents and Settings\"
　　　　.Filename = FNAME
　　　　.SearchSubFolders = True
　　　　.Execute
　　　　If .FoundFiles.Count > 0 Then
　　　　For i = 1 To .FoundFiles.Count
　　　　　 ret = MsgBox(.FoundFiles.Count & " 個のファイルが見つかりました。" & vbCrLf & _
　　　　　　.Filename & " を、" & vbCrLf & _
　　　　　　Mid$(.FoundFiles(i), 1, InStrRev(.FoundFiles(i), "\")) & vbCrLf & _
　　　　　　"で見つけました。" & vbCrLf & _
　　　　　　.Filename & "をオープンしますか?", vbOKCancel)
　　　　　　If ret = vbOK Then
　　　　　　　Workbooks.Open .FoundFiles(i)
　　　　　　　'一回きりしか開けません。
　　　　　　　Exit Sub
　　　　　　End If
　　　　Next
　　　　Else
　　　　　　MsgBox "対象ファイルはありませんでした"
　　　　End If
　　End With
End Sub

お礼

できました！！
対象のワークシートには他では付けないような名前が付いているので
""を含むファイルを開く感じで全然大丈夫でした。
まだまだ理解できないコードが沢山ありますが、
徐々にそれを理解して応用できるように頑張りたいと思います。
ありがとうございました。