ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ºô­¶¸ê®Æ¤U¸ü¦¨pdf²§±`¦aºC?

[µo°Ý] ºô­¶¸ê®Æ¤U¸ü¦¨pdf²§±`¦aºC?

¨Ï¥Î³Ì´¶¹Mªº¤èªkMicrosoft.XMLHTTP +ADODB.STREAM
¤U¸ü https://mm.jpmorgan.com/OpenPubServlet?action=latest&publication=9000024 ªºpdfÀÉ
¦ý¬O³t«×«oÅå¤HªººC... ±µªñ30¬í
¥Î¬Û¦P¤èªk¤U¸ü¨ä¥L¸ê®Æ ¦p http://ichart.finance.yahoo.com/table.csv?s=2498.TW&d=4&e=10&f=2013&g=d&a=2&b=26&c=2002&ignore=.csv
¥u»Ý­n¤@Àþ¶¡(¦]¬°Àɮ׮榡ªºÃö«Y¶Ü? pdf v.s. csv)
ÁöµM¦³¤U¸ü¦¨¥\ ¥i¬O¨ä¤¤µo¥Í¤F¤°»ò°ÝÃD ¯à§ïµ½¶Ü?
ÁÂÁÂ!
  1. Sub download1()
  2. 'On Error Resume Next
  3. DataDate = Year(Date) & "-" & Format(Month(Date), "00") & "-" & Day(Date)
  4. myURL = "https://mm.jpmorgan.com/OpenPubServlet?action=latest&publication=9000024"


  5. Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
  6. WinHttpReq.Open "GET", myURL, False
  7. WinHttpReq.Send

  8. myURL = WinHttpReq.ResponseBody
  9. If WinHttpReq.Status = 200 Then
  10.     Set oStream = CreateObject("ADODB.Stream")
  11.     oStream.Open
  12.     oStream.Type = 1
  13.     oStream.Write WinHttpReq.ResponseBody
  14.     oStream.SaveToFile ("D:\Dropbox\Stock\Research Reports\JPM Top Stories\JPM_J.P._Morgan_FTM_10_M_" & DataDate & ".pdf")
  15.     oStream.Close
  16. End If
  17. 'On Error GoTo 0

  18. End Sub
½Æ»s¥N½X

¨Ï¥Î³Ì´¶¹Mªº¤èªkMicrosoft.XMLHTTP +ADODB.STREAM
¤U¸ü https://mm.jpmorgan.com/OpenPubServlet?action= ...
lalalada µoªí©ó 2013-5-10 22:05



    ®æ¦¡¤£¦P.... ·íµMºC...
    ÄY®æ¨Ó»¡... PDF ¤£ºâ¬O¤å¥óÀÉ®×...  ¥u¯àºâ¥b¹Ï¤åÀÉ...  ÁöµM¥i¥HÂǥѳnÅé¥[¥HÂ^¨ú..
    ¦P¼Ë¤j¤pªº¹Ï¤ù©M¤å¦r  °ò¥»¤W  ¹Ï¤ù¶Ç¿é³t«×·|»·§C©ó ¤å¦r¶Ç¿é³t«×...  ·í¤¤ªº­ì¦] ¥i¥H¦Û¤v·Q·Q...

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 2# mark15jill

·PÁ¦^´_!
¨º½Ð°Ý¦³¨S¦³¿ìªk¯à§ïµ½³o²{¶H©O?

¦Ó¥B§Úª`·N¨ì¦pªG­«½Æ¶]µ{¦¡½X
²Ä¤G¦¸¤§«á´N¯à¹F¨ìÀþ¶¡°õ¦æ§¹²¦@@

TOP

¦^´_  mark15jill

·PÁ¦^´_!
¨º½Ð°Ý¦³¨S¦³¿ìªk¯à§ïµ½³o²{¶H©O?

¦Ó¥B§Úª`·N¨ì¦pªG­«½Æ¶]µ{¦¡½X
²Ä¤G ...
lalalada µoªí©ó 2013-5-13 23:36


¦pªG¬O ²Ä¤G¦¸¶]  Àþ¶¡¶]§¹ªº¸Ü  ¨º¦³¥i¯à¬O ¼È¦s¶Ç¿éªº°ÝÃD...
¼È¦s¶Ç¿éªº·N«ä´N¬O»¡
A¹q¸£ ­n±q B¥­¥x¤U¸üªF¦è
±qB¨ú±o¸ê®Æ­¶­±«á¡AAªº¹q¸£·|¥ý¥H¼È¦sªº¤è¦¡ ±NÀɮׯd¦s¤U¨Ó¡A¦b¥¿¦¡¤U¸üªº®É­Ô¡A³t«×´N·|µy·L§Ö...
³o°ÝÃD ·|²o³s¨ì  ºô³t ©M ¹q¸£CPU ....
§ïµ½¤èªk... ­«½Æ¶]¨â¦¸.. ²Ä¤@¦¸¾B½ª.. (®ø·¥!)

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 4# mark15jill

