另一个工作簿中的VBA EXCEL更新单元而不打开工作簿

我有一个工作簿列表的目录，我想循环通过他们没有打开他们，并更新某个工作表中的单元格

我曾尝试使用

Dim wb As Workbook Set wb = Workbooks("Z:\dir\bla.xls") 'THIS WILL COME TRHOUGH WHEN I LOOP Set ws2 = wb.Sheets("TestSheet") 'SHEET NAME Set CurCell_2 = ws2.Range("A1") CurCell_2.Value = 5 

问题来了，它只有当我已经打开工作簿时才有效。 我可以用：

 Workbooks.Open 

但是，它在后台开放，需要很长的时间来贯穿全部。

任何人都可以帮助请

Answer 1

如果不打开工作簿，就无法做到这一点。 不过，我发现在我的情况下，使用Application.EnableEvents并将其设置为false大大加快了进程，因为我们有工作簿打开事件的macros。