Why "Invalid procedure call or argument (Error 5)" ??

[keldsor]

I execute this code (only part given here !):

    Dim FSted As String, FDato As String, DSted As String, DDato As String
    Dim xlApp As Excel.Application
    Set xlApp = GetObject(, "Excel.Application")
    AppActivate xlApp           <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Error 5
    maxGk = DMax("Gk", tblNavnA)
    ReDim GkKoor(maxGk)            ' holder styr på ANTAL personer
    Set tbl = GetTable("PERSON") ', "PrimaryKey")
    With tbl
        .MoveFirst

Why do I get this error 5 when the marked line is executed - xLApp has the value "Microsoft Excel" when I ask in the immidiate window

 

[Norie]

xlApp is an object, when you 'ask' in the Immediate Window you'll get it's 'default' property returned.

Try using xlApp.Caption instead.

 

[keldsor]

Arrrgh ... thx, that's it !