エクセルのマクロについて教えてください。

マクロを実行してマクロがある同じフォルダ内のファイルを呼び込み同じフォルダ内のExcel形式"FDﾃﾞｰﾀ.xlsx"（ファイル名も固定）が出来るマクロがあります。
呼び込むファイルをファイル名では無く指定拡張子で呼び込む方法を教えてください。
マクロ
Sub テキスト()
Workbooks.OpenText Filename:=ActiveWorkbook.Path & "\" & "テスト.erirct", Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 53.25
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & "FDﾃﾞｰﾀ.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
があります。このマクロはファイル名が"テスト.erirct"を呼び込みExcel形式のファイルに保存しますが、ファイル名が固定されませんので".erirct"の拡張子があるファイルのみを呼び込む方法を教えてください。
同一フォルダ内には".erirct"の拡張子のファイルは一つしかありません。
解決方法をよろしくお願いいたします。

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

• 回答ありがとうございます。
  教えて頂きましたコードを
  Sub テキスト()
  Dim f_Path As String
  Dim tmp As String
  
  f_Path = ActiveWorkbook.Path & "\"
  tmp = Dir(f_Path & "*.erirct")
  If tmp = "" Then Exit Sub
  Workbooks.OpenText Filename:=tmp , Origin _

  No.1の回答に寄せられた補足コメントです。 補足日時：2023/02/06 10:23

• :=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
  , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
  False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
  TrailingMinusNumbers:=True
  Columns("A:A").ColumnWidth = 53.25

    補足日時：2023/02/06 10:24

• 

  ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & "FDﾃﾞｰﾀ.xlsx", _
  FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
  Application.DisplayAlerts = False
  ActiveWorkbook.Close
  Application.DisplayAlerts = True
  End Sub
  を設定しましたが
  Workbooks.OpenText Filename:=tmp , Origin _～TrailingMinusNumbers:=Trueまでが赤くなり実行できませんでした、申し訳ありません、解決方法を教えてください。

    補足日時：2023/02/06 10:29

• 

  ありがとうございます。
  Workbooks.OpenText Filename:=f_Path & tmp , Origin _を設定しましたが
  このコードと先ほどの
  :=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
  , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
  False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
  TrailingMinusNumbers:=True
  が赤くなってしまします、何度も申し訳ありません。
  解決方法をお願いいたします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2023/02/06 10:47

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2023/02/06 10:40

＞Workbooks.OpenText Filename:=tmp ,

ミスりました。

Workbooks.OpenText Filename:=f_Path & tmp ,

No.3 回答者： めぐみん_ 回答日時： 2023/02/06 11:01

読み込むファイル名を決めているだけで、その他について影響しないと思うのですが。

読み込まれるファイル（１つですよね？）の中身に違いがあるとかではなくてですか？

この回答へのお礼

回答ありがとうございました。
申し訳ありません、私の設定が間違っていました。
何度も申し訳ありませんでした。
このマクロについて教えて頂きたいことがあります。
今後もよろしくお願いします。

お礼日時：2023/02/06 11:07

No.1 回答者： めぐみん_ 回答日時： 2023/02/06 09:51

良く見かけるのは

http://officetanaka.net/excel/vba/function/Dir.htm

ですね。

Sub テキスト()
Dim f_Path as string
Dim tmp As String

f_Path = ActiveWorkbook.Path & "\"
tmp = Dir(f_Path & "*.erirct")

if tmp = "" then exit sub

Workbooks.OpenText Filename:=tmp ,