| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- 请教自定义函数为什么调用的时候提示错误？ (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=13676) |
| -- 作者：百湛必胜客 -- 发布时间：2012/8/15 10:31:37 -- 请教自定义函数为什么调用的时候提示错误？ 以下内容为程序代码:
1 Function SEtclip(Formula) 2 \'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码 3 putclip=0 4 5 dim Label 6 dim Market 7 Result= Application.GetCurrentStock(Label,Market) 8 if Result = 0 then 9 msgbox "请选择一个品种" 10 end if 11 12 Set objIE = CreateObject("InternetExplorer.Application") \'调用MSie的剪贴板实现复制股票代码 13 objIE.Navigate("about:blank") 14 objIE.document.parentwindow.clipboardData.SetData "text", Label 15 objIE.Quit 16 17 msgbox "已成功将"&Market&Label&"复制到粘贴板" 18 19 End Function 20
公式中调用SETCLIP()提示“缺少对象objIE.document”！为何？
|
| -- 作者：王锋 -- 发布时间：2012/8/15 10:36:23 -- 12 Set objIE = CreateObject("InternetExplorer.Application") \'调用MSie的剪贴板实现复制股票代码 试试这段代码在宏里调用看看，可能是VBS不支持IE浏览器对象的吧 |
| -- 作者：百湛必胜客 -- 发布时间：2012/8/15 11:43:04 -- VBS肯定支持IE浏览器对象，我试过将类似的代码存成VBS文件点击单独运行，没有什么错误 难道金字塔对VBS做了阉割缩减？ [此贴子已经被作者于2012-8-15 11:44:40编辑过]
|