Question

我为我公司的每个项目保留了一系列相互关联的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

问题是，当代码尝试更新链接时，我会收到一个文件对话框，要求我为更改选择一个文件，即使我已经在代码中指定了我想要的文件。

Answer 1

尝试将DisplayAlerts设置为False。 DisplayAlerts位于Application对象上，用于在覆盖文件时禁止显示对话框。它也可能适用于这种情况。

更新Excel 2003 VBA中的链接时出现意外的文件对话框

1 个答案: