小编use*_*996的帖子

我在VBA和编码方面都是全新的,我试图从同一工作簿的单元格中获取数据(获取框架路径......),然后启动应用程序(QTP)并运行测试.

尝试获取在Excel单元格中输入的值时,我收到此错误:

Run Time Error '424' object required

我相信我错过了一些基本规则,但我感谢你的帮助.请参阅下面有问题的代码部分:

Option Explicit

Private Sub RunTest_Click()

    Dim envFrmwrkPath As Range
    Dim ApplicationName As Range
    Dim TestIterationName As Range
    'Dim wb As Workbook
    'Dim Batch1 As Worksheets
    Dim objEnvVarXML, objfso, app As Object
    Dim i, Msgarea

    Set envFrmwrkPath = ActiveSheet.Range("D6").Value ' error displayed here
    Set ApplicationName = ActiveSheet.Range("D4").Value
    Set TestIterationName = ActiveSheet.Range("D8").Value