f3202

¦^´_ 8# iamaraymond

¤U¸ü (34.54 KB)

2018-6-17 15:37

¤U¸ü (49.67 KB)
­ìºô­¶

2018-6-17 15:39

a99¤§«áªÑ¦W¤U¸ü¤£¨ì
ÁÂÁÂ

DanielWONG

¦^´_ 2# f3202


   Very  Nice code!  Thank you very much!

DanielWONG

这¨½¯u¬O°ª¤â¤ª¶°¡A¥H«e¤@¨Ç¥H为没ªk¥ÎVBA´£¨úªº资®Æ­ì来¬O¥i¥Hªº¡I¨º¤\请±Ð¤U­±这个ÊI¯¸ªºRSI数Õu¥i¥H¥Îvba¦Û动´£¨ú吗¡H 谢谢¡I

http://www.aastocks.com/tc/stock/detailchart.aspx?symbol=110000#GTop

¤U¸ü (115.35 KB)

2018-6-17 20:17

iamaraymond

¦^´_ 9# f3202

³oÀ³¸Ó¥i¥H¨Ï¥Î±z¦b¥t¥~¤@­Ó©«¤l¦^ªº
http://forum.twbts.com/redirect. ... 3&fromuid=30076
xmlhttp+htmlfile¨Ó§ì¨ì

f3202

¦^´_ 10# iamaraymond

9¼Óªº¹Ï¬O¨º­Óµ{¦¡¤U¸ü¥[ÅܽXªº
ÁÂÁÂ

iamaraymond

¦^´_ 11# f3202

¸Õ¸Õ¬Ý

1. Sub test()
   
2. 
   
3. Dim t: t = Timer
   
4. 
   
5. Cells.Clear
   
6. 
   
7. Dim myXML As Object
   
8. Set myXML = CreateObject("Microsoft.XMLHTTP")
   
9. 
   
10. Dim myHTML As Object
    
11. Set myHTML = CreateObject("HTMLFile")
    
12. 
    
13. With myXML
    
14.     .Open "GET", "https://djinfo.cathaysec.com.tw/z/ze/zef/zef.djhtm", False
    
15.     .send
    
16.    
    
17.     myHTML.body.innerHTML = convertraw(.responseBody)
    
18.     Set myTrs = myHTML.getElementsByTagName("table")(2).getElementsByTagName("tbody")(0).getElementsByTagName("tr")
    
19.     ReDim myArr(1 To myTrs.Length + 1, 1 To 4)
    
20.     i = 1
    
21.     For Each myTr In myTrs
    
22.         Set myTds = myTr.getElementsByTagName("td")
    
23.         j = 1
    
24.         For Each myTd In myTds
    
25.             myArr(i, j) = myTd.innerText
    
26.             If myTd.innerText = "" Then
    
27.                 myArr(i, j) = Right(Split(Split(Split(myTd.innerHTML, "GenLink2stk(")(1), "')")(0), "'")(1), 4) & Split(Split(Split(myTd.innerHTML, "GenLink2stk(")(1), "')")(0), "'")(3)
    
28.             End If
    
29.             j = j + 1
    
30.         Next
    
31.         i = i + 1
    
32.     Next
    
33.    
    
34. End With
    
35. Range("A1").Resize(UBound(myArr, 1), 4).Value = myArr
    
36. Range("A1").WrapText = False
    
37. Set myXML = Nothing
    
38. Application.StatusBar = "§ì¨ú§¹²¦¡A¦@ªá¶O" & Format(Timer - t, "0.00¬í")
    
39. 
    
40. End Sub
    
41. Function convertraw(rawdata)
    
42. 
    
43. Dim rawstr
    
44. Set rawstr = CreateObject("adodb.stream")
    
45. With rawstr
    
46. .Type = 1
    
47. .Mode = 3
    
48. .Open
    
49. .Write rawdata
    
50. .Position = 0
    
51. .Type = 2
    
52. 'ÁcÅé³q±`Âনbig5´N¥i¥H¤F¡A²Åé³q±`¬Ogb2312
    
53. .Charset = "big5"
    
54. convertraw = .ReadText
    
55. .Close
    
56. End With
    
57. Set rawstr = Nothing
    
58. 
    
59. End Function

½Æ»s¥N½X

f3202

¦^´_ 12# iamaraymond

ÁÂÁª©¤j
²Ä¤@­Ó´ú¸Õ¦¨¥\
²Ä¤G­Ó§Ú¬ã¨s¬Ý¬Ý
­Y¦³°ÝÃD¦A½Ð±Ðª©¤j
¨Î¸`´r§Ö

iamaraymond

¦^´_ 13# f3202

OK¡A§A¥i¥H¥ý¬ã¨s¤@¤Uµ{¦¡½X
¬Ý¦p¦ó§ï¦¨§ì²Ä¤G­Óºô§}ªº¸ê®Æ
³o¼Ë¤ñ¸û®e©ö¶i¨B
­Y¦³°ÝÃD³£¥i¥H°Ý³á~