帮我写一个vba copy网页的代码

以下是一个简单的VBA代码示例，可以用于复制网页的内容：

Sub CopyWebPage()
    Dim IE As Object
    Dim doc As Object
    Dim sel As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    
    '打开要复制的网页
    IE.Navigate "https://www.example.com"
    
    '等待网页加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        Application.Wait DateAdd("s", 1, Now)
    Loop
    
    '获取网页的文档对象
    Set doc = IE.document
    
    '获取网页内容
    Set sel = doc.body.createTextRange
    sel.execCommand "Copy"
    
    '将内容粘贴到Excel中
    Range("A1").Select
    ActiveSheet.Paste
End Sub

请注意，此代码假设您已经将Internet Explorer添加到了引用中。如果尚未这样做，请按下“Alt + F11”打开VBA编辑器，然后在菜单栏中选择“工具”>“引用”，并勾选“Microsoft Internet Controls”选项。