[µo°Ý] Web§ó·sºô­¶¡A·|¶]¥X 2²Õ¥X¨Ó (¶À¦â)

7777

½Ð±Ð
Web§ó·sºô­¶¡A·|¶]¥X 2²Õ¥X¨Ó (¶À¦â)
1.¸Ó ¦p¦ó¸Ñ¨M³B²z~
2.¥i¥H ¦p¦ó²¤Æ...·PÁÂ

VB ºCºC..¾Ç²ß¤¤

¤U¸ü (297.09 KB)

2018-9-4 12:40

test-023.rar (21.58 KB)

¤U¸ü¦¸¼Æ: 17

2018-9-4 12:39

a5007185

¦^´_ 1# 7777

ªì¨B§P©w¡A
´Nºâ¤â°Ê¥þ¿ï½Æ»s¤@¼Ë·|¥X²{¦P¼Ëªº°ÝÃD¡A
«Øij±Ä¥ÎÃöÁä¦r½Æ»s­ì©l¤å¥»¡A
(¥i°Ñ¦Ò¤@¨Çª¦ÂΤ峹)

¼È®É¥ýÀ°¨ì³o¡A
µ¥¦³ªÅ§Ú¦A¨Ó¬ã¨s¬ã¨s XD

iamaraymond

¦^´_ 1# 7777

1. Sub Future()
   
2. 
   
3. Dim myXML As Object
   
4. Set myXML = CreateObject("Microsoft.XMLHTTP")
   
5. 
   
6. Dim myHTML As Object
   
7. Set myHTML = CreateObject("HTMLFile")
   
8. 
   
9. ReDim myArr(1 To 55, 1 To 15)
   
10. 
    
11. With myXML
    
12.     .Open "GET", "http://info512.taifex.com.tw/Future/FusaQuote_Norl.aspx?t=" & Timer, False
    
13.     .send
    
14.     myHTML.body.innerHTML = .responseText
    
15.     Set myTable = myHTML.getElementByID("ctl00_ContentPlaceHolder1_uc_DgFusaQuote1_dgData")
    
16.     i = 1
    
17.     For Each myRow In myTable.Rows
    
18.         j = 1
    
19.         For Each myCell In myRow.Cells
    
20.             myArr(i, j) = myCell.innerText
    
21.             j = j + 1
    
22.         Next
    
23.         i = i + 1
    
24.     Next
    
25. End With
    
26. 
    
27. Range("A5").Resize(55, 15).Value = myArr
    
28. 
    
29. Set myXML = Nothing
    
30. Erase myArr
    
31. End Sub
    
32. Sub Opt()
    
33. 
    
34. Dim myXML As Object
    
35. Set myXML = CreateObject("Microsoft.XMLHTTP")
    
36. 
    
37. Dim myHTML As Object
    
38. Set myHTML = CreateObject("HTMLFile")
    
39. 
    
40. ReDim myArr(1 To 30, 1 To 13)
    
41. 
    
42. With myXML
    
43.     .Open "GET", "http://info512.taifex.com.tw/Future/OptQuote_Norl.aspx?t=" & Timer, False
    
44.     .send
    
45.     myHTML.body.innerHTML = .responseText
    
46.     Set myTable = myHTML.getElementByID("ctl00_ContentPlaceHolder1_uc_DgOptQuote1_UpdatePanel1").getElementsByTagName("table")(0)
    
47.     i = 1
    
48.     For Each myRow In myTable.Rows
    
49.         j = 1
    
50.         For Each myCell In myRow.Cells
    
51.             myArr(i, j) = myCell.innerText
    
52.             j = j + 1
    
53.         Next
    
54.         i = i + 1
    
55.     Next
    
56. End With
    
57. 
    
58. Range("R5").Resize(30, 13).Value = myArr
    
59. 
    
60. Set myXML = Nothing
    
61. Erase myArr
    
62. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# 7777

1. Option Explicit
   
2. Sub EX_ºô­¶()
   
3.     Dim oXmlhttp As Object, oHtmldoc As Object, E As Object, R As Integer, C As Integer
   
4.     Dim I As Integer, AR(1 To 2)
   
5.     AR(1) = "http://info512.taifex.com.tw/Future/FusaQuote_Norl.aspx"
   
6.     AR(2) = "http://info512.taifex.com.tw/Future/OptQuote_Norl.aspx"
   
7.     Cells.Clear
   
8.     For I = 1 To 2
   
9.         Set oXmlhttp = CreateObject("msxml2.xmlhttp")
   
10.         Set oHtmldoc = CreateObject("htmlfile")
    
11.         With oXmlhttp
    
12.             .Open "Get", AR(I), False
    
13.             .send
    
14.             oHtmldoc.write .responseText
    
15.         End With
    
16.         Set E = oHtmldoc.all.tags("TABLE")( 12))
    
17.         For R = 0 To E.Rows.Length - 1
    
18.             For C = 0 To E.Rows(R).Cells.Length - 1
    
19.                 With IIf(I = 1, [A26], [T26])
    
20.                 .Cells(R + 1, C + 1) = E.Rows(R).Cells(C).innerText
    
21.                 End With
    
22.             Next
    
23.         Next
    
24.         Set oXmlhttp = Nothing
    
25.         Set oHtmldoc = Nothing
    
26.     Next
    
27. End Sub

½Æ»s¥N½X

a5007185

¦^´_ 4# GBKEE


ÁÂÁ¶W¯ÅªO¥Dªº¤À¨É¡I
¦]¬°¦³§A­Ì¼ö¤ßªº¤À¨É¡A
¤~¯àÅý§Ú­Ì³o¨Ç«á½ú¥i¥H¶}²´¬É~  : )

7777

¦^´_ 3# iamaraymond

·PÁÂ
Raymond Chien ªº¤j¤OÀ°¦£
µ{¦¡OK
¥»¤H¦A¬ã¨s¾Ç²ß¤¤¡A
¶W¯Å·PÁÂ~~¼ö¤ßªºÀ°¦£¡C

7777

¦^´_ 4# GBKEE

ÁÂÁ GBKEE ªº¤À¨É¡I
µ{¦¡OK

Set E = oHtmldoc.all.tags("TABLE")( 12))
¦h¤F ¤@­Ó ")"

·PÁÂ