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

Question

我有一个包含工作簿列表的目录，我想在不打开它们的情况下循环浏览它们并更新某个工作表中的单元格

我试过用

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 大大加快了进程，因为我们在工作簿打开事件上有宏。