qtp - Excel ファイルを QTP にインポートしているときに、「アプリケーションがビジー状態のため、操作に失敗しました」というメッセージが表示されます。

Question

これがコードです。

dim q_app
Set q_app=createobject ("Quicktest.application")
q_app.Launch
q_app.new
q_app.Visible =true
msgbox (" opens")
call q_app.Test.DataTable.Importsheet ("C:\xlfile.xls",1,1)
q_app.Test.DataTable.export ("C:\name-runtime.xls")
msgbox("opens")
q_app.Test.SaveAs("C:\testedxlfile")
q_app.Visible=true
q_app.Quit
Set q_app = nothing

そして、私はそのステップをスキップしています.7行目に一般的なエラーが表示されます.

ありがとう

Answer 1

QTP の自動化は、外部からテストを実行するために使用されることになっています。あなたが書いたコードをスタンドアロン.vbsファイルに入れると、それが適切に実行されました.QTP内から実行すると、アプリケーションがビジー状態であるというエラーが発生しました.現在実行中のテストのテーブル。

現在のテストを変更する場合は、はるかに簡単です。DataTableテストから直接オブジェクトを使用するだけです (QTP オブジェクトを作成する必要はありません)。

DataTable.ImportSheet "C:\xlfile.xls", 1, 1