有一个网页,拷贝下来的数据全部都是一个一个的文本框,数据在文本框中,没法通过格式粘贴或者在word,文本文件中去处,因为只要去除了,就连数据也没有了。因此只能使用VBA来进行。比如 a=Worksheets(1).HTMLText1.Value,
a=Worksheets(1).HTMLText2.Value
…
但是有100个
使用VBA获取工作表里边文本框、图形的文本数据时,在不确定文本框、图形数量的情况下,可以使用“For Each……In……Next”对工作表里面的每一个文本框、图形进行访问,然后使用“.TextFrame2.TextRange.Text”获取里边的文本数据写入单元格。
VBA程序如下截图,shp为工作表Sheet1里边所有图形中的一个(每执行一次For循环就提取一个,不重复)。
【注】上图的VBA程序引用自百度经验《使用VBA提取文本框的文本数据》
运行错误1004,我是office 2007,是我写错了吗,代码如下:
for i =1 to 100
a= Workbooks("1.xlsx").Worksheets(1).OLEObject("HTMLText"&i).Object.Value
Next i
&前后有空格
追问对,我知道,只是敲到这的时候忘记写空格了,还有刚才OLEObject后面少了一个s
for i =1 to 100
a= Workbooks("1.xlsx").Worksheets(1).OLEObjects("HTMLText" & i).Object.Value
Next i
还是1004
能说说你这个控件怎么弄到excel中的?哪个网站复制的数据?没法尝试
追问是我们一个内网系统,外网看不到。粘贴下来后,在设计模式下查看属性可以发现是HTMLText控件和HTMLSelect控件。删除控件,就连内容一起删除了。
追答要么发我一份excel文件看看 cnbubble,后面是163的邮箱