从网页上复制数据到Excel里,有时候复制的不是数据,而是一个个的文本框,这些文本框都是一个个单独的对象,取出值只有手工一个个的复制,非常的让人头痛。
下面的代码大家要收藏一下,现在用不着,也许以后会用着。
Sub htmltext()
Dim x As Integer
For i = 1 To 8
Cells(i + 1, 8).Value = Sheet1.OLEObjects("控件 " & i ).Object.Value
Next i
End Sub
Excel实例教学网 微信公众号EXCEL880 郑广学网络服务工作室
Excel教学,vba实战教学,郑广学老师,郑广学vba,vba案例,vba教程,excel教程
从网页上复制数据到Excel里,有时候复制的不是数据,而是一个个的文本框,这些文本框都是一个个单独的对象,取出值只有手工一个个的复制,非常的让人头痛。
下面的代码大家要收藏一下,现在用不着,也许以后会用着。
Sub htmltext()
Dim x As Integer
For i = 1 To 8
Cells(i + 1, 8).Value = Sheet1.OLEObjects("控件 " & i ).Object.Value
Next i
End Sub