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

xdwy81129

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

感觉我应该是插入了该控件的，请看截图对否,但现在还是提示要求对象，语句里面的wb1是空值，还是提示如上的错误

xdwy81129

自己来顶顶，希望今天可以解决

xdwy81129

期待解决中

顶了

放浪形骸

呃。。。我等下给你放程序好了。

xdwy81129

回复 放浪形骸 的帖子



大侠太好了，感谢感谢感谢。

学生要是不懂，还望可以再解答下不耻下问了

放浪形骸

1. Sub Start()
   
2. Dim iRow As Integer
   
3. Dim i As Integer
   
4. Dim sURL As String
   
5. Dim iCnt As Integer
   
6. Dim x() As String
   
7. Dim iHTML As Integer
   
8. Dim iX As Integer
   
9. iRow = [A65536].End(xlUp).Row
   
10. iCnt = 2
    
11. For i = 1 To iRow
    
12. sURL = Cells(i, 1)
    
13. If sURL <> "" Then
    
14. wB1.Navigate sURL
    
15. Do Until wB1.ReadyState = 4
    
16. DoEvents
    
17. Loop
    
18. x = Split(wB1.Document.body.innerText, vbCrLf)
    
19. iHTML = 2
    
20. For iX = LBound(x) To UBound(x)
    
21. Cells(iHTML, iCnt) = x(iX)
    
22. iHTML = iHTML + 1
    
23. Next
    
24. iCnt = iCnt + 1
    
25. End If
    
26. 
    
27. Next
    
28. End Sub
    

复制代码

好了，换了一个方法，应该可以实现你所需要的效果了。。。

放浪形骸

[hide] 网页复制粘贴1列.fixed.rar (15.25 KB, 下载次数: 57)

2011-1-11 21:38 上传

点击文件名下载附件 [/hide
]
这个就是所修改的文件，你看下，基本上应该是可以了的。

放浪形骸

xdwy81129 发表于 2011-1-10 23:35
感觉我应该是插入了该控件的，请看截图对否,但现在还是提示要求对象，语句里面的wb1是空值，还是提示如上 ...

呃。。不好意思，为了拼写方便，我把这个控件的名字改成了WB1。。。呃。。。

xdwy81129

放浪形骸 发表于 2011-1-11 21:40
呃。。不好意思，为了拼写方便，我把这个控件的名字改成了WB1。。。呃。。。

大侠，我正在下载，谢谢了，当然方便你的思维是最到的。
因为你能做到，我做不到

：）

放浪形骸

PS：你的效果里的话是从[B2]开始的
于是我的代码也就是从第二行开始的。