MATLAB: Invoking Matlab function from VBA

getvariableMATLABmatlab functionvba

I am trying to invoke Matlab functions from VBA and wrote a simple example code to try it out. The code tries to calculate the determinant of a random 2×2 matrix.
Sub Code()
Dim DMat(1 To 2, 1 To 2) As Double, DetA As Object, Matlab As Object
Upper = 1000
Lower = 10
For i = 1 To 2
    For j = 1 To 2
        DMat(i, j) = ((Upper - Lower) * Rnd + Lower)
        Sheet1.Cells(i + 1, j) = DMat(i, j)
    Next
Next
Set Matlab = CreateObject("Matlab.Application")
On Error GoTo Errorfound
Matlab.PutWorkspaceData "A", "base", DMat
Matlab.Execute "Result = det(A);"
Set DetA = Matlab.GetVariable(“Result”, “base”)
Sheet1.Range("A6").Value = DetA
Exit Sub
Errorfound:
  With Err
    MsgBox "Source: " & .Source & vbCrLf & "Desc: " & .Description, vbCritical, "Error " & CStr(.Number)
  End With
End Sub
I get a Runtime error 440 on the line containing the GetVariable command. I have tried to use GetWorkspaceData instead of GetVariable, but the result is the same.
Where am I going wrong?

Best Answer

Very interesting. I never try out this way in VBA to call MATLAB, normally, I follow MATLAB spreadsheet link.
Or you try GetFullMatrix, dim your variable as double.
https://www.mathworks.com/help/matlab/matlab_external/call-a-matlab-function-from-visual-basic-net-client.html
remove set as it is not object anymore.
I guess it is because of the data type conversion. I faced it when I am using the MATLAB Api for python.
Related Question