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

関連記事

: WorksheetView オブジェクト

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

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

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

: ワークシートを参照する（Worksheets プロパティ）

Worksheets プロパティ Worksheets プロパティは、Works …

: ブック作成時のシート数の取得・設定（SheetsInNewWorkbook プロパティ）

SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …

: 枠線の表示・非表示の設定（DisplayGridlines プロパティ）

枠線の表示・非表示の設定枠線の表示・非表示を設定するには、DisplayGri …

: ウィンドウの状態を取得・設定（WindowState プロパティ）

ウィンドウの状態を取得・設定（WindowState プロパティ） Window …

: 新しいウィンドウを開く（NewWindow メソッド）

NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …

: ユーザー設定のビュー（CustomViews プロパティ）

ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …

: ウィンドウを整列（Windows.Arrange メソッド）

ウィンドウを整列（Windows.Arrange メソッド） Windows コ …

: 指定された情報をブックから削除（RemoveDocumentInformation メソッド）

RemoveDocumentInformation メソッド指定された種類の情 …

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