Cập nhật đường dẫn liên kết với Word VBA

Tôi có các liên kết sau đến Excel trong một tài liệu từ:

Vấn đề là khi thay đổi được thực hiện phiên bản tài liệu trên cả bảng excel được tham chiếu và tài liệu từ thay đổi.

Như vậy tôi sẽ cần cập nhật đường dẫn liên kết.

Tôi muốn làm điều này với macro VBA và đây là những gì tôi có cho đến nay:

Sub Replace_Link()
Dim iShp As InlineShape
Dim exWb As Excel.Workbook
For Each iShp In ActiveDocument.InlineShapes
With ActiveDocument
        Set exWb = objExcel.Workbooks.Open(.Path & "\" & Replace$(.Name, ".docm", ".xlsm"))
    End With
  With iShp
     If Not .OLEFormat Is Nothing Then
      If Split(.OLEFormat.ClassType)(0) = "Excel" Then
        .LinkFormat.SourcePath = exWb
  End If
End If
  End With
Next
End Sub

Tôi đang nhận được một loại 'Người dùng xác định không được xác định' cho 'Dim exWb As Excel.Workbook'. Tôi cũng khá chắc chắn rằng tôi sẽ cần nhiều mã hơn để bao gồm các liên kết loại 'Bảng tính' không thể được cập nhật bằng lệnh 'inlineShape'.

Đây có phải là một cái gì đó bất cứ ai có thể giúp đỡ? TIA

— tên lửa_rabbit
nguồn

Bạn đã thêm một tài liệu tham khảo trong dự án VBA của mình vào "Thư viện đối tượng Microsoft Excel 14.0" chưa? (NB: 14.0 có thể khác nhau tùy thuộc vào phiên bản Excel bạn đã cài đặt)

Trong cửa sổ VBA của bạn, từ menu Công cụ, chọn Tài liệu tham khảo để hiển thị hộp thoại Tham khảo - Dự án. Sau đó cuộn xuống danh sách và tìm thư viện Microsoft Excel và đánh dấu vào ô (sau đó nó sẽ xuất hiện ở đầu danh sách tài liệu tham khảo của bạn).

— Tanya
nguồn