ファイルの名前を変更したい

質問

お世話になります。
エクセルVBAで作成しております。

「E:\フォルダ」にある拡張子が「.txt」のファイルを全て、「.xls」の
拡張子に変更したいのですが、どのようにVBAを作成すればよいでしょうか？

何卒宜しくお願いします。

回答No.3

chie65536（@chie65535） · ベストアンサー

＞だめです。
＞えらーでました。

Name "E:\フォルダ\" & strFileName As ""E:\フォルダ\*.xls"
を
Name "E:\フォルダ\" & strFileName As ""E:\フォルダ\" & Left(strFileName,Len(strFileName) - 3) & "xls"
にしてみてください。

因みに「ファイルの拡張子名を変えるだけで、ファイルの中身などはそのままで構わない」のですよね？

「ファイルの中身も変換する」つまり「ファイルの形式も変換する」のであれば、これだけでは済みません。

お礼

いけました！！
ありがとうございます！！

>因みに「ファイルの拡張子名を変えるだけで、ファイルの中身などはそのままで構わない」
>のですよね？
実現したい環境では、「手動で.txtの拡張子を.xlsに変更→OK」ですので
大丈夫です！！！

ありがとうございます！！！！

回答No.4

MSZ006

他の方の回答の補足となってしまいますが・・・

Dim strFileName As String
strFileName = Dir("E:\フォルダ\*.txt", vbNormal)
Do While strFileName <> ""
Name "E:\フォルダ\" & strFileName As "E:\フォルダ\" & Left(strFileName,Len(strFileName)-4) & ".xls"
strFileName = Dir()
Loop

お礼

ありがとうございます！！！

回答No.2

kmee

「ファイル名を変更したい」なのか、「ファイル形式を変更して保存したい」なのか、「.txtを.xlsに置換した文字列が欲しい」なのか、はっきりさせてください。
それぞれでやり方が違います。

「VBAの一連のながれの1ステップ」だとすると、「ファイル形式変更」「置換した文字列」のような気はするのですが。
ファイル名変えただけでは、xls形式にはなりませんから。

補足

>「ファイル名を変更したい」なのか、「ファイル形式を変更して保存したい」なのか、
>「.txtを.xlsに置換した文字列が欲しい」なのか、はっきりさせてください。
「E:\フォルダ」にある拡張子が「.txt」のファイルを全て、「.xls」の
拡張子に変更したいのですが。。。

>ファイル名変えただけでは、xls形式にはなりませんから。
txtの中に挿入する情報は、htmlの情報です。
xls形式にするだけで,大丈夫です。

ソース出してくださいね。

回答No.1

chie65536（@chie65535）

＞「E:\フォルダ」にある拡張子が「.txt」のファイルを全て、「.xls」の拡張子に変更したいのですが

コマンドプロンプトで「１行打ち込むだけ」で済むのですが、どうしてもVBAでやりたいのでしょうか？

Dim strFileName As String
strFileName = Dir("E:\フォルダ\*.txt", vbNormal)
Do While strFileName <> ""
Name "E:\フォルダ\" & strFileName As ""E:\フォルダ\*.xls"
strFileName = Dir()
Loop

Nameの行で、変更後ファイル名に「*」が使えるかどうかをテストしてないので、上手く行くかどうかは判りません。

上手く行かない場合は、拡張子部分の「txt」の３文字を「xls」に置き換えた文字列を作って、それを変更後ファイル名に指定しましょう。

補足

>コマンドプロンプトで「１行打ち込むだけ」で済むのですが、どうしてもVBAでやりたいので
>しょうか？
VBAの一連のながれの1ステップとして実現したいので、
VBAでどうしてもやりたいのです。

>Nameの行で、変更後ファイル名に「*」が使えるかどうかをテストしてないので、上手く行く>かどうかは判りません。
だめです。
えらーでました。