调用语音，EXCEL崩溃无响应

garethemmanuel · 发表于 2013-2-11 16:38

本帖最后由 garethemmanuel 于 2013-2-18 22:03 编辑

sTmpPath = Space(255)
GetTempPath 255, sTmpPath
sTmpPath = Left(sTmpPath, InStr(sTmpPath, Chr(0)) - 1)
sFile = sTmpPath & mciID Mod 2 & ".mp3"
mciID = mciID + 1
Set objJs = CreateObject("MSScriptControl.ScriptControl")
objJs.Language = "JavaScript"
sWord = objJs.Eval("encodeURI('" & Replace(sWord, "'", "\'") & "');")
URLDownloadToFile 0, "http://translate.google.cn/translate_tts?ie=UTF-8&q=" & sWord & "&tl=en&prev=input", sFile, 0, 0
mciExecute "play " & sFile

该贴已经同步到 garethemmanuel的微博

lzqlaj · 发表于 2013-2-11 20:25

是不是网络问题。装个语音引擎，调用系统的更好。

garethemmanuel · 发表于 2013-2-12 17:56

lzqlaj 发表于 2013-2-11 20:25
是不是网络问题。装个语音引擎，调用系统的更好。

不是网络问题。我在其它电脑就没事，但有的电脑点击就会假死机，动不了。。。。

garethemmanuel · 发表于 2013-2-13 21:49

本帖最后由 garethemmanuel 于 2013-2-14 11:39 编辑

lzqlaj 发表于 2013-2-11 20:25
是不是网络问题。装个语音引擎，调用系统的更好。

mciExecute "play " & sFile 应该是这句引起

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

[求助] 调用语音，EXCEL崩溃无响应

最新热点 /1