請問這可設定等幾秒沒開網頁或網頁錯誤就執行下一筆嗎，謝謝 - Excel程式區

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

12^#

發表於 2014-9-1 20:18 | 只看該作者

回復 11# wufonna

請問 G 大大是
If Time >= T + #12:00:08 AM# Then
等代時間少的問題嗎我將3秒改8秒就沒錯了
如果股票多了如何解決謝謝

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2014-9-2 14:34 | 只看該作者

回復 12# wufonna
11#所說的錯誤,程式碼在哪發生的.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

14^#

發表於 2014-9-2 17:22 | 只看該作者

回復 13# GBKEE

GBKEE 大大
程式沒有錯誤
可是有時資料沒捉到
像這次勝一沒捉到
謝謝

2014-09-02_171247.jpg (49.77 KB)

配息測試-2.rar (21.67 KB)

joey0415

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

15^#

發表於 2014-9-3 11:14 | 只看該作者

本帖最後由 joey0415 於 2014-9-3 11:19 編輯

回復 14# wufonna

https://djinfo.cathaysec.com.tw/Z/ZC/ZCC/ZCC.DJHTM?A=1101

代碼變數自己改改就行

Sub 巨集1()
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://djinfo.cathaysec.com.tw/Z/ZC/ZCC/ZCC.DJHTM?A=1101", Destination _
:=Range("$A$1"))
.WebFormatting = xlWebFormattingNone
.WebTables = "3"
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub

複製代碼

用這種網站抓資料比較用，不用等幾秒...

網址又清楚

yam會下載一堆沒用的東西

把所有抓下來排序一下，就知道有哪些股是沒有抓完整的，再抓一次就可以了…

通常下載都是會找穩定、速度快，純資料為最佳

參考

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

16^#

發表於 2014-9-3 16:10 | 只看該作者

回復 14# wufonna
請詳看註解

Private Sub GetDividend(ByVal ss As String)
Dim rr As String, T As Date, i, ii, k, j, S As Object
'On Error Resume Next '程式的執行沒有預期的錯誤,此行可不用.
T = Time
rr = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12" ' 正確的
With ie
.Navigate rr
Do While .readyState <> 4 '等待網頁下載完畢
DoEvents
If Time >= T + #12:00:03 AM# Then '等待8秒 3秒太少會誤錯改8妙
DoEvents
Application.SendKeys "~" '股票代號錯誤,網頁會有訊息,須按確定,才可繼續下面股票代號
Exit Do
End If
Loop
''***不是等待8秒 3秒太少會誤錯改8妙 ***
Do
Set S = .Document.getElementsByTagName("table")(4) ' 新的 table 4
Loop Until Not S Is Nothing
'*** 勝一沒捉到 ????
'*** 因程式運行太快 , S Is Nothing, S 尚未指定為.Document.getElementsByTagName("table")(4)
'*** 程式已經執行下一行, With 工作表2 的程式碼
With 工作表2
.UsedRange.Clear
For i = 0 To S.Rows.Length - 1 '寫入資料
k = k + 1
'For j = 0 To S.Rows(i).Length - 1 '這行是錯誤的也是多餘的迴圈
'用 On Error Resume Next 使程式繼續執行
For ii = 0 To S.Rows(i).Cells.Length - 1 ' S.Rows(i).Cells.Length - 1 才是正確
.Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
DoEvents
Next
'Next
Next
End With
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

17^#

發表於 2014-9-3 20:52 | 只看該作者

回復 16# GBKEE

謝謝 G 大大
程式運行順暢 ^_^

本想二維的表單怎會有三個 FOR NEXT
正想發問

再請在 G 大大
新手如何去發現程式中沒有錯誤的變化
像程式中的
Do
Set S = .Document.getElementsByTagName("table")(4) ' 新的 table 4
Loop Until Not S Is Nothing
謝謝