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)