Laufzeitfehler 91

Sub ExportTestCases()
Const xlLeft = -4131
Const xlRight = -4152
Const xlCenter = -4108
Const xlGeneral = 1
Dim QCConnection
'Return the TDConnection object.
Set QCConnection = CreateObject("TDApiOle80.TDConnection")
Dim sUserName, sPassword, sPath
sUserName = "xxx"
sPassword = "xxx"
QCConnection.InitConnectionEx "http://qualitycenter.com/qcbin"
QCConnection.login sUserName, sPassword
If (QCConnection.LoggedIn  True) Then
MsgBox "QC User Authentication Failed"
'WScript.Quit
End If
Dim sDomain, sProject
sDomain = "Domain"
sProject = "Project"
QCConnection.Connect sDomain, sProject
If (QCConnection.Connected  True) Then
MsgBox "QC Project Failed to Connect to " & sProject
'WScript.Quit
Else
MsgBox "Connection to " & sProject & " successful"
End If
Dim TestFactory, TestList, tsTreeMgr, nPath, tsFolder, tsff
Set TestFactory = QCConnection.TestFactory
Set tsTreeMgr = QCConnection.TestSetTreeManager
nPath = "01_Integrationprogram"
Set tsFolder = tsTreeMgr.NodeByPath(nPath)
Set tsff = tsFolder.TestSetFactory.Filter
Set TestList = tsff.NewList()
Dim TestCase, Excel, Sheet
Set Excel = CreateObject("Excel.Application") 'Open Excel
Set Sheet = Sheets("Tabelle1")
With Sheets("Tabelle1").Range("A1:H1")
.Font.Name = "Arial"
.Font.FontStyle = "Bold"
.Font.Size = 10
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 15 'Light Grey
End With
Sheet.Cells(1, 1) = "Subject (Folder Name)"
Sheet.Cells(1, 2) = "Test Name (Manual Test Plan Name)"
Sheet.Cells(1, 3) = "Description"
Sheet.Cells(1, 4) = "Designer (Owner)"
Sheet.Cells(1, 5) = "Status"
Sheet.Cells(1, 6) = "Step Name"
Sheet.Cells(1, 7) = "Step Description(Action)"
Sheet.Cells(1, 8) = "Expected Result"
Dim Row
Row = 2
'Iterate through all the tests.
For Each TestCase In TestList
Dim DesignStepFactory, DesignStep, DesignStepList
Set DesignStepFactory = TestCase.DesignStepFactory
Set DesignStepList = DesignStepFactory.NewList("")
If DesignStepList.Count = 0 Then
'Save a specified set of fields.
'Sheet.Cells(Row, 1).Value TestCase.Field("TS_SUBJECT").Path
Sheet.Cells(Row, 2).Value = TestCase.Field("TS_NAME")
Sheet.Cells(Row, 3).Value = TestCase.Field("TS_DESCRIPTION")
Sheet.Cells(Row, 4).Value = TestCase.Field("TS_RESPONSIBLE")
Sheet.Cells(Row, 5).Value = TestCase.Field("TS_STATUS")
Row = Row + 1
Else
For Each DesignStep In DesignStepList
'Save a specified set of fields.
'Sheet.Cells(Row, 1).Value = TestCase.Field("TS_SUBJECT").Path
Sheet.Cells(Row, 2).Value = TestCase.Field("TS_NAME")
Sheet.Cells(Row, 3).Value = TestCase.Field("TS_DESCRIPTION")
Sheet.Cells(Row, 4).Value = TestCase.Field("TS_RESPONSIBLE")
Sheet.Cells(Row, 5).Value = TestCase.Field("TS_STATUS")
'Save the specified design steps.
Sheet.Cells(Row, 6).Value = DesignStep.StepName
Sheet.Cells(Row, 7).Value = DesignStep.StepDescription
Sheet.Cells(Row, 8).Value = DesignStep.StepExpectedResult
Row = Row + 1
Next
End If
Next
MsgBox "Testcases Done"
QCConnection.Disconnect
QCConnection.Logout
QCConnection.ReleaseConnection
End Sub