Vbscript 尝试使用UFT在excel工作表列结果中写入结果

您好，我正在使用以下代码并尝试在excel工作表列名结果中写入结果，但它没有在其中写入结果，但是，它将导出工作表，但不会写入结果。你能帮我弥补一下我在这里缺少的东西吗？非常感谢所有的帮助。谢谢

DataTable.AddSheet "TestCases"
DataTable.AddSheet "TestSteps"

DataTable.ImportSheet "this is the excel sheet", "Tcases", "TestCases"
DataTable.ImportSheet "this is the excel sheet", "Tsteps", "TestSteps"

testcasecount = DataTable.GetSheet("TestCases").GetRowCount

For i = 1 To testcasecount

    DataTable.GetSheet("TestCases").SetCurrentRow (i)

    If DataTable.Value("Execution", "TestCases") = "Yes" Then

        stestcaseid = DataTable.GetSheet("TestCases").GetParameter("TestCaseID")
        teststepcount = DataTable.GetSheet("TestSteps").GetRowCount

        For j = 1 To teststepcount

            DataTable.GetSheet("TestSteps").SetCurrentRow (j)
            sid = DataTable.GetSheet("TestSteps").GetParameter("TestCaseID")

            If DataTable.GetSheet("TestSteps").GetParameter("TestCaseID") = stestcaseid Then

                Select Case DataTable.Value("Keyword", "TestSteps")
                    Case Browser()
                        sresult = Browser()
                End Select

                DataTable.Value("Result", "TestSteps") = sresult
            End If

            If sresult = "Pass" Then
                DataTable.Value("Result", "TestCases") = "Pass"
            End If

        Next

    End If

Next

DataTable.ExportSheet "this is the excel sheet", "TestCases"
DataTable.ExportSheet "this is the excel sheet", "TestSteps"

Function Browser()
    systemutil.Run "chrome.exe", "www.google.com"
    Browser = "Pass"
End Function

---

欢迎来到堆栈溢出！作为解决此问题的基本方法，您可以在代码中添加

MsgBox（）

调用来检查正在使用的值。例如，您可以检查

stestcaseid

、

sid

和

sresult

是否符合预期。例如，只需添加

MsgBox（“测试用例：”&stestcaseid）

。代码运行良好，它甚至可以导出excel工作表，但在某些地方它不会写入结果