Vba 错误1004-将值写入单元格

我的代码非常简单，但似乎无法摆脱这个错误。我尝试将字符串赋给一个变量，然后赋给它，取消对工作表的保护，并将代码放入一个新的子函数中。错误发生在第二个子项

Analyze（）

中

Enum READYSTATE
    READYSTATE_UNINTIALIZED = 0
    READYSTATE_LOADING = 1
    READYSTATE_LOADED = 2
    READYSTATE_INTERACTIVE = 3
    READYSTATE_COMPLETE = 4
End Enum

Dim html As HTMLDocument

Sub Testing()
    Dim ie As InternetExplorer

    Set ie = New InternetExplorer
    ie.Visible = True
    ie.navigate "http://www.realclearpolitics.com/epolls/latest_polls/elections/"

    Do While ie.READYSTATE <> READYSTATE_COMPLETE
        Application.StatusBar = "Trying to reach RealClearPolitics.com"
        DoEvents

    Loop
    Set html = ie.document
    MsgBox html.DocumentElement.outerHTML
    Set ie = Nothing
    Application.StatusBar = " "

    Call Analyze

End Sub

Sub Analyze()
    Dim polldate As String
    polldate = "date"

    Worksheets("Sheet1").Activate

    Cells.Clear

    Worksheets("Sheet1").Cells(0, 0).Value = "Date"
    Worksheets("Sheet1").Cells(0, 1).Value = "Poll"
    Worksheets("Sheet1").Cells(0, 2).Value = "Page"

End Sub

Enum READYSTATE
READYSTATE_未初始化=0
READYSTATE_加载=1
READYSTATE_已加载=2
READYSTATE_INTERACTIVE=3
READYSTATE_COMPLETE=4
结束枚举
将html设置为HTMLDocument
子测试（）
Dim ie作为InternetExplorer
Set ie=新的InternetExplorer
可见=真实
即“导航”http://www.realclearpolitics.com/epolls/latest_polls/elections/"
在ie.READYSTATE READYSTATE\u完成时执行此操作
Application.StatusBar=“正在尝试访问RealClearPolitics.com”
多芬特
环
设置html=ie.document
MsgBox html.DocumentElement.outerHTML
设置ie=无
Application.StatusBar=“”
呼叫分析
端接头
子分析（）
将日期设置为字符串
polldate=“日期”
工作表（“表1”）。激活
牢房，没问题
工作表（“Sheet1”）.单元格（0,0）.Value=“日期”
工作表（“Sheet1”）.单元格（0,1）.Value=“轮询”
工作表（“Sheet1”）.单元格（0,2）.Value=“第页”
端接头

单元格（）的索引必须以1开始，而不是0

在使用

设置ie=Nothing

销毁InternetExplorer对象之前，放置

调用Analyze

。将

html

设置为ie对象的文档，然后销毁ie，将使您的文档一无所获。

将

Option Explicit

放在模块代码表的顶部，并尝试编译它。（[alt]+D，L）