①打开指定位置的工作薄

　　Dim fname As String
　　fname = "D:\测试.xls"
　　Workbooks.Open Filename:=fname, ReadOnly:=True '以只读方式打开

　　②保存工作薄

　　ActiveWorkbook.Save

　　③保存每个工作薄并退出Excel

　　For Each wb In Application.Workbooks
　　　　wb.Save
　　Next wb
　　Application.Quit

　　④另存工作薄的多种方法

　　第一种方法：ActiveWorkbook.SaveAs "<工作簿名>.xls" 

　　第二种方法：

　　Dim oldName As String, newName As String
　　Dim folderName As String, fname As String
　　oldName = ActiveWorkbook.Name
　　newName = "new" & oldName
　　MsgBox "将<" & oldName & ">以<" & newName & ">的名称保存"
　　folderName = Application.DefaultFilePath
　　fname = folderName & "\" & newName
　　ActiveWorkbook.SaveAs fname
　　End Sub
　　示例说明：本示例将当前工作簿以一个新名(即new加原名)保存在默认文件夹中。

　　第三种方法

　　ActiveWorkbook.SaveAs CreateBackup:=True '本示例将在当前文件夹中建立工作簿的备份