[マクロ]vbaで同じフォルダ内のブックの拡張子の識別

Workbooks.Open FileName:=ThisWorkbook.Path & "\" & "PI.xlsx"
同じフォルダ内のPIというブックを開くというコードですが、
同じブック名で時々xlsとxlsxという拡張子があります。
どちらでも一つしか存在しませんが、どうやって両方とも開けるようにしますか？

ご教示お願い致します。

質問者からの補足コメント

• ご回答ありがとうございます。
  xlsがない場合に、xlsxを開けるようにどうすればいいですか？

  No.2の回答に寄せられた補足コメントです。 補足日時：2020/01/25 16:45

• ご回答ありがとうございます。
  xlsがない場合に、xlsxを開けるようにどうすればいいですか？

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/01/25 16:46

• 申し訳ございません。
  PI.xlsブックだけを保存してみたら、PI.xlsが見つかりませんというエラーが出てきました。

  
    補足日時：2020/01/25 17:02

No.3 ベストアンサー 回答者： ママチャリ 回答日時： 2020/01/25 17:41

すいません。

Dir関数はファイル名しか返さないようですね。なので、その前にパスを表す文字列を結合する必要がありそうです。
こんな感じで、試してみて下さい。

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Dir(ThisWorkbook.Path & "\" & "PI.xls*")

この回答へのお礼

うまく実行できました。
どうもありがとうございました。

お礼日時：2020/01/25 17:51

No.2 回答者： ママチャリ 回答日時： 2020/01/25 16:01

Workbooks.Open Filename:=Dir(ThisWorkbook.Path & "\" & "PI.xls*")

No.1 回答者： neKo_deux 回答日時： 2020/01/25 14:58

> どうやって両方とも開けるようにしますか？

それぞれOpenするのが真っ当です。

Workbooks.Open FileName:=ThisWorkbook.Path & "\" & "PI.xlsx"
Workbooks.Open FileName:=ThisWorkbook.Path & "\" & "PI.xls"