¨ú±oºô­¶­ì©l½Xªº¸ê®Æ

pideo

½Ð°Ý¤@¤U¤p§Ì¥Ø«e·Q¨ú±ohttp://www.tdcc.com.tw/smWeb/QryStock.jsp³oºô¯¸ªº­ì©l¥N½X¤¤ªº<option >«áªº¥þ³¡¤é´Á

¤U¸ü (54.02 KB)

2015-11-8 12:19

¥H¤U¬O¤p§Ì°Ñ¦Ò¸ê®Æ¼gªº¤@¬q
Dim web, url, webdata
    url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
    Set web = CreateObject("Microsoft.XMLHTTP")
    web.Open "get", url, False
    web.send
    webdata = Split(web.responseText, "<option >")   <<<<<<<³o¸Ì¤@­ÈÅã¥Ü¿ù»~
    For j = 0 To UBound(webdata)
        ThisWorkbook.Worksheets("¤u§@ªí1").Cells(j + 1, 1).Value = webdata(j)
    Next
End Sub

½Ð°Ý¤p§Ì¸Ó¦p¦ó­×§ï¤~¯à¨ú±o©Ò¦³¤é´Á¸ê®Æ
Àµ½Ð«ü¾É·PÁÂ

pideo

³o°Ñ¦Ò¸ê®Æ¯u¬O¤Ó´Î¤F
³o¦¸¯uªº¾Ç¨ì¤£¤Ö
·P®¦

­ã´£³¡ªL

¦^´_ 5# pideo

°Ñ¦Ò³o©«,¥u¯à¬ù²¤»¡©ú¡G
http://forum.twbts.com/thread-15544-1-1.html

pideo

¯u¬O¤Ó·PÁ¤j¤j
¤p§Ì¾Ç¨ì¤£¤ÖªF¦è
¤W­±ªº°ò¥»¤W³£¤F¸Ñ
¤£¹L¦³­Ó¤p°ÝÃD·Q½Ð±Ð¤@¤U
URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp" & "?" & Rnd
³o¬q¤¤ªº "?"»PRnd¬O¦³¤°»ò§@¥Î¶Ü?
Rnd¶Ç¦^¤@¬qÀH¾÷­Èªº¥\¯à¬O?
¤p§Ì´ú¸Õ¤F¤@¤U¤£¥[¦n¹³µ²ªG¤]¬O¤@¼Ë¨S¦³¼vÅT
¥i¥H½Ð¤j¤j«ü¾É¤@¤U¶Ü
·P®¦

­ã´£³¡ªL

³o¸Ì¦³¶WªOªº¸Ñªk¡A°Ñ¦Ò¡G
http://forum.twbts.com/thread-15067-1-7.html

­ã´£³¡ªL

¬d¸ß®É¥t¦scsvÀÉ¡@

Sub «O¤áªÑÅv¤À´²ªí¬d¸ß()
Dim XML, URL$, TT, vDate, vNo, vFile$, X, PP$
vDate = [F1]: vNo = [F2]: vFile = vNo & "_" & vDate & ".csv"
URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp?SCA_DATE=" & vDate & _
¡@¡@¡@"&SqlMethod=StockNo&StockNo=" & vNo & "&StockName=&sub=%ACd%B8%DF"
Set XML = CreateObject("Microsoft.XMLHTTP")
XML.Open "post", URL, False
XML.send
If XML.Status = 200 Then
¡@With CreateObject("ADODB.Stream")
¡@¡@¡@¡@.Open
¡@¡@¡@¡@.Type = 1
¡@¡@¡@¡@.Write XML.ResponseBody
        
¡@¡@¡@¡@.Position = 0
¡@¡@¡@¡@.Type = 2
¡@¡@¡@¡@.Charset = "BIG5"
¡@¡@¡@¡@TT = .ReadText
¡@¡@¡@¡@.Close
        
¡@¡@¡@¡@PP = "<table cellspacing=0 cellpadding=0 width=""100%"" border=0>"
¡@¡@¡@¡@X = Split(TT, PP)
¡@¡@¡@¡@If UBound(X) < 3 Then Exit Sub
¡@¡@¡@¡@TT = Replace(X(3) & PP & X(4), "¶°«O¤áªÑÅv¤À´²ªí", "")
¡@
¡@¡@¡@¡@.Open
¡@¡@¡@¡@.Writetext TT
¡@¡@¡@¡@.SaveToFile ThisWorkbook.Path & "\" & vFile, 2
¡@¡@¡@¡@.Close
¡@¡@¡@¡@Beep
¡@End With
End If
Set XML = Nothing
End Sub

ªþ¥ó¤U¸ü¡G¡@
20151108-01(«O¤áªÑÅv¤À´²ªí¬d¸ß).rar (10.47 KB)

¤U¸ü¦¸¼Æ: 11

2015-11-8 21:26

¥u¯à´£¨Ñ¦p¤W½d¨Ò¡A¨ä¥¦½Ð¦Û¦æ®M¥Î¡ã¡ã

­ã´£³¡ªL

Sub ¨ú¥X¤é´Á²M³æ()
Dim XML, URL$, TT
[A:A].ClearContents
URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp" & "?" & Rnd
Set XML = CreateObject("Microsoft.XMLHTTP")
XML.Open "post", URL, False
XML.send
If XML.Status = 200 Then
¡@With CreateObject("ADODB.Stream")
¡@¡@¡@¡@.Open
¡@¡@¡@¡@.Type = 1
¡@¡@¡@¡@.Write XML.ResponseBody
¡@¡@¡@¡@.Position = 0
¡@¡@¡@¡@.Type = 2
¡@¡@¡@¡@.Charset = "BIG5"
¡@¡@¡@¡@TT = .ReadText
¡@¡@¡@¡@.Close
¡@End With
¡@TT = Replace(TT, "</option><option >", "_")
¡@TT = Split(TT, "</option>")(0)
¡@TT = Split(TT, "<option >")(1)
¡@TT = Split(TT, "_")
¡@[A1].Resize(UBound(TT) + 1) = Application.Transpose(TT)
End If
Set XML = Nothing
End Sub