请教定时激发时间代码实现语音播放

kang2431 · 发表于 2015-7-20 12:54

期末考试时设计了一个广播语音词提醒考生的语音信息，由于本人水平有限，只能实现到时间手动播放，请教老师们写一下代码，实现到时间自动播放语音提示，谢谢！

cqlpjxx · 发表于 2015-7-20 16:35

见附件，在网上查了一下，试试行不行

kang2431 · 发表于 2015-7-22 10:30

cqlpjxx 发表于 2015-7-20 16:35
见附件，在网上查了一下，试试行不行

谢谢！能实现到时间自动播放指定语音，但会一直播不停。只要只播放两次就可以了

mike780903 · 发表于 2018-8-4 13:28

kang2431 发表于 2015-7-22 10:30
谢谢！能实现到时间自动播放指定语音，但会一直播不停。只要只播放两次就可以了

高手不在，可能搞不好，

mike780903 · 发表于 2018-8-4 13:49

高手谈恋爱中。。。。。没时间理你

719404338 · 发表于 2018-8-4 20:27

kang2431 发表于 2015-7-22 10:30
谢谢！能实现到时间自动播放指定语音，但会一直播不停。只要只播放两次就可以了

Sub time()
Application.OnTime TimeValue("08:40:00"), procedure:="考试准备"
End Sub
Sub 考试准备()
Application.Range("b5").Speak
End Sub

复制代码

ivccav · 发表于 2018-8-4 21:13

本帖最后由 ivccav 于 2018-8-4 21:15 编辑

其实2楼的代码是错误的，且没有办法正常退出EXCEL。

OnTime每执行一次就累加一次，并不会覆盖之前的设置，所以，

用2楼的代码，每秒不断循环设置，等到考试结束，也没有办法读完第一条播报内容。

已经修正其错误，测试可用，并可正常关闭EXCEL。

期末考试广播词.zip (13.69 KB, 下载次数: 45)

		自动登录	找回密码
密码			免费注册

[求助] 请教定时激发时间代码实现语音播放