webdevqa.jp.net

マクロなしでExcelブックのコピーを保存する

次のコードを含むマクロを含むExcel 2010テンプレートファイルがあります。

    ActiveWorkbook.SaveAs Filename:= _
    newname, FileFormat:= _
    51, CreateBackup:=False

これにより、現在のブックがマクロ非対応のブックとして保存されますが、必要な残りのマクロを実行できないことは明らかです。

使ってみた

    ActiveWorkbook.SaveCopyAs Filename:= _
    newname, FileFormat:= _
    51, CreateBackup:=False

これにより、構文エラーが発生します。私の目標は、新しい名前でコピーを保存することです。そのため、テンプレートファイルは変更されず、毎日実行できます。

7
mbald23

これを試して:

    Dim wMacro As Workbook     'workbook you want to save

    wMacro.Sheets(Array("Sheet1", "Sheet2", "etc")).Select
    wMacro.Sheets(Array("Sheet1", "Sheet2", "etc")).Copy

    ActiveWorkbook.SaveAs Filename:= "filename.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

コピーを作成して保存します。

2
Srijan