- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- VBA执行错误 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=161612)
-- 发布时间：2018/2/18 16:43:30
-- VBA执行错误
在4.5版和4.6版VBA执行 Set Wrap = CreateObject("DynamicWrapper")语句时，出现如下错误。4.2以前版本正常。
此主题相关图片如下：dfu{3~gadfdtk7%o(18.jpg
-- 发布时间：2018/2/18 19:07:13
--
32位金字塔
Dim UserWrap
Set UserWrap = CreateObject("DynamicWrapper")
\'准备使用GetPrivateProfileString这个API函数
UserWrap.Register "kernel32.DLL", "GetPrivateProfileString", "i=ssssls","f=s", "r=l"
64位金字塔
Dim UserWrap
Set UserWrap = CreateObject("DynamicWrapperX")
\'准备使用GetPrivateProfileString这个API函数
UserWrap.Register "kernel32.DLL", "GetPrivateProfileString", "i=ssssls","f=s", "r=l"
注意：64位金字塔的对象名与32位不同。