Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何用VBA获取word表中的行值_Vba_Ms Word_Hp Uft - Fatal编程技术网

如何用VBA获取word表中的行值

如何用VBA获取word表中的行值,vba,ms-word,hp-uft,Vba,Ms Word,Hp Uft,当使用VBA在word表中的特定行上没有数据时,我尝试删除word表的最后一行。但到目前为止,它所做的只是删除最后一行并抛出一个缺少对象的错误 我尝试设置Text属性,文档中这样说: Set VCell = objTable2.Cell(j,2).Range.Text 但它不工作,因为它抛出了一个错误,指出字符串对象是必需的 这是我用来执行删除操作的代码: If j < 9 Then For i = 1 To Ubound(TC_STP_Array)

当使用VBA在word表中的特定行上没有数据时,我尝试删除word表的最后一行。但到目前为止,它所做的只是删除最后一行并抛出一个缺少对象的错误

我尝试设置Text属性,文档中这样说:

Set VCell = objTable2.Cell(j,2).Range.Text
但它不工作,因为它抛出了一个错误,指出字符串对象是必需的

这是我用来执行删除操作的代码:

   If j < 9 Then

        For i = 1 To Ubound(TC_STP_Array)

            objTable2.Rows.Last.Select          

            Set VCell = objTable2.Cell(j,2).Range.Text

            If objTable2.Rows.Last.IsLast and VCell = "" Then
                objTable2.Rows.Last.Cells.Delete
            End If


         Next   
End if
当行中有数据时,我得到:

所需对象:“[string”Test•””


关于如何解决这个问题有什么想法吗?

通过删除设置的单词来解决 VCell=objTable2.Cell(j,2).Range.Text 因为它不是一个对象,并且只对对象而不是字符串需要它

Set VCell = objTable2.Cell(j,2).Range.Text