[英]Unintended file dialog when updating links in Excel 2003 VBA
我為公司的每個項目保留了一組相互關聯的Excel 2003電子表格。
我想將一些模板XLS文件復制到項目名稱,並更改將它們彼此連接的鏈接。
例如,文件TEMPLATE_ScanProgress.xls鏈接到TEMPLATE_Film_Review.xls。
我將它們都復制到123456_ScanProgress.xls和123456_Film_Review.xls,並更新123456_ScanProgress.xls中的鏈接。
我正在做的示例代碼:
If Dir("WorkOrder & "_ScanProgress.xls") = "" Then
FileCopy "TEMPLATE_ScanProgress.xls", WorkOrder & "_ScanProgress.xls"
Workbooks.Open Filename:=WorkOrder & "_ScanProgress.xls", UpdateLinks:=0
ActiveWorkbook.ChangeLink "TEMPLATE_Film_Review.xls", _
WorkOrder & "_Film_Review.xls", _
xlLinkTypeExcelLinks
Workbooks(WorkOrder & "_ScanProgress.xls").Close SaveChanges:=True
Else
FileExists = True
FileExistsWarning_7 = WorkOrder & "_ScanProgress.xls"
End If
問題是,當代碼嘗試更新鏈接時,即使我已經在代碼中指定了想要的文件,我也會看到一個文件對話框,要求我選擇要更改的文件。
嘗試將DisplayAlerts設置為False。 DisplayAlerts位於Application對象上,用於例如在覆蓋文件時隱藏對話框。 在這種情況下也可能起作用。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.