[已解决]打开网页全部复制并粘贴1列

放浪形骸

呃。。。想到了
就像上面说的。VBA里加上WebBrowers控件，隐藏掉。
然后逐个读取A列的数据，然后用WebBrowers打开，打开的文档的document.innerText就是需要粘贴的文本，粘贴到对应的单元格里就可以了。

放浪形骸

而网页的其他数据可以通过innerHTML来获得的

xdwy81129

放浪形骸 发表于 2011-1-10 21:52
还涉及到打开网页。。。。
我想，还不如VB编写个程序，打开EXCEL文件，读取A列的网站，用WebBrowers控件的 ...

打开网页应该不难吧
a列里有网页地址，点击就打开了啊（只是vba语句我不会写了）

在不行，我先打开所有的网页，让vba语句帮助我选择具体打开的网页，然后进行全选复制+选择性粘贴

xdwy81129

回复 放浪形骸 的帖子

老师我写的都不用用vba操作了，请你直接给答案好吗？？？

放浪形骸

1. Sub Start()
   
2. Dim iRow As Integer
   
3. Dim i As Integer
   
4. Dim sURL As String
   
5. Dim iCnt As Integer
   
6. iRow = [A65536].End(xlUp).Row
   
7. iCnt = 2
   
8. For i = 1 To iRow
   
9. sURL = Cells(i, 1)
   
10. If sURL <> "" Then
    
11.     Wb1.Navigate sURL
    
12.     Do Until Wb1.ReadyState = 4
    
13.         DoEvents
    
14.     Loop
    
15.     Cells(1, iCnt) = Wb1.Document.body.innerText
    
16.     iCnt = iCnt + 1
    
17. End If
    
18. 
    
19. Next
    
20. End Sub

复制代码

SHEET12里加一个叫WB1的WEB BROWSERS控件。

放浪形骸

好像这样复制过去的话是直接就是B1格里全部是网页内容。

放浪形骸

我再想想看怎么通过剪切板或者别的方式PASTE看看

xdwy81129

放浪形骸 发表于 2011-1-10 23:01
我再想想看怎么通过剪切板或者别的方式PASTE看看

感谢老师的帮忙，希望可以更好的解决。

另：我知道复制某一网址的内容在选择性粘贴到excel时，是暂用几个列的，但无所谓这些了，只要是可以全部选择复制，然后可以再选择性粘贴就好了。

关键的是怎么重复如此的步骤（因为网址不一样，但网址在A列里面全部由地址）

放浪形骸

xdwy81129 发表于 2011-1-10 23:08
感谢老师的帮忙，希望可以更好的解决。

另：我知道复制某一网址的内容在选择性粘贴到excel时，是暂用几 ...

首先咱也是学习学习的啦。
呵呵

我现在想办法就是怎么通过剪切板把wb1.document.body.innertext的东西先复制过去
然后再RANGE.PASTESPECIAL应该就可以达到你所需要的效果了。。。

xdwy81129

放浪形骸 发表于 2011-1-10 22:59
SHEET12里加一个叫WB1的WEB BROWSERS控件。

SHEET12里加一个叫WB1的WEB BROWSERS控件。

不懂怎么加了，请赐教

另    Wb1.Navigate sURL  该句提示错误——估计和上面说的是一回事