excelVBA的实时刷新(ontime应用)_ExceL对接用友金蝶

http://blog.sina.com.cn/u/5831663924

首页博文目录关于我

个人资料

ExceL对接用友金蝶

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：0

博客访问：13,258
关注人气：34
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

excelVBA的实时刷新(ontime应用)

(2016-03-16 20:53:03)

标签：

vba实时刷新

vba每隔一段时间自动

间隔性执行程序

ontime的应用

用友数据分析

分类： Excel_VBA

网址:http://blog.sina.com.cn/s/blog_15b9821340102w6ng.html

参考程序:

Public Sub jch01_05_明细表_页签_下拉菜单2_开启_实时刷新_VBA()

'定义一个object对象变量

Dim MingCheng_LeiMoKuai_03 As Object

'给变量赋值 ( 为:dll中的类模块)

Set MingCheng_LeiMoKuai_03 = CreateObject("A01_mdf_vba.jch01_05_明细表")

'调用dll中的类模块--对应的过程

Call MingCheng_LeiMoKuai_03.jch01_05_明细表_页签_执行_实时刷新的_SQL语句_并_查询出数据

'释放类资源

Set MingCheng_LeiMoKuai_03 = Nothing

'下面这两句程序是可以执行的,

TheTime = Now + TimeValue("00:00:20")

Application.OnTime TheTime, "jch01_05_明细表_页签_下拉菜单2_开启_实时刷新_VBA"

End Sub

Public Sub jch01_05_明细表_页签_下拉菜单2_停止_实时刷新_VBA()

'---下面这两段程序是可以执行的

On Error Resume Next

Application.OnTime TheTime, "jch01_05_明细表_页签_下拉菜单2_开启_实时刷新_VBA", , False

End Sub

-----------------------------

以上程序的问题:

如果同时打开两个写了同样宏的excel文件,只有处于激活状态的工作簿,才会执行实时刷新

所以以上的方法,只适合一个文件,执行实时刷新操作

------------------------------

如果您有任何问题或建议或疑问,欢迎反馈和交流,您的要求就是我们的方向和动力
更多<数据分析>模板,将陆续发布,敬请期待
用友数据分析
欢迎访问:http://www.df-bi.com
更多数据分析模型,欢迎扫描"微信公众号"
或者查找微信公众号:"DF数据工厂" 或 "data_f"

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：Visual Basic-文本框常用属性(vb的textbox控件的常用属性)

后一篇：从字符串转换为 datetime 时发生语法错误。

新浪BLOG意见反馈留言板　欢迎批评指正