0

您好我正在使用以下代码并尝试将结果写入 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
4

0 回答 0