如何关闭提示框，并限制一定范围等

集合

Sub getSource()
On Error Resume Next
Application.ScreenUpdating = False
Dim ie As Object
     Set ie = CreateObject("InternetExplorer.Application")
     With ie
         'Visible = True
         .Navigate "http://club.excelhome.net/forum.php"
         Do While .busy
             DoEvents
         Loop
         .document.body.Focus
         .document.execCommand "SelectAll", False
         .document.execCommand "Copy", False
         With Worksheets("ID Num")
             .Range("cj28").Select
             .Paste
         End With
         .Quit
     End With
Application.ScreenUpdating = True
End Sub
这是我在这里找的一个复制网页的宏，我现在想让那位老师帮我一是:去掉执行时弹出的问确实允许此网页访问剪切板吗的提示，因为我是一定要复制的.二是：让复制的网页内容限定在一定的范围内（如只要正文），三是复制的内容自动的复制到excel的某个地方，且是文本形式。
如何关闭提示框，并限制一定范围等.rar (7.78 KB, 下载次数: 4)

2013-2-14 22:11 上传

点击文件名下载附件

害虫

是这个意思吗？

集合

衷心谢谢{:soso_e163:}