エクセル テキスト形式の名称変更保存

質問

みなさまお世話になります
早速ですが、標記の件です
csv形式になっているテキストファイル（拡張が異なりますset）をエクセルで
カンマ区切りにて開いた後　保存しようとした場合
上書き保存であれば、拡張も元々の拡張子で保存されるのですが

マクロを使用してファイル保存をしようとすると
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name, FileFormat:=xlCSV, CreateBackup:=False
拡張子がCSVになってしまいます。
それを元々の拡張にて保存を行いたいのです。

またファイル名が長いので　変更をかけた後　
シート名の一部を変更して保存したいためにActiveSheet.Nameを
使用しています
どうぞよろしくお願いします。

回答No.2

okormazd

ActiveSheet.Name = "aaaa"

あるいは
WorkBooks("xxxx.set").Sheets(1).name="aaaa"
とか。

回答No.1

okormazd

csvファイルなんだが、拡張子を.setにしたいということですか。

ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name & ".set", FileFormat:=xlCSV, CreateBackup:=False

ではダメですか。

お礼

ありがとうございます。
拡張子変更できました。
シート名の変更はどうすればよいのでしょうか　よろしくお願いします