在Excel中执行MATLAB命令

>> h=actxserver('matlab.application');
>> server_version=h.Execute('version')
server_version =
1.0.1.24704 (R14) Service Pack 1

Dim Matlab As Object
Dim server_version As text-blue-400">String
Set Matlab=text-blue-400">CreateObject("matlab.text-blue-400">application")
server_version=Matlab.Execute("version")

Option Explicit
'将MATLAB实例对象定义为公共变量
Public objMATLAB As Object
'定义一个实现计算或绘图的过程
Private Sub ComputeorPlot(CorP As Boolean)
  Dim intNum As Integer
  Dim intLevel As Integer
  Dim x(1 To 100) As Double
  Dim y(1 To 100) As Double
  Dim strModel As text-blue-400">String
  Dim i As Integer
  Dim strCommand As text-blue-400">String

  intNum=text-blue-400">Val(Text1.Text)
  intLevel=text-blue-400">Val(Text2.Text)
  Open App.Path + "/datX" For Output As 1
    Print #1, Text3
  Close 1
  Open App.Path + "/datY" For Output As 1
    Print #1, Text4
  Close 1
  Open App.Path + "/datX" For Input As 1
    For i=1 To intNum
        Input #1, x(i)
    Next i
  Close 1
  Open App.Path + "/datY" For Input As 1
    For i=1 To intNum
        Input #1, y(i)
    Next i
  Close 1

  '定义在MATLAB中要执行的命令
  strCommand="n=" & text-blue-400">Str(intLevel) & ";x=["
  For i=1 To intNum
    strCommand=strCommand & text-blue-400">Str(x(i)) & " "
  Next i
  strCommand=strCommand & "];y=["
  For i=1 To intNum
    strCommand=strCommand & text-blue-400">Str(y(i)) & " "
  Next i
  strCommand=strCommand & "];"
  If CorP Then
    strCommand=strCommand & "polyfit(x,y,n)"
    Text5=objMATLAB.execute(strCommand)
  Else
    strCommand=strCommand & "plot(x,y)"
    objMATLAB.execute (strCommand)
  End If

End Sub
'进行多项式拟合
Private Sub Command1_Click()
  Dim bolCorP As Boolean
  bolCorP=True
  Call ComputeorPlot(bolCorP)
End Sub
'进行绘图
Private Sub Command2_Click()
  Dim bolCorP As Boolean
  bolCorP=False
  Call ComputeorPlot(bolCorP)
End Sub
'退出程序
Private Sub Command3_Click()
  Set objMATLAB=Nothing
  Unload frmVBOLE
End Sub
Private Sub Form_initialize()
  '创建MATLAB的实例
  Set objMATLAB=text-blue-400">CreateObject("matlab.text-blue-400">application")
End Sub