为什么执行到这里QTP就会无响应，只能重新打开

edisonlzk

1. Dim qtApp
   
2. Dim qtUpdateRunOptions
   
3. Dim qtRunResultsOptions
   
4. Dim blsSupportsVerCtrl
   
5. Set qtApp = CreateObject("QuickTest.Application")
   
6. qtApp.Launch
   
7. qtApp.Visible = True
   
8. 
   
9. qtApp.TDConnection.Connect "http://192.168.1.39/tdbin", _
   
10.               "DEFAULT", "B2B平台", "test", "11123", False '
    
11. If qtApp.TDConnection.IsConnected Then
    
12.     blsSupportsVerCtrl = qtApp.TDConnection.SupportVersionControl
    
13.    [color=Red] qtApp.Open "[QualityCenter] Subject\十月版本\B2BV1.6.9.1\Operate Excel", False [/color]'
    
14.     If blsSupportsVerCtrl Then
    
15.         qtApp.Test.CheckOut
    
16.     End If
    
17. 
    
18.     Set qtUpdateRunOptions = CreateObject("QuickTest.UpdateRunOptions")
    
19.        
    
20.     qtUpdateRunOptions.UpdateActiveScreen = True
    
21.     qtUpdateRunOptions.UpdateCheckpoints = False
    
22.     qtUpdateRunOptions.UpdateTestObjectDescriptions = True
    
23.     Set qtRunResultsOptions = CreateObject("QuickTest.RunResultsOptions")
    
24.         qtRunResultsOptions.ResultsLocation = "F:\Results"
    
25.     qtApp.Test.UpdateRun qtUpdateRunOptions, qtRunResultsOptions
    
26.     qtApp.Test.Description = qtApp.Test.Description & vbNewLine & _
    
27.                               "Updated: " & Now '
    
28.     qtApp.Test.Save
    
29.     If blsSupportsVerCtrl And qtApp.Test.VerCtrlStatus = "CheckedOut" Then
    
30.         qtApp.Test.CheckIn '
    
31.     End If
    
32.     qtApp.TDConnection.Disconnect
    
33. Else
    
34.     MsgBox "Cannot connect to Quality Center"
    
35. End If
    
36. 
    
37. qtApp.Quit
    
38. Set qtUpdateRunOptions = Nothing
    
39. Set qtRunResultsOptions = Nothing
    
40. Set qtApp = Nothing
    

复制代码

qtApp.Open "[QualityCenter] Subject\十月版本\B2BV1.6.9.1\Operate Excel", False '
我想问一下为什么脚本一执行到这就暂停了呢，而且QTP直接无响应，是不是因为中文的原因?
我是连接的TestDirector

TIB

调试一下这句：
If qtApp.TDConnection.IsConnected Then

edisonlzk

回2楼
这个语句是通过的，不然的话就会走ELSE那个分支啦。。
所以问题不在这

TIB

路径不对吧

lyscser

1、如果你是在QTP里面执行的代码，那肯定不行，因为QTP本身在执行，不可能再打开脚本
2、如果只是vbs单独执行，那么路径里面要去掉[QualityCenter]，这东西只是标示一个路径模式，QC或者本地，都已经连入QC，这个就不作为路径的一部分了。

edisonlzk

回复 5# lyscser


喔。应该就是你说的这样了。
我是在QTP里面执行的这段代码，估计问题就在这了吧