¤F¸Ñ~
·PÁ«ü±Ð:)
½Ð°Ý...­«½Æ¶]¨â¦¸(¾B½ª²Ä¤@¦¸)¬O¤°»ò·N«ä(?)
³o¼Ë¶]²Ä¤@¦¸ªº®É­ÔÁÙ¬O­n¤@¼Ë¤[¤£¬O¶Ü?
¬JµMºô§}³£¤@¼Ë
¦³¨S¦³¿ìªk§â¼È¦sÀɯd¤U¨Ó©O?

TOP

¦^´_ 5# lalalada


    ºô§}¦³¨âºØ
¤@ºØ¬O ¼ÐÃD¦C¨ºÃ䪺ºô§}
¥t¥~¤@ºØ¬O' ¤å¥óªººô§}
ÁöµM¦³®É­Ô  ²Ä¤@ºØºô§} ¬O¬Û¦P   ¥i¬O  ¸Ì­±ªº³sµ²ºô§}·|¤£¦P
©Ò¥H ¼È¦sÀɤ£·|¬O¬Û¦P~~
Á|¨Ò¨Ó»¡
³Â»¶®a±Ú°Q½×°Ïªººô§}¬° http://forum.twbts.com/
¸Ì­±ªº¤å³¹¦C ¤S·|¬O¥t¥~¤@ºØºô§}
¦Ó ¦pªG¦³ªþ¥ó¤U¸ü  ¤S·|¬O¥t¥~¤@ºØ

¦Ü©ó¤èªk...
¨º­ÓÁÙ¨S¬ã¨s£¾£¾ ©êºp

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¨Ï¥Î¡eXMLHTTP¡f»yªk¡A¦³®É·|¦³¦p¤Uª¬ªp¡G
²Ä¢°¦¸°õ¦æºC¡@¡Ö¡@Ãþ¦ü±q¶Ç¯u¾÷±µ¦¬¡e¥¿¥»¡f¤å¥óªº¡e°Æ¥»¡f¡A±q¡eµL¡f¨ì¡e¦³¡f¡AÁ`¬O­nµ¥¨Ç®É¶¡
²Ä¢±¦¸¥H«á°õ¦æ§Ö¡@¡Ö¡@¥u¬O®³¨ì¡e¶Ç¯u°Æ¥»¡fªº¡e¼v¦L¥»¡f
¦pªG¡e¥¿¥»¡f¨C¤Ñ§ó·s¡AÁÙ¬O¥²¶·­«·s°õ¦æ¶Ç¯u°Ê§@¡A¨ú±o³Ì·sªº¡e°Æ¥»¡f¡A¯Ó¶Oªº®É¶¡¬Û¦P¡A
°²¦p¨C¦¸¤U¸ü³£¬O­n¨ú±o³Ì·sª©¥»¸ê®Æ¡A­Y¤U¸ü³t«×²§±`ªº§Ö¡A¥²¶·¥h½T»{¬O§_¬°³Ì·s¡I

¦b¬Y¨Ç¢Þ¢Ñ¤W¡A§Y¨ÏÃö±¼ºô¸ô³s½u¡AÁÙ¬O¥i¥H¤U¸ü¤å¥ó¡A¦]¬°¡e¶Ç¯u°Æ¥»¡fÁÙ¦b¼È¦s°Ï¡A§ì¨ìªº¤å¥ó¡A¦³¤H§Î®e¬°¡e°­¼v¡f¡I
ºô¤W¥h¬d¤@¤U¡eGET¡f¤Î¡ePOST¡fªº®t§O¡A¦ý§ï¥Î¡ePOST¡f¦³®ÉÁÙ¬O¤£°÷ºë½T¡I

