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

関連記事

: アクティブプリンタを変更（ActivePrinter プロパティ）

ActivePrinter プロパティ ActivePrinter プロパティを …

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

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

: ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）

Paste メソッド指定したワークシート上にクリップボードのデータを貼り付けま …

: スクロールバーの表示・非表示（DisplayHorizontalScrollBar,DisplayVerticalScrollBar）

スクロールバーの表示・非表示の設定 Windows オブジェクトの Displ …

: 印刷設定（ヘッダーに画像を指定）LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture

ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …

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

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

: 印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）

PageSetup.PrintArea プロパティ印刷範囲を設定するには、Pa …

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

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

: 印刷のページ区切り（DisplayPageBreaks プロパティ）

DisplayPageBreaks プロパティ印刷したあとや印刷プレビューを表 …

: 表示されているセル範囲を取得（VisibleRange プロパティ）

VisibleRange プロパティ現在表示されているセル範囲（Range オ …

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