返回列表 上一主題 發帖

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

tsmc2330

帖子
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 
點名
28  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-10-22 
2#
發表於 2021-2-10 09:01 | 只看該作者
.SetText HTMLsourcecode.body.innerhtml

TOP

tsmc2330

帖子
10 
主題
3 
精華
0 
積分
58 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
20 
註冊時間
2014-11-12 
最後登錄
2021-2-10 
3#
發表於 2021-2-10 10:15 | 只看該作者
感謝quickfixer，好人一生平安，上廁所都有衛生紙可用!

謝謝你，解決我的問題!

TOP

tsmc2330

帖子
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")

TOP

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
28  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-10-22 
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

TOP

tsmc2330

帖子
10 
主題
3 
精華
0 
積分
58 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
20 
註冊時間
2014-11-12 
最後登錄
2021-2-10 
6#
發表於 2021-2-10 12:32 | 只看該作者
我知道我想了兩天的原因了!
今天晚上總算可以好好睡一覺了!

謝謝quickfixer

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題