2014-09-10 32 views
1

我對此代碼有問題。 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 

謝謝!

+0

你是否把代碼放在Workbook_Open或Workbook_Close的工作簿事件中? – 2014-09-10 10:04:17

+0

沒有。我把它放在一個被button_click事件調用的Sub中。 – danielle 2014-09-11 00:41:37

+0

This Sub打開其他工作簿並將其另存爲不同的文件名。 @MarkFitzgerald – danielle 2014-09-11 00:44:35

回答

1

我已經知道了吧! :)但是,感謝您的幫助。我只需要把UpdateLinks:=True

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

試試這個:

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

我已經想通了。但是,謝謝你的迴應,雖然:) – danielle 2014-09-11 01:48:57