起動中のファイルをxlsxで出力【ExcelVBA】

Excelで色々集計して完成した後にファイルとして出力したい場合に便利。

実際に使用したサンプルコード------------------------------------

Option Explicit
Public Sub Exportxlsx()

'警告を非表示
Application.DisplayAlerts = False

'指定した名前のシートをコピーして新しくBookを作る
Worksheets(Array("シートの名前")).Copy

With ActiveWorkbook

    'ファイルの名前を指定して保存する
    .SaveAs Filename:="Sample.xlsx"

    '閉じる
    .Close

End With

End Sub

実際に使用したサンプルコード------------------------------------

新しいブックにしたいシートの名前を合わせればコピペでOK。

既存のExcelファイルと同じ場所にSample.xlsxというファイルが出力されます。

複数のシートを新しいブックにしたい場合は、シート名のところを変更。

シート名を「,」カンマで区切ってあげれば良い。

この場合「シートの名前」というシートと「2個目」というシートが含まれたブックが

Sample.xlsxというファイルで出力される。

出力するファイルの名前を変えたい場合はSaveAsメソッドの引数のFilenameを

指定したファイル名に変更すれば良い。

この場合Temp.xlsxというファイル名で出力。

ExcelVBAで色々集計した後にファイルをxlsx形式で出力して送信したりする場合に便利。

よかったら試してみてください。