¥H¤W¯Â¬°­Ó¤H¹ê§@¸gÅç¡A¨Ã«D¤@©w¬O¦p¦¹¡A¶È¨Ñ°Ñ¦Ò¡I

TOP

¦^´_ 7# ­ã´£³¡ªL

§A¦n! ·PÁ¦^ÂÐ
§Ú¤j·§·|¥ÎPOST¸òGET¨âºØ¤èªk¨ú±o¸ê®Æ
­Ó¤H²z¸ÑPOST¬O¦³µo¥X°T®§µ¹¹ï¤è¦øªA¾¹
¦øªA¾¹¦A®Ú¾Ú°T®§µ¹¤©¹ïÀ³ªº¸ê®Æ
GET«h¬O³æ¯Â¦s¨ú
½Ð°Ý³o¼Ëªº²z¸Ñ¥¿½T¶Ü?
¤SPOST¤£ºë½Tªº·N«ä¬O¤°»ò...?

TOP

¦^´_ 6# mark15jill

§A¦n~·PÁ¦^ÂÐ!
§Ú¤]¦³ª`·N¨ìºô§}µ²§À¨Ã¤£¬OPDF
½Ð°Ý¦³¨S¦³¿ìªk±o¨ì¤å¥óªº¯u¹ê¦ì§}©O?

TOP

¡Õ´ú¸Õ½X¡Ö
Sub ´ú¸Õ_1()
Dim QcURL$, uTxt$, X1&, X2&
On Error GoTo 101
QcURL = "http://www.post.gov.tw/post/internet/index.jsp"
With CreateObject("Microsoft.XMLHTTP")
     .Open "post", QcURL, False
     .send
     uTxt = .ResponseText
End With
'---------------------------
T1 = "¥xÆW®É¶¡¡G</span> <span class='time'>"
T2 = "GMT+8:00  "
X1 = InStr(uTxt, T1)
If X1 > 0 Then X2 = InStr(X1 + Len(T1), uTxt, T2)
If X2 = 0 Then Exit Sub
uTxt = Mid(uTxt, X1 + Len(T1), X2 - X1 - Len(T1))
'---------------------------
uTxt = Replace(Replace(uTxt, "&nbsp", ""), ";", "")
If Len(uTxt) = 0 Then Exit Sub
[A65536].End(xlUp)(2) = uTxt
101: End Sub

½Ð¦A½Æ»s¤@¥÷¡A§ï¬°¡eSub ´ú¸Õ_2()¡f¡A¥B±N¡epost¡f§ï¬°¡eget¡f¡I

ÀË´ú°õ¦æ¡G
¢°¡D¥ý°õ¦æ´X¦¸¡e´ú¸Õ¢°¡f¡A¬Ý¤å¦r¦ê«á­±ªº®É¶¡¬O§_¦³§ó·s¡H¡Ä¡Ä102¦~5¤ë19¤é¬P´Á¤é12:52:24
¢±¡D¦A°õ¦æ´X¦¸¡e´ú¸Õ¢±¡f
¢²¡D±µµÛ¦A°õ¦æ¡e´ú¸Õ¢°¡f

¥H§Úªº¢Þ¢Ñ´ú¸Õ¡G
¦b¥¼°õ¦æGET«e¡APOST³£¥i¥H¨ú±o³Ì·s®É¶¡¡F°õ¦æGET«á¡A«áÄò³£¬O§ì¨ì®ɶ¡¡A§Y¨Ï¦Aªð¦^°õ¦æPOST¤]¬O¤@¼Ë¡I
¤£¹L±zªº¢Þ¢Ñ¨Ã¤£¤@©w¦p¦¹¡A°Ñ¦Ò§Y¥i¡I

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD