ブックのコピーを保存(SaveCopyAs メソッド)
2015/12/11
SaveCopyAs メソッド
SaveCopyAs メソッド は、現在開いているブックのコピーを作成して保存する場合に使用します。(閉じているブックのコピーを保存するには、FileCopy ステートメント を使用します。詳細は、ファイルのコピーを保存(FileCopy ステートメント) を参照してください。)
object.SaveCopyAs( filename )
引数・戻り値
- object ・・・ 対象となる Workbook オブジェクトを指定します。
- filename ・・・ コピーしたブックを保存する時の名前を指定します。パスを含めると、保存場所を指定することができます。パスを省略するとカレントフォルダに保存されます。
保存場所に、同名のブックがある場合は、自動的に上書き保存されるので、上書きしたくない場合は、SaveCopyAs メソッド を実行する前に、同名ファイルがあるかどうかを確認する必要があります。
- object ・・・ 対象となる Workbook オブジェクトを指定します。
- filename ・・・ コピーしたブックを保存する時の名前を指定します。パスを含めると、保存場所を指定することができます。パスを省略するとカレントフォルダに保存されます。
保存場所に、同名のブックがある場合は、自動的に上書き保存されるので、上書きしたくない場合は、SaveCopyAs メソッド を実行する前に、同名ファイルがあるかどうかを確認する必要があります。
SaveCopyAs メソッド 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
Sub Sample_SaveCopyAs() Dim OpenBook As String Dim CopyBook As String Dim w As Workbook Dim Result, Prompt, Buttons, Title 'コピー元のブック名 OpenBook = "C:\Documents\test01.xlsx" '保存するブック名 CopyBook = "C:\Documents\mybook.xlsx" 'コピー元ブックを開く Set w = Workbooks.Open(OpenBook) '同名のブックが存在する時の処理 If Dir(CopyBook) <> "" Then 'メッセージボックス表示 Prompt = "同名ファイルが存在します。" & Chr(13) & "上書きしますか?" Buttons = vbYesNo + vbInformation + vbDefaultButton2 Title = "ブックのコピーを保存" Result = MsgBox(Prompt, Buttons, Title) '「No」を選択した時、ブックを閉じて終了 If Result = vbNo Then MsgBox "終了します。" w.Close Exit Sub End If End If 'コピーを保存後、開いたブックを閉じる w.SaveCopyAs CopyBook MsgBox "コピーを保存しました。" w.Close End Sub |
実行結果
【実行前】
【サンプルVBAソースを実行】
関連記事
-
-
ブック作成時のシート数の取得・設定(SheetsInNewWorkbook プロパティ)
SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …
-
-
ブックを開く(Open メソッド)
ブックを開く(Open メソッド) ブックを開くには、Workbooks コレク …
-
-
印刷の用紙サイズを設定(PageSetup.PaperSize プロパティ)
PageSetup.PaperSize プロパティ PageSetup.Pape …
-
-
ウィンドウの分割(Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウの分割と解除 ウィンドウ(ワークシート画面)を分割するには、Split …
-
-
ウィンドウ枠の固定(FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウ枠の固定と解除 ウィンドウ枠を固定するには FreezePanes プ …
-
-
前後のワークシートを参照する(Previous プロパティ,Next プロパティ)
Previous プロパティ 指定したシートの前(左側)のシートを参照します。 …
-
-
ウィンドウを整列(Windows.Arrange メソッド)
ウィンドウを整列(Windows.Arrange メソッド) Windows コ …
-
-
ブックが互換モードで開いているか確認する(Excel8CompatibilityMode プロパティ)
ブックが互換モードで開いているか確認する Excel8Compatibility …
-
-
分割したウィンドウの取得(Panes コレクション,Pane オブジェクト)
分割したウィンドウ 「ウィンドウ枠の固定」や「ウィンドウの分割」での、すべての領 …
-
-
印刷設定(ページごとに異なるヘッダー・フッターを設定)Page オブジェクト・HeaderFooter オブジェクト
Page オブジェクト ページごとに異なるヘッダーおよびフッターを設定する場合、 …


