在VBA中编辑指向文件的链接（在Publisher中）

我正在尝试使用Publisher编辑许多Excel文件的链接。鉴于微软似乎不允许使用相对链接，我尝试在VBA中创建类似的东西。我没有在网上找到很多文档，只是找到了一些链接资源的参考

---

是否有可能使用VBA更改这些链接

我假设您知道如何将引用添加到Excel对象库。然后阅读链接：

dim xl as New Excel.Application
xl.Visible = True
Dim wb As Workbook
Set wb = xl.Workbooks.Open("C:\path to \Myworkbook.xlsx")
Dim v As Variant
v = wb.LinkSources(xlExcelLinks)
Dim first_link as String
first_link = v(1) 
MsgBox "First link is to " & first_link

Dim new_link as String
new_link = "C:\path to\Alternative link.xlsx"
wb.ChangeLink first_link, new_link

要更改链接，请执行以下操作：

dim xl as New Excel.Application
xl.Visible = True
Dim wb As Workbook
Set wb = xl.Workbooks.Open("C:\path to \Myworkbook.xlsx")
Dim v As Variant
v = wb.LinkSources(xlExcelLinks)
Dim first_link as String
first_link = v(1) 
MsgBox "First link is to " & first_link

Dim new_link as String
new_link = "C:\path to\Alternative link.xlsx"
wb.ChangeLink first_link, new_link

希望你能明白