[µo°Ý] ¦³Ãö¥æ©ö©Ò¿Ä¸ê¨é¾lÃB¸ê®Æ¬d¸ßºô­¶

a68951

¥i¥H½Ð±Ð¤@¤U¥æ©ö©Ò¿Ä¸ê¨é¾lÃB¸ê®Æ

­ìºô§}¬°¡Ghttp://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php

¨ú±o¸ê®Æºô§}¬°¡Ghttp://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201508/A11220150811_1.php?select2=&chk_date=104/08/11

¦ý12¤é¤§«á¬d¸ß¤º®e¬°µL¸ê®Æ¡A·Q½Ð°Ý¦p¦óª¾¹D·sºô§}¬°¦ó¡H

hipper68

¦³¦P¼ËªººÃ°Ý...
¤£¹L§Ú­nªº¥u¦³¿Ä¸ê¿Ä¨÷¾lÃB
³o¨â¤Ñµo²{­ì¨Ó¥Î excel §ì¿Ä¸ê¿Ä¨÷¾lÃB url ¤£¯à¥Î¤F...

­ì¨Óªº:  (¥H 2015/8/12¬°¨Ò)
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201508/A11220150812MS.php?select2=MS&chk_date=104/08/12
¥i¥H¨ú±o "«H¥Î¥æ©ö²Î­p"³oÃþªº¸ê®Æ =>´N¬O¿Ä¸ê¿Ä¨÷¾lÃB
¦ý³o¨â¤Ñ³o­Óurl ·|§ä¤£¨ì A11220150812MS.php

¦ý¬O¦pªG±N "MS" §ï¦¨ "01" (¿Ä¸ê¿Ä¨é·JÁ`(¤ôªd¤u·~)), ¤]´N¬O
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201508/A1122015081201.php?select2=MS&chk_date=104/08/12
«h¥i¥H¥¿½T¨ú±o¤ôªdÃþªÑªº¸ê®Æ.

½Ð°Ý¦U¦ì¤j¤j¡A¸Ó¥Î­þºØ url ¨ú±o "«H¥Î¥æ©ö²Î­p" ³oÃþªº¸ê®Æ..
·PÁ¡I¡I·PÁ¡I¡I

joey0415

¦^´_ 1# a68951
¦¹¬°ieÂIÀ»ªk¡A¬í¼Æ½Ð¦Û¦æ­×§ï
¤é´Á½Ð¦Û³]¬°ÅܼƧY¥i

1. Sub ex()
   
2. 
   
3.     With CreateObject("internetexplorer.application")
   
4.         .Visible = True
   
5.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
   
6.         Do Until .ReadyState = 4
   
7.             DoEvents
   
8.         Loop
   
9.         
   
10.         .Document.getElementById("date-field").Value = "104/08/12" '¶ñ¤J
    
11.          
    
12.         '---------¡A¤º«Øªºfireevent ªºonchange¥¢®Ä¡A§ï¥Î½Õ¥Îjsªº¤èªk--------
    
13.         Set evt = .Document.createEvent("HTMLEvents")
    
14.         evt.initEvent "change", True, False
    
15.         Set lst = .Document.all("selectType") 'optionªºname¬OselectType¡A¦ýgetElementsByNameµLªk³B²z¡A­nall¤~¦æ
    
16.         lst.selectedIndex = 1
    
17.         lst.dispatchEvent evt
    
18.    
    
19.         .Document.all("query-button").Click
    
20. 
    
21. 
    
22.          Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
23. 
    
24.         Application.Wait Now + TimeValue("00:00:5")
    
25.         Stop
    
26.         
    
27.         'For Z = 0 To 10
    
28.         'MsgBox .Document.getElementsByTagName("table")(Z).innerText
    
29.         'Next
    
30.             Stop
    
31.         Set hTable = .Document.getElementsByTagName("table")(4) '²Ä4­Ótable
    
32.         tt = hTable.Rows.Length
    
33.         qq = hTable.Rows(2).Cells.Length
    
34. 
    
35.             With ActiveSheet
    
36.                 For i = 3 To hTable.Rows.Length - 1 '«e3­Ó¬O¼ÐÃD»PªÅ¥Õ¸õ¹L
    
37.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
    
38.                         .Cells(i - 2, j + 1) = hTable.Rows(i).Cells(j).innerText
    
39.                     Next
    
40.                 Next
    
41.             End With
    
42. 
    
43.         .Quit
    
44. '        MsgBox "OK"
    
45.     End With
    
46.    
    
47. End Sub

½Æ»s¥N½X

a68951

¤Ó·PÁ¤F~¥ý¦¬¤U¤F~

a68951

¤£¦n·N«ä~§Ú¶]¤F¤@¤U´£¨Ñªºµ{¦¡½X¡A¤j§ï²z¸Ñ¤F¡A
«e­±¥ý¦Û°Ê°õ¦æºô­¶°õ¦æ«öÁ䬰¥þ³¡table¡A
±µµÛ§ä¥X¦³­þ¨Çtable¡A§ì²Ä¥|­Ótable¸ê®Æ¡A
§ä¥XÄæ¦C¡A¦ý²Ä¥|­Ótable¥u¦³¤@¦C¡A¨S¦³Äæ¡A
À³¸Ó¬O¨S·j¨ìªº·N«ä¡A¬O§_ªí¥Ü³o¤èªk§ì¤£¨ìtable(4)?

ÁÙ¬O«Ü·PÁ¡A¦hÁÂ~

joey0415

¦^´_ 5# a68951

table 4  ¨ä¹ê¬O²Ä¤­­Ó¡Aexcel ¬O±q0¶}©l

¤U¸ü (18.67 KB)

2015-8-15 21:15

¤£¬O¨S¦³Äæ¦Ó¬O«e­±ªºÄæ¦ì¦³¦X¨Ö»P«á­±ªºtalbe¤¤ªºÄæ¦ìªø«×¤£¤@¸m

¤U­±¬O­×§ï¹Lªºµ{¦¡½X

1. Sub ex()
   
2.     Application.ScreenUpdating = False  '°±¤î §ó·sSheet®É µe­±¡A¥[³t¹Bºâ
   
3.     Application.DisplayAlerts = False  '°±¤î §R°£Sheet®É ¹w³]ªºÄµ§i
   
4.     Cells.Clear
   
5.     With CreateObject("internetexplorer.application")
   
6.         .Visible = True
   
7.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
   
8.         Do Until .ReadyState = 4
   
9.             DoEvents
   
10.         Loop
    
11.         
    
12.         .Document.getElementById("date-field").Value = "104/08/12" '¶ñ¤J
    
13.          
    
14.         '---------¡A¤º«Øªºfireevent ªºonchange¥¢®Ä¡A§ï¥Î½Õ¥Îjsªº¤èªk--------
    
15.         Set evt = .Document.createEvent("HTMLEvents")
    
16.         evt.initEvent "change", True, False
    
17.         Set lst = .Document.all("selectType") 'optionªºname¬OselectType¡A¦ýgetElementsByNameµLªk³B²z¡A­nall¤~¦æ
    
18.         lst.selectedIndex = 1
    
19.         lst.dispatchEvent evt
    
20.    
    
21.         .Document.all("query-button").Click
    
22. 
    
23. 
    
24.          Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
25. 
    
26.         Application.Wait Now + TimeValue("00:00:5")
    
27. '        Stop
    
28.         
    
29.         'For Z = 0 To 10
    
30.         'MsgBox .Document.getElementsByTagName("table")(Z).innerText
    
31.         'Next
    
32.         Set hTable = .Document.getElementsByTagName("table")(4) '²Ä4­Ótable
    
33. 
    
34. 
    
35.                 For i = 0 To hTable.Rows.Length - 1 '«e3­Ó¬O¼ÐÃD»PªÅ¥Õ¸õ¹L
    
36.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
    
37.                         If j = 0 And i > 2 Then
    
38. 
    
39.                                 Cells(i + 1, j + 1) = "'" & hTable.Rows(i).Cells(j).innerText
    
40. 
    
41.                             Else
    
42.                                 Cells(i + 1, j + 1) = hTable.Rows(i).Cells(j).innerText
    
43.                         End If
    
44.                     Next
    
45.                 Next
    
46. 
    
47. 
    
48.         .Quit
    
49.     End With
    
50.    
    
51.     Range("A3:B3").Insert Shift:=xlToRight
    
52.     Range("A2:B2").Select
    
53.     Selection.Cut
    
54.     Range("A3").Select
    
55.     ActiveSheet.Paste
    
56.     Range("E2:F2").Select
    
57.     Selection.Cut
    
58.     Range("O3").Select
    
59.     ActiveSheet.Paste
    
60.     Range("A1").Select
    
61.     Range("D2:h2").Insert Shift:=xlToRigh
    
62.    
    
63.         Application.ScreenUpdating = True  '°±¤î §ó·sSheet®É µe­±¡A¥[³t¹Bºâ
    
64.         Application.DisplayAlerts = True '°±¤î §R°£Sheet®É ¹w³]ªºÄµ§i
    
65.    
    
66. End Sub

½Æ»s¥N½X

vavashop

Sub AAA()

Sheets("¤W¥«").Select
    Range("B1").Select
    Sheets("¤W¥«¿Ä¸ê¾lÃB").Select
    Cells.Select
    Selection.ClearContents
    Sheets("¤W¥«").Select
    Selection.Copy
    Sheets("¤W¥«¿Ä¸ê¾lÃB").Select
    Range("A1").Select
    ActiveSheet.Paste
   
   
   

  
   Dim y, m, d, param As String ' «Å§i y, m, d, param ¬°¦r¦êÅܼÆ
    y = Sheets("¤W¥«¿Ä¸ê¾lÃB").Range("B2") ' ¦è¤¸¦~
    m = Format(Sheets("¤W¥«¿Ä¸ê¾lÃB").Range("B3"), "00") ' ¤ë¡A¨Ï¥ÎFormat¨ç¼Æ±j¨î¤Q¦ì¼Æ¸É0
    d = Format(Sheets("¤W¥«¿Ä¸ê¾lÃB").Range("B4"), "00") ' ¤é¡A¨Ï¥ÎFormat¨ç¼Æ±j¨î¤Q¦ì¼Æ¸É0
    param = (y - 1911) & "/" & m & " ' ¥Á°ê¦~/¤ë/¤é"



    Application.ScreenUpdating = False  '°±¤î §ó·sSheet®É µe­±¡A¥[³t¹Bºâ
    Application.DisplayAlerts = False  '°±¤î §R°£Sheet®É ¹w³]ªºÄµ§i
    Cells.Clear
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        
        .Document.getElementById("date-field").Value = param '¶ñ¤J
         
        '---------¡A¤º«Øªºfireevent ªºonchange¥¢®Ä¡A§ï¥Î½Õ¥Îjsªº¤èªk--------
        Set evt = .Document.createEvent("HTMLEvents")
        evt.initEvent "change", True, False
        Set lst = .Document.all("selectType") 'optionªºname¬OselectType¡A¦ýgetElementsByNameµLªk³B²z¡A­nall¤~¦æ
        lst.selectedIndex = 1
        lst.dispatchEvent evt
   
        .Document.all("query-button").Click


         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop

        Application.Wait Now + TimeValue("00:00:5")
'        Stop
        
        'For Z = 0 To 10
        'MsgBox .Document.getElementsByTagName("table")(Z).innerText
        'Next
        Set hTable = .Document.getElementsByTagName("table")(4) '²Ä4­Ótable


                For i = 0 To hTable.Rows.Length - 1 '«e3­Ó¬O¼ÐÃD»PªÅ¥Õ¸õ¹L
                    For J = 0 To hTable.Rows(i).Cells.Length - 1
                        If J = 0 And i > 2 Then

                                Cells(i + 1, J + 1) = "'" & hTable.Rows(i).Cells(J).innerText

                            Else
                                Cells(i + 1, J + 1) = hTable.Rows(i).Cells(J).innerText
                        End If
                    Next
                Next


        .Quit
    End With
   
    Range("A3:B3").Insert Shift:=xlToRight
    Range("A2:B2").Select
    Selection.Cut
    Range("A3").Select
    ActiveSheet.Paste
    Range("E2:F2").Select
    Selection.Cut
    Range("O3").Select
    ActiveSheet.Paste
    Range("A1").Select
    Range("D2:h2").Insert Shift:=xlToRigh
   
        Application.ScreenUpdating = True  '°±¤î §ó·sSheet®É µe­±¡A¥[³t¹Bºâ
        Application.DisplayAlerts = True '°±¤î §R°£Sheet®É ¹w³]ªºÄµ§i
   
End Sub


¤j¤j½Ð°Ý³o¸Ó«ç»ò§ï·í¤Ñªº
·Pı§Úªº¶]«ÜºC
½ÐÀ°§Ú¦£¤@¤UÁÂÁÂ