Запуск Actions c помощью AOM

Здравствуйте,

Возникла такая проблема, не знаю как запустить определенные Actions с помощью скрипта. Тесты берутся из списка Excel и запускаются, а как запустить определенные Actions не знаю... :( весь инет перерыл, если кто-то посоветует решение,буду благодарен. Ниже код.
------------
Dim qtApp, qtTest, qtAction, qtResultsOpt, xlApp, xlBook, xlSheet, iRow, row_count, test_name, action
Set qtApp = CreateObject("QuickTest.Application") 'Create the Application object

'Start QuickTest
If Not qtApp.Launched then
qtApp.Launch
qtApp.Visible = True
end if

qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False
qtApp.WindowState = "Maximized"
qtApp.ActivateView "ExpertView"

'Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\filename.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
row_count = xlSheet.usedrange.rows.Count

For iRow = 2 to row_count
'Check if the application is not already Launched
test_name = xlSheet.Rows(iRow).Columns(1).Value
action = xlSheet.Rows(iRow).Columns(2).Value

' Open the test in editable mode
qtApp.Open test_name, False
qtApp.Options.Run.ViewResults = True
Set qtTest = qtApp.Test

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
qtResultsOpt.ResultsLocation = "V:\Results" ' Set the results location

qtTest.Run

qtTest.Close
Set qtResultsOpt = Nothing
Set qtTest = Nothing
Next

xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Set qtApp = Nothing

-----
eще нашел как получать номер и имя Action , но как запускать,так и не понял..разные варианты перепробовал, очень надо чтобы запускались не просто тесты, а именно конкретные акшены, поскольку,каждый тест содержит несколько акшенов,но не все их надо прогонять иногда.

oActCount=qtApp.Test.Actions.Count
For iCounter=1 to oActCount
act_name = qtApp.Test.Actions(iCounter).Name
Msgbox act_name
Next
----

спасибо

Возникла такая проблема, не знаю как запустить определенные Actions с помощью скрипта. Тесты берутся из списка Excel и запускаются, а как запустить определенные Actions не знаю... :( весь инет перерыл, если кто-то посоветует решение,буду благодарен. Ниже код.
------------
eще нашел как получать номер и имя Action , но как запускать,так и не понял..разные варианты перепробовал, очень надо чтобы запускались не просто тесты, а именно конкретные акшены, поскольку,каждый тест содержит несколько акшенов,но не все их надо прогонять иногда.

Почему бы не реорганизвать тесты так, чтобы можно было запускать именно тесты, а не отдельные сценарии? Зачем идти против модели, созданной разработчиками инструмента?

В QTP нельзя запускать отдельные сценарии. Запускается всегда тест, а не отдельные сценарии. Как вариант, можно сделать так:

• Создаете параметр теста строковый
• При запуске теста передаете в этот параметр имена сценариев, которые вам надо запускать, например "Action1,Action2,Action5"
• В самом тесте анализируете значение параметра ии уже внутри теста выстраиваете логику по запуску только тех сценариев, которые передали в параметре теста

Спасибо,

просто изначально тесты разделились в зависимости от функционала
и было разделено на несколько Actions, ручное добавление каких-то элементов и второй Action импорт элементов откуда-то.