open acad drawings within excel VBA

[garylee]

Tommy:

the error message still there..

Error occurs right after the "GetObject" line is exercuted
The program end there

The "Err.Description" line did not function.

I tried the following, still doesn't work..

If IsError(GetObject(, "AutoCAD.Application")) Then
   Err.Clear
   Set AcadApp = CreateObject("AutoCAD.Application")
   Else
   Set AcadApp = GetObject(, "AutoCAD.Application")
End If

Any idea how to check if autocad is already running??
autocad running --> use GetObject
autocad not running --> use CreateObject

thank you