「VBA」从网上复制到Excel里全是文本框,怎么取值? 图文

2020年3月20日07:53:28「VBA」从网上复制到Excel里全是文本框,怎么取值? 图文已关闭评论 155 views
198元黄金VIP包含 站内所有资源免费+VBA175+基础408+代码助手VIP+Q群答疑+
点我打赏升级VIP 教程淘宝购买链接 加微信EXCEL880A 课领取所有教程7天免费试学 教程所有目录excel880.com/mulu

从网页上复制数据到Excel里,有时候复制的不是数据,而是一个个的文本框,这些文本框都是一个个单独的对象,取出值只有手工一个个的复制,非常的让人头痛。

「VBA」从网上复制到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

  • 微信扫码免费学习
  • 免费学习48小时
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin