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链接
'
    For Each OLEObj In ActiveSheet.OLEObjects
        OLEObj.Update
    Next

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