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

エクセルのマクロコード
Sub テキスト変換()

Workbooks.OpenText Filename:=ActiveWorkbook.Path & "\" & "FDﾃﾞｰﾀ.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:=ActiveWorkbook.Path & "\" & "FDﾃﾞｰﾀ.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False


End Sub
が有ります。
マクロを実行すると「 "FDﾃﾞｰﾀ.txt"」が「"FDﾃﾞｰﾀ.xlsx"」に変換されます。
マクロを実行し、「"FDﾃﾞｰﾀ.xlsx"」の保存されたブックをそのまま（警告文無し）でクローズする方法を教えてください。
よろしくお願いします。

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

• 

  回答ありがとう御座います。
  支持通りにコードを設定しましたが、
  Workbooks.OpenText Filename:=ActiveWorkbook.Path & "" & "FDﾃﾞｰﾀ.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 14:51

• 

  ありがとうございます。
  教えて頂きましたコード
  Workbooks.OpenText Filename:=ActiveWorkbook.Path & "" & "FDﾃﾞｰﾀ.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 15:07

No.1 ベストアンサー 回答者： kokorororo 回答日時： 2023/02/04 14:39

以下のように、Application.DisplayAlerts を False に設定することで、警告文を非表示にすることができます。

Sub テキスト変換()
Application.DisplayAlerts = False ' 警告文を非表示にする
Workbooks.OpenText Filename:=ActiveWorkbook.Path & "" & "FDﾃﾞｰﾀ.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:=ActiveWorkbook.Path & "" & "FDﾃﾞｰﾀ.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close ' 保存済みブックをクローズする
Application.DisplayAlerts = True ' 警告文を再度表示する
End Sub

この回答へのお礼

色々ありがとうございます。
私の設定が悪かったみたいです。
上手く出来ました。

お礼日時：2023/02/04 15:37

No.2 回答者： kokorororo 回答日時： 2023/02/04 14:54

VBA の Syntax Error (構文エラー) が発生しているんだと思います。

黄色くなっている部分が原因です。これは、長い行を続けて書くと発生する場合があります。解決するためには、行を分割して改行してみてください。

例：

Workbooks.OpenText Filename:=ActiveWorkbook.Path & "" & "FDﾃﾞｰﾀ.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

これでエラーが解消されるか確認してください。