ExcelVBA名前を付けて保存
VBAの[名前を付けて保存]メソッドは、Excelファイルを特定の場所に保存するために使用されます。vbaコードを使用してワークブックを保存するには、SaveAs関数でオブジェクトワークブックを使用します。
ブックで行ったすべてのハードワークの後で、それを保存しますね。私たちが取り組んできたデータを失うのは辛いことです。Excelまたは任意のファイルに2種類の保存があります。1つは「保存」で、もう1つは「名前を付けて保存」です。Ctrl + Sは、世界中でCtrl + CおよびCtrl + Vとして人気のあるショートカットキーです。しかし、「名前を付けて保存」という概念はそれほど馴染みのないものです。通常のワークシートでは、ファイルに名前を付けて保存するためのショートカットキーはF12キーです。VBAでも、ファイルを「名前を付けて保存」として保存できます。
VBA Save As Functionは何をしますか？
これは、自動化プロセスで作業を節約する一般的なタスクです。すべての作業が終わったら、ファイルを保存します。
Workbooks（ "Sales 2019.xlsx"）。保存
このコードは、「Sales2019.xlsx」という名前のワークブックを読み取って保存します。
同様に、作業中のブックを複製するには、「名前を付けて保存」メソッドを使用して作成できます。
- ファイル名：指定するファイルの名前は何ですか。これは、ファイルフォルダのパスと組み合わせる必要があります。
- ファイル形式：保存するファイルの形式はどうあるべきですか。
- パスワード：保存ファイルのパスワードを入力しますか。
- Res Passwordの書き込み：ワークブックの予約済みパスワードに言及します。
これらのパラメータは、[名前を付けて保存]メソッドを理解するのに十分だと思います。
保存機能の使い方は？
このVBAのExcelとして保存テンプレートはここからダウンロードできます– VBAのExcelとして保存テンプレート例1
ブックを正しく保存するため、[名前を付けて保存]メソッドを使用するには、ブック名とその拡張子を指定することが重要です。だからあなたが保存しているワークブックに言及してください。
コード：
Sub SaveAs_Example1（）Workbooks（ "Sales 2019.xlsx"）。エンドサブ
次に、[名前を付けて保存]メソッドを使用します。
コード：
Sub SaveAs_Example1（）Workbooks（ "Sales 2019.xlsx"）。SaveAs End Sub
次に、保存する場所を特定します。
コード：
Sub SaveAs_Example1（）Workbooks（ "Sales 2019.xlsx"）。SaveAs "D：\ Articles \ 2019 End Sub
次に、円記号を付けて、必要に応じてファイル名をファイル拡張子とともに入力します。
コード：
Sub SaveAs_Example1（）Workbooks（ "Sales 2019.xlsx"）。SaveAs "D：\ Articles \ 2019 \ My File.xlsx" End Sub
ここで、ファイル形式を「xlWorkbok」と呼びます。
コード：
Sub SaveAs_Example1（）Workbooks（ "Sales 2019.xlsx"）。SaveAs "D：\ Articles \ 2019 \ My File.xlsx"、FileFormat：= xlWorkbook End Sub
これで、ファイルがDドライブ>フォルダ名（記事）>サブフォルダ名（2019）に保存されます。
例2
開いているすべてのブックを保存する
コンピューターで10個のワークブックを操作していると仮定します。これらのワークブックをコピーの1つとしてコンピューターに保存して、バックアップを作成します。複数のワークブックで作業する場合は、ループを使用する必要があります。
以下のコードは、すべてのワークブックをコピーとして保存するのに役立ちます。
コード：
Sub SaveAs_Example2（）Dim Wb As Workbook For Each Wb In Workbooks ActiveWorkbook.SaveAs "D：\ Articles \ 2019 \"＆ActiveWorkbook.Name＆ "。xlsx" 'ファイルパスを変更しますNextWb End Sub
独自のフォルダパスを選択したい場合は、このコードを使用できます。
コード：
Sub SaveAs_Example3() Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename:=FilePath & ".xlsx", FileFormat:=xlOpenXMLWorkbook End Sub
As soon as you run this code using F5 key or manually, it will ask you to select the destination folder path, select and click on OK, it will save the file.