[求助] 求一个更新外部关联文件数据的宏，需要无论外部文件是否打开都能更新数据

flyflier

cutecpu 发表于 2021-2-25 17:56
嗯嗯， 我試的時候，也是在本地端測的
如果有單元格 是參考 外部連結的話，我也沒試過~哈哈

好的，谢谢了。

cutecpu

flyflier 发表于 2021-2-26 09:57
好的，谢谢了。

試試以下，藍色為新增的部份：

Sub Update_Links()
   For Each wbkPath In ThisWorkbook.LinkSources
      If Not IsWorkbookOpen(wbkPath) Then
         ThisWorkbook.UpdateLink Name:=wbkPath, Type:=XlLinkType.xlLinkTypeExcelLinks
      End If
   Next
End Sub

Public Function IsWorkbookOpen(sFileName) As Boolean
   If sFileName Like "http*" Then GoTo EXIT_
   On Error Resume Next
   Open sFileName For Binary Access Read Lock Read As #1
   Close #1
EXIT_:
   IsWorkbookOpen = IIf(Err.Number > 0, True, False)
   On Error GoTo 0
End Function

祝順心，南無阿彌陀佛！