|
こんにちは。かみちゃん です。
>Sheet1にコマンドボタンを設定し、
>ボタンを押すと、Sheet2はシート名がsheet2のそのままの状態で
>同じフォルダ内にCSVファイルだけが吐き出されるようにしたいです。
シート名がCSV保存することにより変わるため、その変わる前にシート名を記憶
させておいて、CSV保存した後に元に戻せばいいのではないでしょうか?
Sub Macro2()
Dim strFileName As String 'CSVファイル名
Dim strSheetName As String '元シート名
strFileName = ThisWorkbook.FullName
strFileName = Mid(strFileName, 1, InStrRev(strFileName, ".") - 1)
strFileName = strFileName & Format(Date, "yyyymmdd") & ".csv"
Sheets("Sheet2").Select
strSheetName = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:= _
strFileName, FileFormat:=xlCSV, _
CreateBackup:=False
ActiveSheet.Name = strSheetName
End Sub
|
|