错误70第二次VBA拒绝权限

Question

Sub News()
Dim IE As InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim IEField As HTMLInputElement
Dim URL As String
Dim WS As Worksheet
Dim i As Integer, nAsset As Integer, NRow As Integer
Dim Stockcode As String

Set IE = CreateObject("InternetExplorer.Application")
URL = "http://www.hkexnews.hk/listedco/listconews/advancedsearch/search_active_main_c.aspx"
IE.Navigate URL
IE.Visible = True

While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend

Set HTMLDoc = IE.Document
Set IEField = HTMLDoc.getElementById("ctl00_txt_stock_code")
nAsset = Worksheets("HKEX").Range("A1048576").End(xlUp).CurrentRegion.Rows.Count
Debug.Print nAsset

For i = 1 To nAsset

Stockcode = Worksheets("HKEX").Range("A" & i).Value
Set WS = Sheets.Add(After:=Sheets(Worksheets.Count))
WS.Name = Stockcode

IEField.Value = Stockcode

HTMLDoc.forms(0).submit

Application.Wait Now + TimeValue("00:00:02")

With IE

.ExecWB 17, 0
.ExecWB 12, 2

WS.Cells.Select
Range("A1").Activate
ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:= _
 False, NoHTMLFormatting:=True


WS.Range("E1:R50").ClearContents
WS.Range("A1:D16").Delete 'Shift:=xlToUp
WS.Range("A:D").Columns.AutoFit

End With
IE.Quit

Next i

 Set IE = Nothing
 End Sub

基本上，我试图在不同的股票上获得更新的公告，并通过节省时间逐一检查它们将所有这些公告收集在Excel电子表格中。代码在第一次运行时运行正常，但是，它会弹出运行时错误70权限被拒绝此行 IEField.Value = Stockcode ，我完全不知道如何解决这个问题。请有人作为专家帮助我，因为我已经花了几天时间而不知道该怎么做。谢谢大家。顺便说一句，对于创建名为HKEX的工作表的人，您可以在单元格A1上放置'00001，在单元格A2上放置00002，在单元格A3上放置'00003，这些是股票代码。