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

帖子: 10
主題: 3
精華: 0
積分: 58
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2014-11-12
最後登錄: 2021-2-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-2-10 02:19 | 只看該作者

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

先跟各位拜個早年

跑程式main會出現，執行階段錯誤91
「沒有設定物件變數或With區塊變數」

可是單獨在跑裡面的爬蟲是沒有問題的!!

請各位神人們，可以幫小弟解答為什麼嗎?
以及要如何更改程式!

先謝謝大家了，這問題我網路尋找了2天沒有答案，真是想破我的頭

by VBA新手

practice.zip (50.05 KB)

quickfixer

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 1
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2025-1-1

2^#

發表於 2021-2-10 09:01 | 只看該作者

.SetText HTMLsourcecode.body.innerhtml

帖子: 10
主題: 3
精華: 0
積分: 58
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2014-11-12
最後登錄: 2021-2-10

3^#

發表於 2021-2-10 10:15 | 只看該作者

感謝quickfixer，好人一生平安，上廁所都有衛生紙可用!

謝謝你，解決我的問題!

帖子: 10
主題: 3
精華: 0
積分: 58
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2014-11-12
最後登錄: 2021-2-10

4^#

發表於 2021-2-10 11:26 | 只看該作者

本帖最後由 tsmc2330 於 2021-2-10 11:33 編輯

請教一下，為什麼不能直接使用，以下這一行(因為想要的資料在這個table)
HTMLsourcecode.all.tags("table")(8).outerhtml

是要我去宣告和設定物件嗎變數嗎?
可是不是已經宣告和設定了?
Dim HTMLsourcecode As Object
Set HTMLsourcecode = CreateObject("HTMLFile")

quickfixer

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 1
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2025-1-1

5^#

發表於 2021-2-10 11:38 | 只看該作者

本帖最後由 quickfixer 於 2021-2-10 11:45 編輯

回復 4# tsmc2330

2020/1/5證交所沒你要的資料,沒資料就沒table,當然會出錯
加個if就可以用table
         If Len(HTMLsourcecode.body.innerhtml) = 26 Then Exit Sub
With Clipboard
         .SetText HTMLsourcecode.all.tags("table")(8).outerhtml
         .PutInClipboard
      End With

帖子: 10
主題: 3
精華: 0
積分: 58
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2014-11-12
最後登錄: 2021-2-10

6^#

發表於 2021-2-10 12:32 | 只看該作者

我知道我想了兩天的原因了!
今天晚上總算可以好好睡一覺了!

謝謝quickfixer