11-07-2009, 02:57 AM
Paste the below code in the Excel Macro and this should solve your purpose.
Code:
Sub QTPInvoke()
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible
End Sub