- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 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 'µ{¦¡ªº°õ¦æ¨S¦³¹w´Áªº¿ù»~,¦¹¦æ¥i¤£¥Î.
- T = Time
- rr = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12" ' ¥¿½Tªº
- With ie
- .Navigate rr
- Do While .readyState <> 4 'µ¥«Ýºô¶¤U¸ü§¹²¦
- DoEvents
- If Time >= T + #12:00:03 AM# Then 'µ¥«Ý8¬í 3¬í¤Ó¤Ö·|»~¿ù§ï8§®
- DoEvents
- Application.SendKeys "~" 'ªÑ²¼¥N¸¹¿ù»~,ºô¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U±ªÑ²¼¥N¸¹
-
- Exit Do
- End If
- Loop
- ''***¤£¬Oµ¥«Ý8¬í 3¬í¤Ó¤Ö·|»~¿ù§ï8§® ***
- Do
- Set S = .Document.getElementsByTagName("table")(4) ' ·sªº table 4
- Loop Until Not S Is Nothing
- '*** ³Ó¤@ ¨S®»¨ì ????
- '*** ¦]µ{¦¡¹B¦æ¤Ó§Ö , S Is Nothing, S ©|¥¼«ü©w¬°.Document.getElementsByTagName("table")(4)
- '*** µ{¦¡¤w¸g°õ¦æ¤U¤@¦æ, With ¤u§@ªí2 ªºµ{¦¡½X
- With ¤u§@ªí2
- .UsedRange.Clear
- For i = 0 To S.Rows.Length - 1 '¼g¤J¸ê®Æ
- k = k + 1
- 'For j = 0 To S.Rows(i).Length - 1 '³o¦æ¬O¿ù»~ªº ¤]¬O¦h¾lªº°j°é
- '¥Î On Error Resume Next ¨Ïµ{¦¡Ä~Äò°õ¦æ
- For ii = 0 To S.Rows(i).Cells.Length - 1 ' S.Rows(i).Cells.Length - 1 ¤~¬O¥¿½T
- .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
- DoEvents
- Next
- 'Next
- Next
- End With
- End With
- End Sub
½Æ»s¥N½X |
|