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

flyflier

如题，求一个更新外部关联文件数据的宏，需要无论外部文件是否打开都能更新数据。下图 主表 分别从 外部表1 和 外部表2 关联了数据。当 外部表1 和 外部表2 处于关闭状态时，用最下图截图中的宏是可以对外部数据进行更新的，但是当 外部表1 和 外部表2 处于打开状态时，运行宏就会出错。
求一个无论外部文件是否处于打开状态，都能更新 主表 外部数据的宏。因为以后关联的外部文件会很多，是否有对所有源文件数据进行更新的宏？
先在这里感谢各位大神。

cutecpu

'Update formulas/links for all the open source workbooks
Sub Update_Links()
   For Each wbkPath In ThisWorkbook.LinkSources
      'Update formulas/links for all the closed source workbooks
      If Not IsWorkbookOpen(wbkPath) Then
         ThisWorkbook.UpdateLink Name:=wbkPath, Type:=XlLinkType.xlLinkTypeExcelLinks
      End If
   Next
End Sub
Public Function IsWorkbookOpen(sFileName) As Boolean
   On Error Resume Next
   Open sFileName For Binary Access Read Lock Read As #1
   Close #1
   IsWorkbookOpen = IIf(Err.Number > 0, True, False)
   On Error GoTo 0
End Function


祝順心，南無阿彌陀佛！

flyflier

cutecpu 发表于 2021-2-24 18:45
'Update formulas/links for all the open source workbooks
Sub Update_Links()
   For Each wbkPath In ...

你好，我把这个宏做成了按钮，但是点击后没有看到后台在读取外部文件信息。还是每次进入文件后，点击一次这个宏就可以了？

cutecpu

flyflier 发表于 2021-2-25 13:27
你好，我把这个宏做成了按钮，但是点击后没有看到后台在读取外部文件信息。还是每次进入文件后，点击一次 ...

您好，執行update_links即可

flyflier

cutecpu 发表于 2021-2-25 14:06
您好，執行update_links即可

是这样直接复制到模块里吗？但是点运行后没有反应。

cutecpu

flyflier 发表于 2021-2-25 15:03
是这样直接复制到模块里吗？但是点运行后没有反应。

您好，執行 update_links 後，資料沒更新嗎？

flyflier

cutecpu 发表于 2021-2-25 15:22
您好，執行 update_links 後，資料沒更新嗎？

没有哦，完全没有反应。

cutecpu

flyflier 发表于 2021-2-25 15:38
没有哦，完全没有反应。

可以上傳附件嗎

flyflier

cutecpu 发表于 2021-2-25 15:50
可以上傳附件嗎

刚才我又测试了一下，发现如果文件都在本地的话这个宏是可以用的。但是当文件在onedrive上就会有问题。
原文件涉及到公司讯息，不方便给你。附件是测试文件，用下面的单元格链接关联了一个单元格的数据。另外因为关联外部数据需要365的账号和密码，我也不能给你，不好意思。

下面是其中一个单元格的链接。

='https://aibida-my.sharepoint.cn/personal/gaf_aibida_partner_onmschina_cn/Documents/外部链接测试/[外部表1.xlsx]Sheet1'!A1



外部链接测试.rar (12.55 KB, 下载次数: 3)

2021-2-25 16:40 上传

点击文件名下载附件

cutecpu

flyflier 发表于 2021-2-25 16:42
刚才我又测试了一下，发现如果文件都在本地的话这个宏是可以用的。但是当文件在onedrive上就会有问题。
...

嗯嗯， 我試的時候，也是在本地端測的
如果有單元格 是參考 外部連結的話，我也沒試過~哈哈