カレントディレクトリにある複数のtxtファイルをcsvファイルに変換したい

Question

カレントでぃくとりにあるテキストファイルが複数あるのですがこのファイルを全てcsvファイルに
変換したいです。
今のところ１個のみしかできていません。

繰り返すの構文であるfor nextを変数を使用して実施しようとしていますがファイル名も一定のファイル名でないためファイル名を変数にすることもできずどうしていいかが分かりません。

下記にプログラム内容を記載しますのでご教示をお願いします。

コード
```Sub csv変換()
Dim 新ブック名 As String
 Workbooks.OpenText Filename:=ThisWorkbook.Path & "*.txt", DataType:=xlDelimited, Comma:=True
 ファイル名 = ActiveWorkbook.Name
 ファイル名 = Left(ファイル名, Len(ファイル名) - 4)
 ファイル名 = ファイル名 & ".csv"
ActiveSheet.Range("A1").CurrentRegion.EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ファイル名, FileFormat:=xlOpenXMLWorkbook
Application.Quit
 
End Sub

Comments

[m.ts10806]

コードやエラーはマークダウンのcode機能を利用してご提示ください。
https://teratail.com/questions/238564

[otn]

「変換したい」とはどういう意味ですか？具体的に書いてください。

[macmac]

拡張子をtxtからcsvに変えたいです。

[otn]

では、リネームで良いですね。

Answer 1

「変換したい」とはどういう意味ですか？具体的に書いてください。
⇒拡張子をtxtからcsvに変えたいです。

ということなので、単純にリネームです。
簡単なのは、バッチファイルにすることです。

pushd 対象ディレクトリ
rename *.txt *.csv

どうしてもVBAでやるなら、

ChDir ThisWorkbook.Path

file = Dir("*.txt")
Do While file <> ""
    Name file As Replace(file, ".txt", ".csv")
    file = Dir()
Loop

Answer 2

家では Excel 入れてないのでヒントだけですが、Dir("*.txt") でテキストファイルの一覧を得て、ループで回せば良いのでは？

Office TANAKA - Excel VBA関数[Dir]

Answer 3

たんに、.txt を.csv にリネームすればいいだけなんでは

Comments

[Yasumichi]

「テキストファイルが複数あるのですが～今のところ１個のみしかできていません。 」って所が課題みたいです。