MS Access打开Excel文件强制链接更新

Question

使用Access/Excel 2010.

此代码运行的帐户我没有直接访问，所以我不能混淆任何Excel设置。我只是在编码。

我想让MS Access打开一个工作簿，有时它会提示询问更新链接/刷新数据/等，我想自动对此表示肯定（而不是让过程得到挂断或继续陈旧的数据）。

这是我现在使用的代码：

If objXLT Is Nothing Then 
    Set objXLT = CreateObject("Excel.Application") 
End If 

Set xlWBk = objXLT.Workbooks.Open(file_name) 

其中objXLT和xlWBk都是对象。

我该如何强迫它做.Open自动更新？

Answer 1

从上Workbooks.Open method的DOX，使用UpdateLinks属性：

指定的文件中的方式的外部引用（链接），如下面的公式中的参照范围在Budget.xls工作簿= SUM（[Budget.xls] Annual！C10：C25）已更新。如果省略此参数，则会提示用户指定如何更新链接。有关此参数使用的值的更多信息，请参阅备注部分。如果Microsoft Excel以WKS，WK1或WK3格式打开文件并且UpdateLinks参数为0，则不会创建图表;否则Microsoft Excel将从附加到该文件的图形生成图表。

您提供的值：

0：打开工作簿时，外部引用（链接）将不会被更新。

3：打开工作簿时，将更新外部参照（链接）。

在您的代码：

Set xlWBk = objXLT.Workbooks.Open(file_name, UpdateLinks:=3)