①打开指定位置的工作薄
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 '本示例将在当前文件夹中建立工作簿的备份
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18