ファイルの追加

Sub ファイル追加()

    '# 既にファイルが存在する場合のメッセージを無視する
    Application.DisplayAlerts = False

    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:= _
        "C:\My Documents\Book2.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close
End Sub