Excel中的更新链接提示仍然显示

我有这个代码的问题。 即使我已经包含这些代码,Excel仍然显示更新链接提示:

Workbooks(ActiveWorkbook.Name).UpdateLinks = xlUpdateLinksNever AppExcel.AskToUpdateLinks = False 

我做错了吗?

这是我的代码片段:

  ActiveWorkbook.SaveCopyAs dirName & "\" & folderName & "\" & ActiveWorkbook.Name Workbooks(ActiveWorkbook.Name).UpdateLinks = xlUpdateLinksNever AppExcel.AskToUpdateLinks = False Workbooks(ActiveWorkbook.Name).Close False 

谢谢!

我已经明白了! :)但是,感谢您的帮助。 我只需要把UpdateLinks:=True

  Set wb = Workbooks.Open(fileName:=fileName, UpdateLinks:=True) 

试试这个:

 Sub Auto_Open() UpdateLinks = xlUpdateLinksNever AskToUpdateLinks = False End Sub