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

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

ChDir "C:\Users\〇〇\Desktop\2月04日"
Workbooks.OpenText Filename:="C:\Users\〇〇\Desktop\2月04日\テスト.txt", 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:="C:\Users\〇〇\Desktop\2月04日\テスト.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
が有ります。
マクロを実行すると指定フォルダ内にあるテキスト「テスト.txt」を呼び込み
指定フォルダ内にエクセル形式「テスト.xlsx」で保存されます。
このコードの「"C:\Users\〇〇\Desktop\2月04日"」の部分を
マクロ実行ブックが保存されているフォルダに変更する方法を教えてください。
よろしくお願いします。

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

• 

  回答ありがとう御座います。
  ActiveWorkbook.Path
  Workbooks.OpenText Filename:="ActiveWorkbook.Path\テスト.txt", Origin _
  :=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
  , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
  False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _

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

• 

  ActiveWorkbook.Path
  Workbooks.OpenText Filename:="ActiveWorkbook.Path\テスト.txt", 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

    補足日時：2023/02/04 13:36

• 

  Columns("A:A").ColumnWidth = 53.25
  ActiveWorkbook.SaveAs Filename:="ActiveWorkbook.Path\テスト.xlsx", _
  FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
  End Sub
  とコードを作成しましたがエラーが出て上手く実行出来ませんでした。
  解決方法を教えてください
  よろしくよろしくお願いします。

    補足日時：2023/02/04 13:38

No.2 ベストアンサー 回答者： t_fumiaki 回答日時： 2023/02/04 13:44

="ActiveWorkbook.Path\テスト.xlsx", _・・・・・の書き方じゃ駄目ですよ。

チャント文字列の連結をしなきゃ・・・・・。


=ActiveWorkbook.Path & "\" & "テスト.xlsx",・・・・
とか
=ActiveWorkbook.Path & "\テスト.xlsx",・・・・

でしょ？？？

この回答へのお礼

失礼いたしました。
上手くできました。

お礼日時：2023/02/04 13:59

No.1 回答者： t_fumiaki 回答日時： 2023/02/04 13:25

ActiveWorkbook.Path。

但し、エクセルブックファイルをダブルクリックして開いてる場合は上手く行きません。

エクセルを立ち上げて、そこからメーニューの「開く(f)」から目的のエクセルブックを開く必要があります。