网页表单粘贴到Excel时删除文本框的vba代码

近日因工作需要，从网页上复制内容到Excel表格中，附带HTML的元素（比如文本框）在Excel表格中，数据都在文本框中。

经过搜索发现了前辈的一段代码：

开发工具→查看代码，把下面代码粘贴进去，点击执行

Sub mysub()
For Each s In Sheet1.OLEObjects
s.TopLeftCell = s.Object.Value
s.Delete
Next
End Sub

经测试发现本代码，只适合只有文本框，如果还有其它输入框，会出错 提示“运行时错误‘438’,对象不支持该属性或方法“。注意，Sheet1 是工作表名称

【综合网络信息编辑】

━━━━━━━━━━━━● 【转载请注明出处】 ●━━━━━━━━━━━