如何刷新云端文件的链接？答案

【问题标题】：How to refresh links to files on the Cloud?如何刷新云端文件的链接？
【发布时间】：2020-05-18 00:57:44
【问题描述】：

我有一个 Excel 电子表格，虽然我在打开电子表格时更新了所有链接，但链接没有更新。

我找到的唯一解决方案是用“=”替换“=”的 VBA 宏。这可行，但需要很长时间才能更新。所有单元格都链接到云端的 100 个单独文件。

有没有更好的办法？

Sub update()
    Windows("Company Database.xlsm").Activate
    Sheets("Tearsheet").Select
    Cells.Select
    Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
End Sub

【问题讨论】：

我想知道减少工作量是否会有所作为。试试看，Sheets("Tearsheet").UsedRange.Cells.Replace What:="=", Replacement:="=", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
您使用什么代码更新打开的链接？那个代码怎么叫？代码真的运行了吗？
ThisWorkbook 对象中的Private Sub Workbook_Open() Calculate End Sub 怎么样？
告诉我，如果你使用 DATA>>REFRESH ALL 会更新链接？？？
不，不幸的是，DATA>>全部刷新并不能解决问题。我不知道它是否与 OneDrive 文件的链接有关，或者其他什么，但似乎唯一有效的是用 = 替换 = 的非常生硬的工具。我也会尝试其他建议。谢谢大家！

标签： excel vba

【解决方案1】：

也许这行得通

Sub update()
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks
End Sub

或者这个：

  Sub update()
        ActiveWorkbook.RefreshAll
  End Sub

【讨论】：