VBA：ワークブックの保存

ワークブックを保存する場合は次のように行います。

"Book1"を『c:\』に"Book2.xls"として保存する

Sub Test()
   Workbooks("Book1").SaveAs Filename:="c:\Book2.xls"
End Sub

"Book1"を『c:\』に"Book2.csv"としてCSV形式で保存する

Sub Test()
Workbooks("Book1").SaveAs Filename:="c:\Book2.csv" _
, FileFormat:=xlCSV
End Sub

"Book1"を『c:\』に"Book2.xls"としてパスワードを指定して保存する

Sub Test()
    Workbooks("Book1").SaveAs Filename :="c:\Book2.xls" _
    , Password := "aaaaaa"
End Sub