如何使用VBA更新Excel中的文件链接

问：

在我的 Excel 工作表中，我有一些文件链接到它，这些文件来自两个文件夹 c/desktop/2022/user、c/desktop/2022/source - 旧文件夹。这些文件的文件名位于 j 列中。现在我想编写一个宏，它会自动更新 excel 中链接的文件，其中包含文件名在 d 列中的相应文件，这些文件可以在文件夹 c/desktop/2023/user ， c/desktop/2023/source- new 文件夹中找到。

我尝试了下面的宏，但代码将我带到文件夹位置 c/desktop/2023/user 以选择文件以更新每个文件的文件链接。我希望这也可以由宏本身完成，我希望代码在两个文件夹 c/desktop/2023/user/、c/desktop/2023/source 中查找文件

Sub UpdateLinks()
    Dim oldFileName As String
    Dim newFilePath As String
    Dim i As Long
    
    ' Iterate through all rows in Column J
    For i = 1 To Cells(Rows.Count, 10).End(xlUp).Row
        ' Check if the cell in Column J is not empty
        If Cells(i, 10).Value <> "" Then
            ' Get the old file name
            oldFileName = Cells(i, 10).Value
            
            ' Get the new file path from Column D
            newFilePath = "c/desktop/2023/user" & Cells(i, 4).Value
            
            ' Update the link
            On Error Resume Next
            ThisWorkbook.ChangeLink Name:=oldFileName, NewName:=newFilePath, Type:=xlExcelLinks
            On Error GoTo 0
        End If
    Next i
End Sub