Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ブックのコピーを保存（SaveCopyAs メソッド）

2015/12/03 2015/12/11

SaveCopyAs メソッド

SaveCopyAs メソッド は、現在開いているブックのコピーを作成して保存する場合に使用します。（閉じているブックのコピーを保存するには、FileCopy ステートメント を使用します。詳細は、ファイルのコピーを保存（FileCopy ステートメント）を参照してください。）

【書式】

object.SaveCopyAs( filename )

引数・戻り値

object ・・・対象となる Workbook オブジェクトを指定します。
filename ・・・コピーしたブックを保存する時の名前を指定します。パスを含めると、保存場所を指定することができます。パスを省略するとカレントフォルダに保存されます。

保存場所に、同名のブックがある場合は、自動的に上書き保存されるので、上書きしたくない場合は、SaveCopyAs メソッド を実行する前に、同名ファイルがあるかどうかを確認する必要があります。

SaveCopyAs メソッド使用例

サンプルVBAソース

　
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

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ソースを実行】

- ブック・シートの操作 SaveCopyAs メソッド, VBA基本, Workbook オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ウィンドウ枠の固定（FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウ枠の固定と解除ウィンドウ枠を固定するには FreezePanes プ …

: ウィンドウを拡大・縮小（Zoom プロパティ）

ウィンドウを拡大・縮小（Zoom プロパティ）ウィンドウの表示サイズをパーセン …

: ブックの変更が保存されているかを確認する（Saved プロパティ）

ブックの変更が保存されているかを確認する（Saved プロパティ） Saved …

: 印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage

先頭ページに別のヘッダーおよびフッターを設定先頭ページのヘッダーおよびフッター …

: WorksheetView オブジェクト

WorkSheetView オブジェクト行列番号や枠線の表示・非表示の設定など …

: ブックを別名で保存（SaveAs メソッド）

ブックを別名で保存（SaveAs メソッド）ブックの変更を保存したり、新規ブッ …

: アウトライン記号の表示・非表示（DisplayOutline プロパティ）

アウトライン記号の表示・非表示（DisplayOutline プロパティ） Di …

: 印刷時の改ページ設定（Add,ResetAllPageBreaks）

改ページの追加と解除印刷時に改ページを指定するには、HPageBreaks コ …

: 保存時にバックアップファイルが作成されるかどうかを確認（CreateBackup プロパティ）

バックアップファイルが作成されるかどうかを確認 CreateBackup プロパ …

: 印刷設定（ヘッダー／フッター）書式コード・VBAコード

印刷設定（ヘッダー／フッター）書式コード・VBAコードヘッダーおよびフッター（ …

PREV: ファイル保存の既定の形式を取得・設定（DefaultSaveFormat プロパティ）
NEXT: ファイルをコピー（FileCopy ステートメント）