VBA打开关闭工作簿，已打开的工作簿不关闭

ridddx

如题：


求助各位大神：
如下VBA，因为工作簿要引用其它三个工作簿的数据，当其它工作簿关闭的时候会报错，所以做了VBA按钮来更新数据。
以只读方式打开（不影响其他电脑共享人员编辑工作簿），然后关闭工作簿且不保存，这样来刷新数据。
但是如果这三个被引用的数据簿被这台电脑已经打开的时候，会被VBA关闭，如何修改让它执行的时候判断工作簿已经打开的时候不关闭，未打开的时候关闭且不保存？



Sub openWorkbook()

Dim fname As String

Application.ScreenUpdating = False


fname = "\\Zl-pc\业务部-管理文件\数据管理\客户交付登记表.xlsx"

Workbooks.Open Filename:=fname, ReadOnly:=True

ActiveWindow.Close SaveChanges:=False


fname = "\\Zl-pc\业务部-管理文件\数据管理\客户开票登记表.xlsx"

Workbooks.Open Filename:=fname, ReadOnly:=True

ActiveWindow.Close SaveChanges:=False


fname = "\\Zl-pc\业务部-管理文件\数据管理\物料管理清单.xlsx"

Workbooks.Open Filename:=fname, ReadOnly:=True

ActiveWindow.Close SaveChanges:=False


Application.ScreenUpdating = True

End Sub

shiruiqiang

excel表不支持同时被2个用户打开

f8b1987

换一种思路，复制文件打开，完事后删除这份文件