GBKEE

¦^´_ 6# wufonna
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Dim ie As Object   '¼Ò²Õ³Ì³»ºÝ Dim ¨Ñ³o¼Ò²Õªºµ{§Ç¨Ï¥ÎªºÅܼÆ
   
3. Sub AllFile()
   
4.     Dim i As Integer, v, Y As Integer, S As String
   
5.     S = "I"                                                 '2005 ¦~«×°_©lÄæ¦ì
   
6.     Set ie = CreateObject("internetexplorer.application")   '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
   
7.     With ie 'ÁY¤pIEµøµ¡
   
8.         .Visible = True
   
9.         .Width = 5
   
10.         .Height = 5
    
11.     End With
    
12.     With ¤u§@ªí1
    
13. 
    
14.         .Range(S & 1).CurrentRegion = ""            '²M°£¤u§@ªí1,¦~«×½d³ò
    
15.         Do
    
16.             .Range(S & 1).Offset(, Y) = 2005 + Y
    
17.             Y = Y + 1
    
18.         Loop While 2005 + Y < Year(Date)
    
19.         For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
    
20.             v = .Cells(i, 1).Value
    
21.             GetDividend (v)
    
22.             .Cells(i, S).Resize(, Y) = Application.WorksheetFunction.Transpose(¤u§@ªí2.Range("H4").Resize(Y))
    
23.             If Application.Sum(.Cells(i, S).Resize(, Y)) > 1 Then
    
24.                 .Cells(i, S).Offset(, Y) = 1
    
25.             Else
    
26.                 .Cells(i, S).Offset(, Y) = 0
    
27.             End If
    
28.         Next
    
29.         .Range(S & 1).CurrentRegion.Replace "--", "", xlWhole
    
30.     End With
    
31.     With ie  'IEµøµ¡³Ì¤j¤Æ
    
32.         Application.WindowState = xlMaximized
    
33.         .Height = Application.Height
    
34.         .Width = Application.Width
    
35.         .Quit
    
36.     End With
    
37. End Sub
    
38. Private Sub GetDividend(ByVal ss As String)
    
39. 
    
40.     Dim rr As String, T As Date, i, ii, k, j, S
    
41.     On Error Resume Next
    
42.     T = Time
    
43.     rr = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12"     ' ¥¿½Tªº
    
44.     With ie
    
45.         .Navigate rr
    
46.         Do While .ReadyState <> 4                          'µ¥«Ýºô­¶¤U¸ü§¹²¦
    
47.               DoEvents
    
48.               If Time >= T + #12:00:03 AM# Then            'µ¥«Ý3¬í
    
49.                 DoEvents
    
50.                 Application.SendKeys "~"                    'ªÑ²¼¥N¸¹¿ù»~,ºô­¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U­±ªÑ²¼¥N¸¹
    
51.                 Exit Do
    
52.               End If
    
53.         Loop
    
54.         Set S = .Document.getelementsbytagname("table")(11)
    
55.         With ¤u§@ªí2
    
56.             .UsedRange.Clear
    
57. 
    
58.             For i = 0 To S.Rows.Length - 1      '¼g¤J¸ê®Æ
    
59.                 k = k + 1
    
60.                 For j = 0 To S.Rows(i).Length - 1
    
61.                     For ii = 0 To S.Rows(i).Cells.Length - 1
    
62.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innertext
    
63.                     DoEvents
    
64.                     Next
    
65.                 Next
    
66.             Next
    
67.         End With
    
68.     End With
    
69. 
    
70.    End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# wufonna
­n§ï¤@¤U

1.   Dim AR
   
2.     With ¤u§@ªí1
   
3.         AR = .Range("E1:F1")
   
4.         .Range("E:F") = ""
   
5.         .Range("E1:F1") = AR
   
6. '        .Range("E2").CurrentRegion = ""            '²M°£¤u§@ªí1,¦~«×½d³ò

½Æ»s¥N½X

GBKEE

¦^´_ 12# wufonna
11#©Ò»¡ªº¿ù»~,µ{¦¡½X¦b­þµo¥Íªº.

GBKEE

¦^´_ 14# wufonna
½Ð¸Ô¬Ýµù¸Ñ

1. Private Sub GetDividend(ByVal ss As String)
   
2.     Dim rr As String, T As Date, i, ii, k, j, S As Object
   
