VBA调用matlab出现程序被占用 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → VBA调用matlab出现程序被占用

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

共有3481人关注过本帖树形打印复制链接主题：VBA调用matlab出现程序被占用

小王

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：5 积分：0 威望：0 精华：0 注册：2018/6/7 10:45:48

VBA调用matlab出现程序被占用 发帖心情

Post By：2018/6/7 11:03:39 [只看该作者]

VBA调用matlab出现由于另一个程序正在运行，此操作无法完成，请切换或重试的问题

Dim Matlab As Object '全局变量声名

On Error Resume Next '对于matlab的打开、声明和错误处理
Set Matlab = GetObject("", "Matlab.Application")
If Err Then
Err.Clear
Set Matlab = CreateObject("Matlab.Application")
If Err Then
MsgBox "软件不能打开MATLAB,请重试!"
Exit Sub
End If
End If

'隐藏matlab窗口
Matlab.Visible = False

Call Matlab.PutFullMatrix("WDZ", "base", WDZ, IM)

Matlab.Execute ("load e:\data.mat;wip=WDZ(1,1:14);t0=WDZ(1,15);[X]=fun123(wip,t0,A);load e:\matlab2.mat;Attributes=X(1,:);[predict_label1]=svmpredict(1, Attributes,svmModel);z=predict_label1;")
Call Matlab.GetFullMatrix("z", "base", z, IM)
For j = 1 To 1
Yc1 = z(1, j)
Next
Call Matlab.Quit
Set Matlab = Nothing