返回列表 上一主題 發帖

[發問] 請教網頁捉取的問題? CreateObject("msxml2.xmlhttp") 的問題?

回復 20# GBKEE


    謝謝 版主,我執行程式沒停止,用 debug 測試,在這段裡迴圈
  1.        Do  '  程式運行速度快用迴圈,確保TableG物件下載完整
  2.             Set TableG = HTMLsourcecode.all.tags("div")
  3.             DoEvents
  4.             '**   "JScriptTypeInfo"  可在 區域變數視窗 查看
  5.             '** 或是   Debug.Print TypeName(TableG) 得知
  6.             N = N + 1
  7.             
  8.             Debug.Print TypeName(TableG) & N
  9.         Loop Until TypeName(TableG) = "JScriptTypeInfo"
複製代碼
Image 1.jpg

TOP

本帖最後由 GBKEE 於 2022-1-12 13:53 編輯

回復 21# wufonna

   
未命名.png
2022-1-12 13:42

上圖你PC環境中 TypeName(TableG)
下圖我PC環境中 程式碼TypeName(TableG) 不一樣
這裡要修改一下

[
a註解.png
2022-1-12 13:53
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 22# GBKEE


謝謝 版大
F8 執行

Image 1.jpg
2022-1-12 15:46
物件名稱不一樣
Object/DispHTMLElementCollection

TOP

回復 22# GBKEE


    謝謝 版大 改過就可以了, 從中學習很多
  1.        Do  '  程式運行速度快用迴圈,確保TableG物件下載完整
  2.             Set TableG = HTMLsourcecode.all.tags("div")
  3.             DoEvents
  4.             N = N + 1
  5.             '**   "JScriptTypeInfo"  可在 區域變數視窗 查看
  6.             Debug.Print TypeName(TableG) & N
  7.             '** 或是   Debug.Print TypeName(TableG) 得知
  8. '        Loop Until TypeName(TableG) = "JScriptTypeInfo"
  9.         Loop Until TypeName(TableG) = "DispHTMLElementCollection"
複製代碼

TOP

        靜思自在 : 不要小看自己,因為人有無限的可能。
返回列表 上一主題