3.     'On Error Resume Next 'µ{¦¡ªº°õ¦æ¨S¦³¹w´Áªº¿ù»~,¦¹¦æ¥i¤£¥Î.
   
4.     T = Time
   
5.     rr = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12"     ' ¥¿½Tªº
   
6.     With ie
   
7.         .Navigate rr
   
8.         Do While .readyState <> 4                          'µ¥«Ýºô­¶¤U¸ü§¹²¦
   
9.               DoEvents
   
10.               If Time >= T + #12:00:03 AM# Then            'µ¥«Ý8¬í 3¬í¤Ó¤Ö·|»~¿ù§ï8§®
    
11.                 DoEvents
    
12.                 Application.SendKeys "~"                    'ªÑ²¼¥N¸¹¿ù»~,ºô­¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U­±ªÑ²¼¥N¸¹
    
13.                
    
14.                 Exit Do
    
15.               End If
    
16.         Loop
    
17.         ''***¤£¬Oµ¥«Ý8¬í 3¬í¤Ó¤Ö·|»~¿ù§ï8§® ***
    
18.         Do
    
19.         Set S = .Document.getElementsByTagName("table")(4) ' ·sªº table 4
    
20.         Loop Until Not S Is Nothing
    
21.         '*** ³Ó¤@ ¨S®»¨ì ????
    
22.         '*** ¦]µ{¦¡¹B¦æ¤Ó§Ö , S Is Nothing, S ©|¥¼«ü©w¬°.Document.getElementsByTagName("table")(4)
    
23.         '*** µ{¦¡¤w¸g°õ¦æ¤U¤@¦æ, With ¤u§@ªí2 ªºµ{¦¡½X
    
24. 
    
25.         With ¤u§@ªí2
    
26.             .UsedRange.Clear
    
27.             For i = 0 To S.Rows.Length - 1      '¼g¤J¸ê®Æ
    
28.                 k = k + 1
    
29.                 'For j = 0 To S.Rows(i).Length - 1  '³o¦æ¬O¿ù»~ªº ¤]¬O¦h¾lªº°j°é
    
30.                    '¥Î On Error Resume Next ¨Ïµ{¦¡Ä~Äò°õ¦æ
    
31.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 ¤~¬O¥¿½T
    
32.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
    
33.                     DoEvents
    
34.                     Next
    
35.                 'Next
    
36.             Next
    
37.         End With
    
38.     End With
    
39. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 21# wufonna
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Dim ie As Object   '¼Ò²Õ³Ì³»ºÝ Dim ¨Ñ³o¼Ò²Õªºµ{§Ç¨Ï¥ÎªºÅܼÆ
   
3. Dim AR()
   
4. Sub AllFile()
   
5.     Dim i As Integer
   
6.     Set ie = CreateObject("internetexplorer.application")   '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
   
7.     With ¤u§@ªí1
   
8.         AR = .Range("E1:G1")
   
9.         .Range("E:G") = ""
   
10.         .Range("E1:G1") = AR
    
11.         For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
    
12.            ReDim AR(1 To 3)
    
13.            Application.StatusBar = .Cells(i, 1) & "  " & .Cells(i, 2) & " Ū¨ú¤¤..."
    
14.             GetDividend .Cells(i, 1), 3
    
15.             GetDividend .Cells(i, 1), 2
    
16.             .Range("E1:G1").Offset(i - 1) = AR
    
17.         Next
    
18.     End With
    
19.     ie.Quit
    
20. End Sub
    
21. Private Sub GetDividend(ByVal ss As String, ByVal table As Integer)
    
22.     Dim rr As String, S As Object
    
23.     If table = 3 Then
    
24.         rr = "http://dj.mybank.com.tw/z/zc/zcc/zcc_" & ss & ".asp.htm"                'ªÑ§Qºô­¶
    
25.     ElseIf table = 2 Then
    
26.         rr = "https://djinfo.cathaysec.com.tw/Z/ZC/ZCX/ZCXNEWCATHAYSEC.DJHTM?A=" & ss '¦¬½L»ùºô­¶
    
27.     End If
    
28.     With ie
    
29.         .Navigate rr
    
30.         Do While .readyState <> 4 Or .Busy                        'µ¥«Ýºô­¶¤U¸ü§¹²¦
    
31.               DoEvents
    
32.         Loop
    
33.         With .document.BODY
    
34.            If InStr(.INNERTEXT, "­ÓªÑ¥N½X¿ù»~") Or InStr(.INNERTEXT, "µL¦¹ªÑ²¼¸ê®Æ") Then
    
35.                 MsgBox .INNERTEXT
    
36.                 Exit Sub
    
37.            End If
    
38.         End With
    
39.         Do
    
40.         Set S = .document.getElementsByTagName("table")(table)   ' ·sªº table 4
    
41.         Loop Until Not S Is Nothing
    
42.         If table = 3 Then
    
43.             AR(1) = S.Rows(1).Cells(1).INNERTEXT            '²{ª÷ªÑ§Q
    
44.             AR(2) = S.Rows(1).Cells(4).INNERTEXT            'ªÑ²¼ªÑ§Q
    
45.         ElseIf table = 2 Then
    
46.             AR(3) = S.Rows(1).Cells(7).INNERTEXT            '¦¬½L»ù
    
47.         End If
    
48.     End With
    
49. End Sub

½Æ»s¥N½X