如何确定ActiveWorkbook.RefreshAll 已经完成

qq89486841

我在excel中建立了一些数据链接，链接到access数据库，用来检查数据是否有缺失

下图红色方框部分如有数据，则将其复制到其他表中吗，代码我已经写好，但是在运行过程中发现

运行ActiveWorkbook.RefreshAll后，链接表还没有全部刷新完，系统已经执行后面的语句了，导致判断失败，所以请问如何知道所有链接表都已经更新完或者说，在全部刷新完成前，暂缓运行后面的代码，我试过application.wait 跟do loop 方法，都不行

sub 补充缺失记录
     ActiveWorkbook.RefreshAll
    Worksheets("计划联络表汇总整理").AutoFilterMode = False
    a0 = Worksheets("计划联络表汇总整理").Range("a65536").End(xlUp).Row + 1
    Worksheets("数据检查").Select
    a1 = Application.WorksheetFunction.Match("Z002_数据缺失_B006Y与B004N", Worksheets("数据检查").Range("a1:a30000"), False)
    a2 = a1 + 2
   
    If Cells(a2, 4) <> "" Then     因为数据刷新未完成，执行到这里的时候，单元格为空值，导致复制数据失败
        a3 = Worksheets("数据检查").Range("D" & a2).End(xlDown).Row
        If a3 > 65536 Then
            a3 = a2
        End If
    Worksheets("数据检查").Range("B" & a2 & ":F" & a3).Copy Sheets("计划联络表汇总整理").Range("a" & a0)
    计划联络表重算及复制到ACC
    ActiveWorkbook.RefreshAll
    End If
End Sub

qq89486841

自己顶一下

qq89486841

再自己顶一下，中午都休息了吗

sz_wap

qq89486841 发表于 2014-6-20 12:43
再自己顶一下，中午都休息了吗

将有关查询的属性里的“后台刷新”禁用

qq89486841

sz_wap 发表于 2014-6-20 13:22
将有关查询的属性里的“后台刷新”禁用

非常感谢，按你的方法已经解决了，真的很感谢

拼音佳佳

sz_wap 发表于 2014-6-20 13:22
将有关查询的属性里的“后台刷新”禁用

将有关查询的属性里的“后台刷新”禁用
录制宏的时候有这个代码
  ActiveWorkbook.RefreshAll
默认下,该代码并不按顺序执行,而是在vba代码执行结束后,运行一次.
导致的问题:我需要先刷新,再复制,结果就无法获得刷新后的数据.
按这个方法,就可以在代码出现的位置进行刷新操作,问题解决,感谢!

诡途

想问下楼主怎么实现的？

assumy

诡途 发表于 2020-2-27 16:01
想问下楼主怎么实现的？

楼主的问题是:
在excel中建立了一个查询, 链接到外部数据库
写了一段代码, 使用ActiveWorkbook.RefreshAll刷新这个查询
但是由于无法判断这个刷新是否完成了, 导致后面的代码运行出错


后面的回复其实已经解决了这个问题:
将有关查询的属性里的“后台刷新”禁用

具体做法是: 数据->查询和链接->在右边弹出的窗格里面,选中查询->右键->属性->把允许后台刷新前面的勾去掉.


希望这么描述能帮到你