c_c_lai

¦^´_ 5# caesar0125
§A¸Õ¸Õ¼Ó¤W GBKEE ª©¤jªº¼Ò²Õ¡A
¨ä°õ¦æ®Ä²v»P³t«×«D±`ªº¨Î¡C ²¦³º
CreateObject("InternetExplorer.application")
¤§³B¸Ìªº½T¯Ó®É¹L¤[¡C

GBKEE

¦^´_ 5# caesar0125
§Ú¥ÎIE8 §ì¨ú¸ê®Æ¤]¦³§xÃø
§ï¥Î      CreateObject("msxml2.xmlhttp") + CreateObject("htmlfile")
¸Õ¬Ý¬Ý

1. Sub goodinfo_¦X¨Ö°]³ø()
   
2.     Dim xTable As Object, k As Integer, C As Integer, R As Integer, rc As Integer, sn As Integer
   
3.     Dim url As String, i As Integer, E As Variant
   
4.     Dim oXmlhttp As Object, oHtmldoc As Object, surl, op
   
5.     'Sheets("Á`ªí").Select
   
6.     rc = Sheets("Á`ªí").Cells(Rows.Count, 1).End(xlUp).Row
   
7.     Sheets("Àç¹BÁZ®Ä").UsedRange.Clear
   
8.     For i = 5 To rc
   
9.         sn = Sheets("Á`ªí").Cells(i, 1)
   
10.         url = "http://goodinfo.tw/StockInfo/StockBzPerformance.asp?STOCK_ID=" & sn & " &YEAR_PERIOD=10&RPT_CAT=M_YEAR"
    
11.          Set oXmlhttp = CreateObject("msxml2.xmlhttp")
    
12.          Set oHtmldoc = CreateObject("htmlfile")
    
13.          With oXmlhttp
    
14.             .Open "Get", url, False
    
15.             .Send
    
16.             oHtmldoc.write .responseText
    
17.         End With
    
18.         Set xTable = oHtmldoc.all.tags("TABLE")
    
19.         With Sheets("Àç¹BÁZ®Ä")
    
20.           '  .Cells.Clear
    
21.             For Each E In Array(11, 13, 19) '11,13,19  "TABLE"
    
22.                 k = k + 1
    
23.                 For R = 0 To xTable(E).Rows.Length - 1
    
24.                     For C = 0 To xTable(E).Rows(R).Cells.Length - 1
    
25.                         .Cells(k, C + 1) = xTable(E).Rows(R).Cells(C).innertext
    
26.                     Next
    
27.                     k = k + 1
    
28.                 Next
    
29.             Next
    
30.           End With
    
31.     Next
    
32. End Sub

½Æ»s¥N½X

caesar0125

¦^´_ 4# c_c_lai
¼Ó¤W¤j¤j

§ÚªºªÑ²¼²M³æ¦³50­Ó¡A¤À§å¸ê®Æ¸Ó¦p¦ó³B

§Úªºµ{¦¡¬O¦]¬°§Úªººô¸ô³t«×°ÝÃD¡H¦³®É®»¨ì²M³æ²Ä3¡B4­Ó¡A¦³®É¥i®»¨ì²Ä20´X­Ó

c_c_lai

¦^´_ 1# caesar0125

¤U¸ü (72.39 KB)

2016-6-7 10:59

c_c_lai

¦^´_ 1# caesar0125
§Ú±Nµ{¦¡µyµy¾ã²z¤F¤@¤U¡A
¥[±j Focus ¨ì Sheets("Àç¹BÁZ®Ä")¡C

1. Sub ¾ú¥vªÑ»ù§ó·s()
   
2.     Dim xTable As Object, k As Integer, c As Integer, r As Integer, rc As Integer, sn As Integer
   
3.     Dim url As String, i As Integer, E As Object
   
4.    
   
5.     Sheets("Á`ªí").Select
   
6.     rc = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     k = 0
   
8.    
   
9.     With Sheets("Àç¹BÁZ®Ä")
   
10.         .Select
    
11.         .UsedRange.Clear
    
12.     End With
    
13.    
    
14.     '  For i = 5 To rc
    
15.     For i = 1 To 5
    
16.         sn = Sheets("Á`ªí").Cells(i, 1)
    
17.         url = "http://goodinfo.tw/StockInfo/StockBzPerformance.asp?STOCK_ID=" & sn & " &YEAR_PERIOD=10&RPT_CAT=M_YEAR"
    
18. 
    
19.         With CreateObject("InternetExplorer.application")
    
20.             .Visible = True
    
21.             .Navigate url
    
22. 
    
23.             Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
24.         
    
25.             Set xTable = .Document.getElementsByTagName("TABLE")(11)    '  ¸ê®Æ¦b³o
    
26.         
    
27.             With Sheets("Àç¹BÁZ®Ä")
    
28.                 k = k + 1
    
29.                 For r = 0 To xTable.Rows.Length - 1
    
30.                     For c = 0 To xTable.Rows(r).Cells.Length - 1
    
31.                         .Cells(k, c + 1) = xTable.Rows(r).Cells(c).innertext
    
32.                     Next
    
33.                     k = k + 1
    
34.                 Next
    
35.             End With
    
36.         
    
37.             Set xTable = .Document.getElementsByTagName("TABLE")(13)    '  ¸ê®Æ¦b³o
    
38.             With Sheets("Àç¹BÁZ®Ä")
    
39.                 k = k + 1
    
40.                 For r = 0 To xTable.Rows.Length - 1
    
41.                     For c = 0 To xTable.Rows(r).Cells.Length - 1
    
42.                         .Cells(k, c + 1) = xTable.Rows(r).Cells(c).innertext
    
43.                     Next
    
44.                     k = k + 1
    
45.                 Next
    
46.             End With
    
47.         
    
48.             Set xTable = .Document.getElementsByTagName("TABLE")(19)    '  ¸ê®Æ¦b³o
    
49.             With Sheets("Àç¹BÁZ®Ä")
    
50.                 k = k + 1
    
51.                 '  For r = 0 To 3
    
52.                 For r = 0 To xTable.Rows.Length - 1
    
53.                     For c = 0 To xTable.Rows(r).Cells.Length - 1
    
54.                         .Cells(k, c + 1) = xTable.Rows(r).Cells(c).innertext
    
55.                     Next
    
56.                     k = k + 1
    
57.                 Next
    
58.             End With
    
59.             
    
60.             .Quit
    
61.         End With
    
62.     Next
    
63. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 1# caesar0125

1. ¡yFor i = 5 To rc¡z ªº rc ¦pªG¶W¹L¤Q­Ó¥H¤W¡A·|µo¥Í¥H¤U¤§°T®§¡G
   
2. ©Ò¥H«Øij¤£­n¤@¦¸µL¤îºÉªº·j´M¡A³Ì¦n¤À¦¸¡B¤À®É¬qªº¨Ó°õ¦æ¡C
   
3. 
   
4. ¡uºô¯¸°»´ú¨ì±zªºÂsÄý¶q²§±`, ¥Ø«e¼È®ÉÃö³¬ªA°È, ½Ðµy«á¦A­«·s¬d¸ß¡v

½Æ»s¥N½X