VBA打开工作薄、修改工作薄、保存另存退出工作薄

2016-01-14 15:58 阅读 72 次 评论关闭

①打开指定位置的工作薄

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 '本示例将在当前文件夹中建立工作簿的备份

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:VBA打开工作薄、修改工作薄、保存另存退出工作薄 | 猎微网

评论已关闭!