「ActiveSheetを別エクセルファイルに保存する」【VBAマクロ】

選択した範囲をxlsx出力したい
選択した範囲のxlsx出力サンプルコード
注意点
関連記事

選択した範囲をxlsx出力したい

Excelで、特定のシートを別のExcelファイル(xlsx/xlsm/xls)に出力したいケースがあります。

下記のように指定範囲や、すべてのシートをCSVエクスポートするケースだけではなく、
シートの作成上、一部のシートだけ別ファイルへ出力させたいケースもあるかと思います。
「ブックをシート毎にxlsx保存(分割保存)する処理」をパーツ化する。【エクセルVBA】
「指定した範囲をxlsx出力して保存する」【VBAマクロ】

今回は、ActiveSheetをxlsxファイルとして出力するマクロをご紹介します。

選択した範囲のxlsx出力サンプルコード

'■現在開いているシートを別エクセルデータとして保存する
Public Sub call_SaveXLSX()
    Dim fPath As String
    Dim fName As String
    
    '■現在開いているシート情報を変数に格納
    '今回は「ブック名_シート名.xlsx」の名前で保存。
    fPath = ActiveWorkbook.Path & "\"
    fName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) & "_" & ActiveSheet.Name & ".xlsx"
    
    Application.DisplayAlerts = False
    
    '■新規ブック作成→xlsx保存→xlsx閉じる
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=fPath & fName, FileFormat:=xlWorkbookDefault
    ActiveWindow.Close
    
    Application.DisplayAlerts = True

End Sub