如何自动更新外部链接的工作簿在Excel中使用VBA X区间后
|在本文中，您将学习如何使用VBA代码在x间隔时间之后自动更新外部工作簿链接。
问：如何每10秒自动刷新一次外部工作簿链接？
每10秒钟更新一次excel文件；我们需要执行以下步骤：
我们需要创建两个excel文件1）Source.xlsm和2）Target.xlsm现在我们需要打开两个文件。
在源工作簿中，我们在范围A1：D10中使用了RAND函数，然后使用“选择性粘贴”命令复制此范围，并在“目标工作簿”中选择“粘贴链接”，请参见下面的屏幕快照
在目标工作簿中；启动VB编辑器单击“开发人员”选项卡*从“代码”组中选择Visual Basic
在此工作簿模块中，输入以下代码
Private Sub Workbook_Open（）
调用Update_Links
结束子
-
单击插入，然后单击模块
这将创建新的模块。
在模块
中输入以下代码===子Update_Links（）
关于错误继续Next
ActiveWorkbook.UpdateLink名称：= ActiveWorkbook.LinkSources
Application.OnTime DateAdd（“ s”，10，Now），“ Update_Links”
结束子
上面的代码每10秒将继续运行并更新链接。