我目前有一个宏,可以在其中打开另一个文件,复制数据,并使用宏将数据粘贴到文件中。我将数据复制到的供稿器文件具有指向其他其他工作簿的链接。在不提示我更新链接的情况下,如何继续执行宏。
Sub FeedFiles()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"T:\Planning\FY Budget\2018 Budget\Director Templates\With updates\2018 Budget PL_HC_CAP - Thomson_V2.xlsx" _
, Password:="Thomson18"
Workbooks("2018 Budget PL_HC_CAP -Thomson_V2.xlsx").Worksheets("Summary").Range("A1:AH227").Activate
Workbooks("2018 Budget PL_HC_CAP - Thomson_V2.xlsx").Worksheets("Summary").Range("A1:AH227").Copy
Workbooks("2018 Budget PL_HC_CAP - Total 802.xlsm").Worksheets("Thomson").Range("A1:AH227").PasteSpecial xlPasteValues
Workbooks("2018 Budget PL_HC_CAP - Thomson_V2.xlsx").Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
简而言之:Workbooks.Open方法具有多个参数。其中之一是UpdateLinks
必须设置的false
。
Dim wbk As Workbook
Set wbk = Application.Workbooks.Open(FileName:="FullePathToExcelFile", UpdateLinks:=False)
尝试!祝好运!
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句