欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → VBA调用Python显示无效模块名

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2880人关注过本帖树形打印复制链接

主题：VBA调用Python显示无效模块名
帅哥哟，离线，有人找我吗？
要送milk去
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：30 积分：0 威望：0 精华：0 注册：2019/3/12 9:36:00 		VBA调用Python显示无效模块名  发帖心情 Post By：2019/5/27 9:23:57 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190527092015.png
图片点击可在新窗口打开查看

我设置了金字塔在启动时自动调用一个宏，这个宏调用了Python模块，但是会显示无效模块名。

 

模块名是没有写错的，因为我手动启动这个宏时，一切正常。  只有在自动启动时会显示无效模块名
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2019/5/27 10:25:17 [只看该作者]

已通过电话，试下把参数直接写死给python看会报错不

 回到顶部
帅哥哟，离线，有人找我吗？
要送milk去
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：30 积分：0 威望：0 精华：0 注册：2019/3/12 9:36:00 		  发帖心情 Post By：2019/5/27 10:39:26 [只看该作者]

Sub a()

'创建外部对象，启用Python引擎
Set d = CreateObject("Stock.Python")
 
'载入Python模块，模块名为MyPython
ret = d.ImportModule("jzt_MyPython1")
 
If ret <> 1 Then
  '载入失败，打印错误原因
Msg = d.GetErrorInfo()
Application.MsgOut Msg
Set Msg = Nothing'使用完毕需要 Set Nothing销毁以免出现内存泄漏
Exit Sub
End If
 
Data = d.CallObject("pytestmodule",123,"你好")
If IsEmpty(Data) Then
Msg = d.GetErrorInfo()
Application.MsgOut Msg
Set Msg = Nothing'使用完毕需要 Set Nothing销毁以免出现内存泄漏
Exit Sub
End If
'打印返回值
application.MsgOut "Result:"&Data
Set d = nothing'使用完毕需要 Set Nothing销毁以免出现内存泄
End Sub



Python模块代码：  

from PythonApi import *
print('sss')




您看，这样这也会显示 无效模块名jzt_MyPython1
 回到顶部
帅哥哟，离线，有人找我吗？
无为剑
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：2437 积分：0 威望：0 精华：0 注册：2016/3/5 22:53:41 		  发帖心情 Post By：2019/5/27 17:04:15 [只看该作者]

你在哪个VBA事件中调用了pyothon模块了？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.03125 秒, 5 次数据查询