以下是程式碼，但無法跑進excel裡面?
'----------------------------------------------------------------------------------------------------
Dim IE As Object, DOM_event As Object, Url As String, table, i As Integer, j As Integer
ActiveSheet.Cells.Clear
Application.ScreenUpdating = False
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "https://goodinfo.tw/StockInfo/index.asp"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Url = "" & Range("A1") & ""
'"https://goodinfo.tw/StockInfo/StockList.asp?MARKET_CAT=自訂篩選&INDUSTRY_CAT=我的條件&FL_ITEM0=連續配發合計股利次數&FL_VAL_S0=5&FL_VAL_E0=&FL_ITEM1=&FL_VAL_S1=&FL_VAL_E1=&FL_ITEM2=&FL_VAL_S2=&FL_VAL_E2=&FL_ITEM3=累季–EPS年成長率%28%25%29&FL_VAL_S3=0&FL_VAL_E3=&FL_ITEM4=&FL_VAL_S4=&FL_VAL_E4=&FL_ITEM5=&FL_VAL_S5=&FL_VAL_E5=&FL_ITEM6=&FL_VAL_S6=&FL_VAL_E6=&FL_ITEM7=&FL_VAL_S7=&FL_VAL_E7=&FL_ITEM8=&FL_VAL_S8=&FL_VAL_E8=&FL_ITEM9=&FL_VAL_S9=&FL_VAL_E9=&FL_ITEM10=&FL_VAL_S10=&FL_VAL_E10=&FL_ITEM11=&FL_VAL_S11=&FL_VAL_E11=&FL_RULE0=&FL_RULE1=&FL_RULE2=&FL_RULE3=&FL_RULE4=&FL_RULE5=&FL_RANK0=&FL_RANK1=&FL_RANK2=&FL_RANK3=&FL_RANK4=&FL_RANK5=&FL_FD0=&FL_FD1=&FL_FD2=&FL_FD3=&FL_FD4=&FL_FD5=&FL_SHEET=季累計獲利能力&FL_SHEET2=獲利能力&FL_MARKET=上市%2F上櫃&FL_QRY=查++詢"
.Navigate Url
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Set DOM_event = .document.createEvent("HTMLEvents")
DOM_event.initEvent "change", True, False
.document.all.Item("selRANK").selectedindex = 6
.document.all.Item("selRANK").dispatchEvent DOM_event
Application.Wait (Now + TimeValue("0:00:40")) '等待查詢結果，視電腦效能、網路狀態，修改適合時間
Set table = .document.getelementsbytagname("table")(96).Rows
For i = 0 To table.Length - 1
For j = 0 To table(i).Cells.Length - 1
ActiveSheet.Cells(i + 1, j + 1) = table(i).Cells(j).innertext
Next j
Next i
ActiveSheet.Cells.Columns.AutoFit
End With
IE.Quit
Set IE = Nothing
Set table = Nothing
Application.ScreenUpdating = True
