怎样：自动定时运行宏？例每20秒运行一次宏？

baodingwang 2004-12-26 10:34:15

怎样：自动定时运行宏？例每20秒运行一次宏？
我在office外部程序中调用excel标准表并在表中写一些数据-能写；
我在excel中编写了宏（根据表格内容的多少，调整表格的高度）-打开excel、写进内容、宏没有执行（一些表格内容具多，行高小，所以好多内容没有显示出来）；
如果宏能定时执行，应该可以解决！

在内容相关的地方设置了自动换行。
用DDE方法操纵excel.

有其他方法同样感谢！

另外：下面的语法可以执行--ClientDDEExecute (systemlink, "[QUIT()]", 0);
那么我想让它执行vba中的 range("e2").select
怎样实现呢？

我听说ClientDDEExecute 可以调用宏，有怎样的语法和事例呢？

谢谢，大虾。

...全文

1009 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

baodingwang 2005-01-04

打赏
举报

回复

相互勉励吧

baodingwang 2004-12-31

打赏
举报

回复

我找到了dde关于运行宏的格式：
ClientDDEExecute (systemlink, "[RUN(macro)]", 0);

xthand 2004-12-28

打赏
举报

回复

没明白你的意思
不过你可以试试　Application.OnTime　具体用法查看EXCEL帮助

使用自动化运行Word VBA 宏

输入时间间隔，程序自动运行键盘F5，使用VB6.0开发

excel打开后定时自动打印 Sub auto_open() '设置一个自动运行的宏——auto_open Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00（可以根据需要修改），设置调用提醒宏——tx。 Application.OnTime TimeValue("08:52:00"), "tx" '再设置提醒一次。 End Sub Sub tx() '设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称一致）。 Dim prtfileName As String prtfileName = "e:\\abc.xps" Sheets("Sheet1").Select ActiveSheet.PrintOut From:=1, To:=1, PrintToFile:=True, Copies:=1, PrToFileName:=prtfileName End Sub

Excel-VBA宏编程实例源代码-指定运行的时间.zip

Excel-VBA宏编程实例源代码-数据的导入导出-自动导入文本文件.zip

Office开发/ VBA

5,172

社区成员

17,904

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章