- ©«¤l
- 102
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 129
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-16
- ³Ì«áµn¿ý
- 2020-9-2
|
¥»©«³Ì«á¥Ñ lalalada ©ó 2012-8-1 11:00 ½s¿è
³á³á ¤£¦n·N«ä
¤§«e§Ú¥H¬°¦¨¥\¤F µ²ªG¶]§¹¤§«áµo²{¸ê®Æ¬O¿ùªº...
³o¬O§Ú¤§«e¼gªº:
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
With WinHttpReq
.Open "POST", URL, False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Send (varBody)
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile ("C:\AA\temp\" & CStr(code) & ".csv")
oStream.Close
End With
Application.Workbooks.Open ("C:\AA\temp\" & CStr(code) & ".csv")
Cells.Find(what:="sp_list").Activate
Page = Left(ActiveCell, a, b)
´N¦p¤§«e©Ò»¡ ¬O±Nºô¶ì©lÀɧì¤U¨Ó¦AŪ¨ú
µo²{«á´N¶}©l×§ï µ¥¯uªº§Ë¦n¦Apo§¹¾ãª©
³o´X¤Ñ¥u¯àÄ~Äò¥ÎGª©¤j¤§«e¼gªº¤gªk·Ò¿û§ì¦³¿³½ìªºªÑ²¼ ʨ
¥Ø«e¥i¯àn½Ð±Ð¥ÎPYTHONªº¨º¦ìÅo ¬Ý°_¨Ó¦n¹³¥i¥H§ì¦¨csvÀÉ(?)
¤£¹L¥L¦ü¥G±Mª`©ó¶}·sª©¦Ó¨S¦³nPOµ{¦¡½Xªº·N«ä
©Ò¥H³Ìªñ¤]n¶}©l¾Ç¤F~ |
|