excel - 更新文件夹内所有 excel 文件中的链接

Question

我对编写 VBA 宏还很陌生，我确信我犯了一个愚蠢的错误。所以我从互联网上找到的位中编写了这段代码，以尝试自动更新特定文件中所有文件的链接文件夹。当我尝试运行它时，我收到以下错误：

“参数数量错误或属性分配无效”。

任何帮助将非常感激。

Sub ChangeLink()

Dim wb As Workbook
Dim mergeObj As Object
Dim folderObj As Object
Dim filesObj As Object
Dim everyObj As Object

Set wb = ThisWorkbook
Set mergeObj = CreateObject("Scripting.FileSystemObject")
Set folderObj = mergeObj.Getfolder("W:\Finance\01 Draft2")
Set filesObj = folderObj.Files

For Each everyObj In filesObj
Set wb = Workbooks.Open(filesObj, UpdateLinks:=0)

ThisWorkbook.ChangeLink Name:="W:\06 Dec 19 AEF.xlsx", NewName:="W:\Finance\07 Jan 20 AEF.xlsx", Type:=xlExcelLinks

ThisWorkbook.Saved = True
ThisWorkbook.Close

Next

End Sub

标签： excelvbahyperlink