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

関連記事

: 印刷設定（ヘッダーに文字列を指定）LeftHeader,CenterHeader,RightHeader

PageSetup.LeftHeader プロパティ PageSetup.Lef …

: 0 を表示するかどうかを設定（DisplayZeros プロパティ）

DisplayZeros プロパティ DisplayZeros プロパティに、T …

: ウィンドウの分割（Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウの分割と解除ウィンドウ（ワークシート画面）を分割するには、Split …

: 白黒印刷（PageSetup.BlackAndWhite プロパティ）

PageSetup.BlackAndWhite プロパティ PageSetup. …

: ウィンドウのタイトル（Window.Caption プロパティ）

ウィンドウのタイトル（Caption プロパティ） Windows.Captio …

: ワークシートの非表示・再表示（Visible プロパティ）

ワークシートの表示・非表示ワークシートを非表示にしたり、非表示にしたワークシー …

: ブック・シートの名前を取得・設定（Name プロパティ）

ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します …

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

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

: ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）

PageSetup.FitToPagesTall プロパティ PageSetup …

: 印刷設定（ページごとに異なるヘッダー・フッターを設定）Page オブジェクト・HeaderFooter オブジェクト

Page オブジェクトページごとに異なるヘッダーおよびフッターを設定する場合、 …

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