【VBA】从网上复制到Excel里全是文本框，怎么取值？

从网页上复制数据到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