启动文件写入事件，如何判断打开状态完成？

Piaofcu

    第三方软件导入数据到一个新的xlt文件中。    现在想在打开事件中发送命令，前提是必须等待表格完全打开，即数据输入完成（或者叫停止刷新）后再发送命令，
    数据输入的过程约1～10秒不等，请教这个过程应该如何写代码？
    Baidu多次也找不到好的解决办法，要么是设定等待时间，但测试下来，效果不太理想。请前辈们指定一下！

打开事件如下：

1. Private Sub WorkBook_Open()
   
2.   if ... then   <font color="#ff00ff">???</font>
   
3.    SendKeys "%G"
   
4. end if
   
5. End Sub

复制代码

liulang0808

在事件中使用Application.Wait 设置等待时长呢？

Piaofcu

liulang0808 发表于 2018-6-26 07:01
在事件中使用Application.Wait 设置等待时长呢？

感谢指点，不过这就是先前测试过的方法，有时1秒可以完成的数据输入，也需要等10秒，影响执行效率。

如下：

1. Private Sub WorkBook_Open()
   
2. 
   
3.     newHour = Hour(Now())
   
4.     newMinute = Minute(Now())
   
5.     newSecond = Second(Now()) + 5
   
6.     waitTime = TimeSerial(newHour, newMinute, newSecond)
   
7.     Application.Wait waitTime
   
8.     DoEvents
   
9. 
   
10.     SendKeys "%X"
    
11.     SendKeys "D"
    
12. 
    
13. End Sub
    

复制代码

    此处的 DoEvents应该不能用吧？

想请教一下，还有没有其它的判定方法。

Piaofcu

Piaofcu 发表于 2018-6-26 08:44
感谢指点，不过这就是先前测试过的方法，有时1秒可以完成的数据输入，也需要等10秒，影响执行效率。

...

确定打开的。

Piaofcu

Piaofcu 发表于 2018-6-26 08:44
感谢指点，不过这就是先前测试过的方法，有时1秒可以完成的数据输入，也需要等10秒，影响执行效率。

...

确定会打开的。有时候打开后还会看到数据刷新几秒的。