@TOC
前台打开
' 打开
Dim FileName As String, WB As Workbook, SHT As Worksheet
Set WB = Workbooks.Open(FileName, ReadOnly:=False, editable:=True)
' 关闭
WB.Save
WB.Close
Set WB = Nothing
划重点
- 当前打开方式会看到画面
- 如果要编辑,请用这种方式打开
- 其他参数,不重要,想了解可跳转下面链接
https://learn.microsoft.com/zh-cn/office/vba/api/excel.workbooks.open
可能会遇到的问题
1、执行【WB.Save】时报错
可能原因:要保存的文档是只读文档。
修改方法:
a.文件 --> 另存为 --> 工具下拉(保存按钮左边)–> 全部 --> 取消【推荐读取专用】那个勾勾,
b.点击OK,替换原文档
暂时没有了,遇到会继续追加
其他补充
- 关闭文档后请习惯性调用代码【Set WB = Nothing】
- 编辑文档前请习惯性调用代码【WB.Worksheets(SheetName).Activate】
后台打开
' 打开
Dim FileName As String, WB As Workbook, SHT As Worksheet
Set WB = GetObject(FileName)
' 关闭
WB.Close
Set WB = Nothing
划重点
- 当前打开方式没有画面
- 如果不需要编辑文档,推荐这种方式
其他补充
暂无,遇到再补充