请看一下VBA代码，一个网页全选复制粘贴的代码帮助改进：

Sub 按钮1_单击()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "http://j.cailizhong.com/sd11x5.shtml"
Do Until .ReadyState = 4
DoEvents
Loop
.document.body.Focus
.document.execCommand "SelectAll"
.document.execCommand "copy"
Range("A1").Select
ActiveSheet.Paste
.Quit
End With
End Sub
有几个缺点需请帮助改进：1、每次运行都打开一个标签，能否每次将操作完的标签关闭，最好是用同一个标签，也就是说自动识别地址栏相同即刷新再操作；2、改进到不在当前工作表粘贴，而是新建一个名为CP.TXT的文件粘贴其中；3、能否不全选，而只选表格部分，怎样识别？

相关了解……