­ã´£³¡ª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

­ã´£³¡ª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

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

­ã´£³¡ªL

¦^´_ 5# pideo

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