エクセルシートをcsvファイルに保存するマクロを作りたい。

Question

VBAで複数のシートがあるエクセルシートのうち、１枚のシートだけをcsvファイルに保存したいです。

上書き確認のメッセージボックスは勝手に表示してくれて構いませんが、保存したあと開いてるファイルの名前が保存したcsvファイルの名前に変わってしまうエクセルの不具合をなんとかしたいです。

開いてるファイルの名前と拡張子は元通りのマクロ有効ファイルのまま、１枚のシートだけを別名のcsvファイルに保存したいです。

ちゃんと解決しているURLを教えて下さい。

補足
エクセルのシートを名前を付けてcsvに保存すると開いてるエクセルファイルの名前がcsvファイルになるエクセルのクソ仕様は今の時代に於いてはハッキリ言って不具合と呼んでいいレベルのクソ仕様です。なのであえてエクセルの不具合と書きました。

補足２
あ、今、気付いた。
csvに保存する前に元のファイル名をString変数に退避させておいてcsvに保存したあと元のファイル名で保存すれば良いだけ？
なんか余計なメッセージボックスが勝手に出そうだなぁ、、、
ちゃんと解決したらサンプルソースコードをここにアップします。

Answer 1

解決しました。
折角なのでサンプルソースコードを掲載しておきます。
ポイントは Kill です。

Sub Macro1()
'
' Macro1 Macro
'
Dim FullPath As String
Dim FileName As String
Dim DirPath As String
Dim CSVFileName As String

FullPath = ThisWorkbook.FullName
FileName = Dir(FullPath)
DirPath = Replace(FullPath, FileName, "")
CSVFileName = "Sheet2.csv"

Sheets("Sheet2").Select
ActiveWorkbook.SaveAs FileName:=DirPath & CSVFileName, FileFormat:=xlCSVUTF8, _
    CreateBackup:=False
Kill FullPath
ActiveWorkbook.SaveAs FileName:=FullPath, FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

'
End Sub

Answer 2

ほぼこれでしょう。ファイル名はご自身で調整なさってください。
特定のシートをコピーして別のワークブック（CSVファイル）として保存するVBA例

Comments

[退会済みユーザー]

いや、これは見た。
これはエクセルのクソ不具合に対応出来てません。