VBA更新xlOLELinks链接的值

        xlOLELinks是在Excel文档中插入对象的链接，该链接能够显示被插入文档的数据，通常情况下链接的数值会自动更新，但有时更新也会不及时或失效，这时就需要手动更新，如下图：

        以插入Word文档为例，使用VBA更新的方法如下：

        一、更新单个 xlOLELinks 链接值

' 更新97-2003版Word文档的链接值
ActiveWorkbook.UpdateLink Name:="Word.Document.8|D:\Users\Hero\Desktop\我的文档.doc!'", Type:=xlOLELinks

' 更新docx版本Word文档的链接值
ActiveWorkbook.UpdateLink Name:="Word.Document.12|D:\Users\Hero\Desktop\我的文档.docx!'", Type:=xlOLELinks

        二、更新所有 xlOLELinks 链接值

Sub UpdateOLELinks()
'
' 更新当前工作表所有OLE链接值
'
    Dim OLELink As Object
    For Each OLELink In ActiveSheet.OLEObjects
        OLELink.Update
    Next OLELink

End Sub

Sub UpdateOLELinks()
'
' 更新工作簿所有OLE链接值
'
    Dim OLELink As Variant
    For Each OLELink In ActiveWorkbook.LinkSources(xlOLELinks)
        ActiveWorkbook.UpdateLink Name:=OLELink, Type:=xlOLELinks
    Next OLELink
    
End Sub