VBA EXCEL 在不打开工作簿的情况下更新另一个工作簿中的单元格

Question

我有一个工作簿的名单目录，我想遍历他们withouth的打开并将更新在一定的工作表单元格

我试过用

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