質問: マクロ csv 特定シートを任意のフォルダへ出力
回答: たとえばSheet3をCSVで保存する場合です。 Application.GetSaveAsFilenameで「名前を付けて保存」の時のダイアログを表示します。 InitialFileNameとFileFilter(CSVを設定)を使っていますが、ほかにもいろいろな引数があるので、必要なら調べてみてください。 Sub sample() Dim csvName As String csvName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="CSVファイル(*.csv),*.csv") '「名前を付けて保存」ダイアログ(CSV対象) If csvName = "False" Then Exit Sub 'キャンセルなら終わり Sheets("Sheet3").Copy 'Sheet3を新しいBookにコピー ActiveWorkbook.SaveAs FileFormat:=xlCSV, FileName:=csvName '今作ったBookがアクティブなので、それをCSVで保存 ActiveWorkbook.Close False '保存せずに閉じる End Sub