필터 지우기
필터 지우기

Close Command after running MATLAB function in EXCEL VBA

조회 수: 4 (최근 30일)
Surae
Surae 2011년 7월 19일
Hi,
I'm finding a close command after running a M file in EXCEL VBA.
Because I got a alert message like "Microsoft Office Excel is waiting for another application to complete on OLE action" after running a M file in Excel VBA.
Do you have any idea about the close MATLAB application command in VBA?
Dim MatLab As Object
Dim Result As String
Set MatLab = CreateObject("MatLab.desktop.Application")
Result = MatLab.Execute("cd('C:\Documents and Settings\M02043\Desktop\MATLAB Interface Test')")
Result = MatLab.Execute("f_ann")
End Sub
Thanks a lot in advance.
  댓글 수: 1
Kaustubha Govind
Kaustubha Govind 2011년 7월 19일
Try
MatLab.Execute("quit")
I don't know if this will fix the error though.

댓글을 달려면 로그인하십시오.

답변 (3개)

Surae
Surae 2011년 7월 20일
Hi,
I got an solution for this issue. Please have a look at following if anyone have a similar problem like me.
This alert message seems to occur from MS office itself due to using an external application and I could disregard the message as below.
Good luck.
Dim lDisplayAlerts as Boolean
lDisplayAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
.
.
.
.
Application.DisplayAlerts = lDisplayAlerts
  댓글 수: 1
Chirag Gupta
Chirag Gupta 2011년 7월 20일
Please accept your answer, so that it is easily available to others!

댓글을 달려면 로그인하십시오.


Chirag Gupta
Chirag Gupta 2011년 7월 19일
Kaustubha's suggestion looks good to me. Is your routine f_ann finished when you try and exit?

Surae
Surae 2011년 7월 19일
Hi,
I tried it with below Macro already but I still couldn't exit Matlab application without closing "Microsoft Excel Office Excel is waiting ... OLE action" message.
Result = MatLab.Execute("quit")
'exit' also doesn't work.
Is there anybody having a similar problem like me? Thanks,

카테고리

Help CenterFile Exchange에서 Data Export to MATLAB에 대해 자세히 알아보기

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by