[發問] 沒有設定物件變數或 With區塊變數

av8d

1. Public a As Boolean
   
2. 
   
3. Sub StartTimer()
   
4.     Range("E7") = "自動更新：開啟"
   
5.     If a = True Then End
   
6.     DoEvents
   
7.     Application.OnTime Now + TimeValue("00:00:01"), "StartTimer2", Schedule:=True
   
8. End Sub
   
9. 
   
10. Sub StartTimer2()
    
11.     DoEvents
    
12.     Call NewsOne '你的SUB
    
13.     Call StartTimer
    
14. End Sub
    
15. 
    
16. Sub StopTimer()
    
17.     a = IIf(a = True, False, True)
    
18.     Range("E7") = "自動更新：關閉"
    
19.     On Error Resume Next
    
20.     Application.OnTime Now + TimeValue("00:00:05"), "StartTimer2", Schedule:=False
    
21. End Sub
    
22. 
    
23. Sub NewsOne()
    
24.     Dim url As String, lastRow As Long
    
25.     Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object
    
26.     Dim start_time As Date
    
27.     Dim end_time As Date
    
28. 
    
29.     lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
30. 
    
31.     Dim cookie As String
    
32.     Dim result_cookie As String
    
33. 
    
34.     start_time = Time
    
35.     Debug.Print "start_time:" & start_time
    
36. 
    
37.     For i = 1 To lastRow
    
38. 
    
39.         url = "https://www.google.co.in/search?&q=" & Cells(i, 1) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
    
40. 
    
41.         Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP")
    
42.         XMLHTTP.Open "GET", url, False
    
43.         XMLHTTP.setRequestHeader "Content-Type", "text/xml"
    
44.         XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
    
45.         XMLHTTP.send
    
46. 
    
47.             Set html = CreateObject("htmlfile")
    
48.         html.body.innerHTML = XMLHTTP.ResponseText
    
49.         Set objResultDiv = html.getelementbyid("rso")
    
50.         Set objH3 = objResultDiv.getelementsbytagname("H3")(0)
    
51.         Set link = objH3.getelementsbytagname("a")(0)
    
52. 
    
53. 
    
54.         str_text = Replace(link.innerHTML, "<EM>", "")
    
55.         str_text = Replace(str_text, "</EM>", "")
    
56. 
    
57.         Cells(i, 7) = str_text
    
58.         Cells(i, 8) = link.href
    
59.         DoEvents
    
60.     Next
    
61. 
    
62.     end_time = Time
    
63.     Debug.Print "end_time:" & end_time
    
64. 
    
65.     Debug.Print "done" & "Time taken : " & DateDiff("n", start_time, end_time)
    
66.     'MsgBox "done" & "Time taken : " & DateDiff("n", start_time, end_time)
    
67. End Sub

複製代碼

中間這段網址https://www.google.co.in/search?&q=改成https://www.google.com.tw/search?&q=就會出現沒有設定物件變數或 With區塊變數
錯誤原因落在str_text = Replace(link.innerHTML, "<EM>", "")
還請老師們賜教，謝謝。

Scott090

回復 1# av8d


    假如這個網址 https://www.google.com.tw/search?&q=
不能像這個 https://www.google.co.in/search?&q=
一樣可以抓到東西"物件"；就會出現 "沒有設定物件變數 .... "

僅做參考