VBA OPENメソッドで正規表現を使ったor条件の使い方を教えてください。(aaa.xlsxもしくはbbb.xlsxを開きたい場合)

Question

VBA OPENメソッドでのor条件の使い方を教えてください。
VBAフォルダ内のaaa.xlsxもしくはbbb.xlsxというファイル名のファイルを開く、という処理を書きたいのですが
↓ですと実行時エラー52 ファイル名または番号が不正です。のエラーになってしまいます。

Open "C:\Users\XXX\Desktop\VBA(aaa|bbb).xlsx"

正規表現を使って、aaa.xlsxもしくはbbb.xslxを開く、という処理にしたく
(aaa|bbb)
としているのですが、うまくいきません。
申し訳ないですが、どう記載すれば良いかご教示いただきたく思います。

そもそもOpenメソッドに正規表現のor条件”(|)”は使えるのでしょうか？

すみませんが、よろしくお願いします。

Answer 1

VBAフォルダ内のaaa.xlsxもしくはbbb.xlsxというファイル名のファイルを開く、という処理を書きたいのですが

一案として、エラーが出ても無視して次へ進むという方針でもいいかも。

On Error Resume Next
WorkBooks.Open("C:\Users\XXX\Desktop\VBA\aaa.xlsx")
WorkBooks.Open("C:\Users\XXX\Desktop\VBA\bbb.xlsx")
On Error Goto 0

---

上記は両方ファイルがあったら２つとも開くという仕様になりますが、
aaa.xlsx優先で、なければ、bbb.xlsxを開くという仕様なら、下記のコードで。

On Error Resume Next
WorkBooks.Open("C:\Users\XXX\Desktop\VBA\aaa.xlsx")
If Err.Number <> 0 Then
    Err.Clear
    WorkBooks.Open("C:\Users\XXX\Desktop\VBA\bbb.xlsx")
    If Err.Number <> 0 Then MsgBox "ブックを開けませんでした！"
End If
On Error Goto 0

Comments

[ttyp03]

意外といいかもですね。
わかりやすいし。
ただ両方開けちゃったときはどうするんですかね。

[hatena19]

その辺の仕様が不明瞭なので両方開ける仕様にしましたが、
片方だけ（aaa.xlsx優先）とかだったら、エラーだったらbbb.xlsxを開くというようにすればいいですね。

Answer 2

そもそもOpenメソッドに正規表現のor条件”(|)”は使えるのでしょうか？

使えません。

Dir関数で、C:\Users\XXX\Desktop\VBA*.xlsxのファイル一覧を取得して、aaa.xlsxかbbb.xlsxがあったらそれをWorkbooks.Openします。

Answer 3

そもそもOpenメソッドに正規表現のor条件”(|)”は使えるのでしょうか？

パラメータFileNameに正規表現は使用できません。

Open メソッド (Excel)