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

使用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方法的dox中，使用UpdateLinks属性：

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

您可以提供的值：

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

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

在你的代码中：

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