Question

求VBA代码 如何实现同时在多个外部工作簿中取值并且不改变Excel的打开/关闭状态

我有一部分表是打开的，一部分没有打开，如何用VBA实现不改变这些表的打开关闭状态实现取值

Answer 1

建议：读取时先判断是否已经打开，如果打开了就直接读取，如果未打开就先打开后读取后 再关闭。
判断是否已打开 有两种方法
1、遍历 workbooks 来读取文件名的方法
2、容错处理，直接引用某表，如果报错 表示未打开

追问

来段简单的代码哇，VBA小白表示不知道怎么实现

追答

代码供你参考，只能帮你到这了。

追问

追答

看我的代码里怎么写的。这个isopen是我写的自定义函数。

Answer 2

参考：
Dim app as New Excel.Application
app.Visible = False ‘不可见状态下读取
Dim book As Excel.Workbook
Set book = app.Workbooks.Add(fileName)
'
' 读取逻辑
'
book.Close SaveChanges:=False
app.Quit
Set app = Nothing

打开的直接判断读取。。

追问

这里为什么会提示存储哇