VBAで特定のExcelシートを出力し保存する

実際のところ

Sheet1にボタン、Sheet2に内容がある状態で

Private Sub CommandButton1_Click()

Dim mypath As String
Dim fileName As String
Dim sheetName As String

mypath = ThisWorkbook.Path
fileName = mypath & "\csv.csv"
sheetName = "Sheet2"

Sheets(sheetName).Copy
ActiveWorkbook.SaveAs fileName, FileFormat:=xlCSV
ActiveWorkbook.Close

MsgBox "saved."

End Sub

参考もと

VBAマクロでワークシートを新規CSVで出力する簡単な方法 | 説なるブログ
【ユーザーフォーム】シートをCSVファイルで保存する：VBA | kirinote.com