VBA シートを別ファイルで保存：2倍高速化(動画あり)

エクセルマクロで、シートを別ファイルで保存するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
動画で動作確認ができます👇

シートを別ファイルで保存する

以下のマクロを実行すると、特定シートを新しいブックで保存します。

Sub 特定シートを新しいブックで保存()
    
    Dim MyPath As String
    Dim ChangeName As String

    '保存先を指定
    MyPath = ActiveWorkbook.Path
    
    '別のファイルで保存するときのファイル名
    ChangeName = "別ファイル"

    Sheets("まとめ2").Copy
        
    '名前をつけて保存
    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=MyPath & "\" & ChangeName, _
         FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True

End Sub

マクロの解説

[Sheets(“まとめ2”).Copy] で特定のシートを、別ファイルで保存します。

[MyPath = ActiveWorkbook.Path] は、別ファイルの保存先を指定しています。

[ChangeName = “別ファイル”] は、別ファイルのファイル名を指定しています。

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】名前を付けて保存処理を自動化する使用例
 

【エクセルマクロ】名前を付けて保存処理を自動化：超便利８選

...

kirinote.com

2023.08.26