ワークブックを保存する場合は次のように行います。
"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