Vbscript 尝试通过循环从Excel读取值并存储到环境变量

我正在尝试从Excel数据文件中读取值，并尝试将这些值存储到环境变量中。然后我想在测试中重用这些环境变量。 但是，下面的代码给了我意外的运行时错误。没有错误代码。当我用静态excel（行、列）修复代码时，我会得到结果，但我需要通过一个循环来控制它。我需要帮助

For x = 2 to Row_TD         
    TDID = TestData_Sheet.Cells (x , "A")       
    IF TestData_Sheet.Cells (x,"B") = "Y" Then      
        fnReadData


Function fnReadData 
    Environment.Value("URL") = TestData_Sheet.Cells(x,"C") 
    msgbox environment.Value("URL") 
    Environment.Value("Browser") = TestData_Sheet.Cells(x,"D")  
    msgbox environment.Value("Browser") 
    Environment.Value("City") = TestData_Sheet.Cells(x,"E")  
    Environment.Value("Zip") = TestData_Sheet.Cells(x,"F")   
    Environment.Value("LoanAmount") = TestData_Sheet.Cells(x,"G")  
    Environment.Value("DownPayment") = TestData_Sheet.Cells(x,"H")  
    Environment.Value("Points") = TestData_Sheet.Cells(x,"I")  
    msgbox Environment.Value("Points") 
    Environment.Value("FICO") = TestData_Sheet.Cells(x,"J")

试试下面的方法

TestData_Sheet.Cells(x,"E").Value 'Invalid
And
TestData_Sheet.Range("E"&x).value 'valid
TestData_Sheet.Cells(x,5).value   'valid

---

请将您的代码格式化为

code

。。。。。。。。像“+你的文本+”或4个空格+你的文本一样使用它你好，我是新来的，真的不知道如何格式化代码。你能更具体地说明你遇到了什么错误吗，哪个行号等。您缺少初始循环中的

End If

和

Next

，以及

fnReadData

中的

End函数

，因此这甚至无法按原样执行。我已经整理好了，但请提供a所需的详细信息。此外，x在

fnReadData

中没有值，除非您将其传递到函数中…您好，谢谢回复。但问题仍然是一样的。这一行TestData_Sheet.Range（“E”&x）。value给出了所需的无效参数。Ladt行我不想硬编码行和列，而是希望UFT使用循环迭代并通过函数获取数据。是否将x的值传递给fnReadData函数。当你得到错误时，你能告诉我x的值是多少吗。X是一个局部变量，必须传递给函数，否则可能会出现变量未定义错误。