Excel VBA更新鏈接

Question

我正在嘗試設置VBA宏以更新excel中的鏈接路徑。 我在網上查找了一些代碼，並試圖將它們放在一起，但出現了錯誤。 我想知道我是否可以在這里找到方向。 請注意，我不是專業的程序員，只是想減少一些手動更新工作。

干杯!

私人子CommandButton1_Click（）

Dim FolderPath As String
Dim FSO As Object
Dim bookname As String
Dim wbook As Workbook
Dim oldname As String
Dim newname As String

oldname = "C:\Users\XX\Documents\[Broadstreet.xlsx]"

newname = "C:\Users\XX\Documents\[Broadstreet2.xlsx]"

FolderPath = "C:\Users\XX\Documents1"


With Application
    .ScreenUpdating = False
    .AskToUpdateLinks = False
End With


For Each Workbook In FSO.GetFolder(FolderPath).Files
    bookname = Workbook.Name

    MsgBox (bookname)

    Set wb = Workbooks.Open(FolderPath & "\" & bookname)

   ActiveWorkbook.ChangeLink oldname1, newname1, xlLinkTypeExcelLinks


   wb.Close SaveChanges:=True

Next

Application.ScreenUpdating = True

結束子

Answer 1

文件夾處理中的工作簿

• 循環瀏覽文件夾中的所有Excel文件（工作簿），打開每個文件，將鏈接從一個文檔更改為另一個文檔，保存更改並關閉工作簿。

• xlLinkTypeExcelLinks是ChangeLink方法的Type參數的默認參數，因此可以省略。
• .Close True可以通過這種方式使用，因為SaveChanges是Close方法的第一個參數。

編碼

Private Sub CommandButton1_Click()

  Const strOld As String = "C:\Users\XX\Documents\[Broadstreet.xlsx]"
  Const strNew As String = "C:\Users\XX\Documents\[Broadstreet2.xlsx]"
  Const strPath As String = "C:\Users\XX\Documents1"
  Const strExt As String = "*.xls*"

  Dim strName As String

  With Application
    .ScreenUpdating = False
    .AskToUpdateLinks = False
  End With

  On Error GoTo ProcedureExit

  strName = Dir(strPath & "\" & strExt)

  Do While strName <> ""
    With Workbooks.Open(strPath & "\" & strName)
      .ChangeLink strOld, strNew
      .Close True
    End With
    strName = Dir
  Loop

ProcedureExit:
  With Application
    .AskToUpdateLinks = True
    .ScreenUpdating = True
  End With

End Sub