![链接 Excel 工作簿,以便我可以在另一台计算机上使用它们(Excel 2011 for Mac)](https://linux22.com/image/1380006/%E9%93%BE%E6%8E%A5%20Excel%20%E5%B7%A5%E4%BD%9C%E7%B0%BF%EF%BC%8C%E4%BB%A5%E4%BE%BF%E6%88%91%E5%8F%AF%E4%BB%A5%E5%9C%A8%E5%8F%A6%E4%B8%80%E5%8F%B0%E8%AE%A1%E7%AE%97%E6%9C%BA%E4%B8%8A%E4%BD%BF%E7%94%A8%E5%AE%83%E4%BB%AC%EF%BC%88Excel%202011%20for%20Mac%EF%BC%89.png)
我们有一个使用来自另一个工作簿的数据的 Excel 电子表格。
我们使用 Dropbox 来共享文件。
当我在另一台 Mac 或 PC 上打开电子表格时,链接需要重新链接。
有没有办法让链接仅引用直接文件夹?
以下是对该问题的进一步解释。
工作簿包含以下链接:~我的 mac/dropbox/工作/source.xlsx
在以下环境下打开时不起作用:~ãnother-mac/dropbox/work/source.xlsx
我希望 Excel 2011 for Mac 只查找〜/ dropbox /工作/源.xlsx
我读过几个关于绝对链接、相对链接和 UNC 链接的帮助页面。似乎可以使用短链接链接工作簿,但我无法让它工作。
这是 Mac 的问题吗?还是我自己的问题?
欢迎各位大佬的批评指正!
J
答案1
如果您的文件仅链接到另一本书,此 VBA 代码将更新到直接文件夹的链接:
Sub DropBox()
Dim vOldLink As Variant, sOldLink As String
vOldLink = ActiveWorkbook.LinkSources(xlExcelLinks)
sOldLink = vOldLink(1)
Dim vFilename As Variant, sFilename As String
vFilename = Split(sOldLink, "\")
sFilename = vFilename(UBound(vFilename))
Dim sPath
sPath = ThisWorkbook.Path & "\"
ActiveWorkbook.ChangeLink Name:=sOldLink, NewName:=sPath & sFilename, Type:=xlLinkTypeExcelLinks
End Sub
但我对 Mac 不太确定...