Hi René,

thanks for your answer.

Application.Run did work sometimes but now it doesn't anymore. I don't know why. In detail:

For testing Application.Run I defined the following in an Excel document:



Sub Makro1()

MsgBox ("Message defined" & vbCrLf & "within VBA.")

End Sub



Function Makro2(ByVal mess As String, _

ByVal mess2 As String) As Integer

MsgBox (mess & vbCrLf & mess2)

Makro2 = 1

End Function



Sub CallMakro2()

Call Makro2("vb interner", "Aufruf")

End Sub



Sub Makro3(ByVal mess As Variant, _

ByVal mess2 As Variant)

MsgBox (mess & vbCrLf & mess2)

End Sub.



In my PowerScript function I tried the following calls:

Long ll

xlsInstanz.application.run("Modul1.Makro1") // first it worked, now it doesn't anymore.

xlsInstanz.application.run("Makro3", "line1: Greetings from", "line2: PowerScript") // worked occasionally

xlsInstanz.application.run("Modul1.Makro3", "line1", "line2") // never worked

ll = long(xlsInstanz.application.run("Makro2", "line1: Waiting for", "line2: an integer")) // worked one time (?)



I'm at a loss.

At moment I don't know why this happens.

Try to catch the OLERuntimeError and see the Description property to get more information about the error.

I guess that the macro is not available on secend call. But I don't know why.

xlsInstanz.nameofmacro() doesn't cause an error or throws an exception but is just ignored.

In VBA the following works:



Sub CallMakro2()

'VBA Excel macro

Call Makro1 ' works

Makro1 ' works

Call Makro2("VB internal", "call") ' works

End Sub



Thanks for your response.