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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 新規ブック作成（Add メソッド）

新規にワークブックを作成する Workbooks コレクションの Add メソッ …

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

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

: 印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）

印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …

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

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

: 計算精度を設定する（PrecisionAsDisplayed プロパティ）

PrecisionAsDisplayed プロパティ PrecisionAsDi …

: 前後のワークシートを参照する（Previous プロパティ,Next プロパティ)

Previous プロパティ指定したシートの前（左側）のシートを参照します。 …

: 印刷のタイトル行、タイトル列を設定（PrintTitleRows,PrintTitleColumns）

PageSetup.PrintTitleRows プロパティ PageSetup …

: 印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）

PageSetup.PaperSize プロパティ PageSetup.Pape …

: 印刷設定（フッターに画像を指定）LeftFooterPicture,CenterFooterPicture,RightFooterPicture

フッターに画像を表示するには LeftFooterPicture プロパティ、C …

: ブックが共有モードか確認する（MultiUserEditing プロパティ）

ブックが共有モードか確認する（MultiUserEditing プロパティ）共 …

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