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

[µo°Ý] http§ó§ï¦¨https¡Aºô¯¸§ì¤£¨ì¸ê®Æ

½Ð°Ý³o­Óºô­¶¦p¦ó¥ÎWEB¬d¸ß¿é¤Jexcel

http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp

²Î¤@½s¸¹¡G16834268
¿ï¨ú¤è¦¡¡G©Ò¦³Ãº¯Ç³æ
´ä¤f¡G°ª¶¯´ä
¤é´Á¡G2012¦~6¤ë1¤é~~2012¦~7¤ë1¤é

¤p§Ì¤w¸g°µ¤F¤@­Óiqy,¦p¤U©Ò¥Ü¡A¦ýÁÙ¬OµLªkÅã¥Ü¡A½Ð¦U¦ì¥ý¶iÀ°¦£¡A·P¿E¤£ºÉ¡I
------------------
WEB
1
http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp
sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&YYYY2=2012&MM1=06&MM2=07&DD1=01&DD2=01
Selection=2
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False
------------------
Hi~

TOP

¦^´_ 1# jewayy

¥i¥Hµ¹§Ú¤@²Õ¯u¹ê¦s¦bªº³æ¸¹¶Ü?
¤£µM§Ú¨S¿ìªk´ú¸Õ@@"

TOP

±z¦n¡AÁÂÁ±zªº¦^ÂСC
©³¤U³o­Ó¬°¯u¹êªº¬d¸ß±ø¥ó¡G
-----------------------------
²Î¤@½s¸¹¡G16834268
¿ï¨ú¤è¦¡¡G©Ò¦³Ãº¯Ç³æ
´ä¤f¡G°ª¶¯´ä
¤é´Á¡G2012¦~6¤ë1¤é~~2012¦~7¤ë1¤é
-----------------------------
ªþ¤W¬d¸ß«áªººô­¶µ²ªG¨Ñ±z°Ñ¦Ò¡C
Hi~

TOP

½Ð°Ý¦³¤H¥i¥HÀ°¦£¶Ü¡H¤p§Ì·P¿E¤£ºÉ¡I
Hi~

TOP

¥»©«³Ì«á¥Ñ lalalada ©ó 2012-8-10 15:38 ½s¿è

¸Õ¸Õ³o­Ó~
  1. Sub TryIt()
  2. webURL = "URL;http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&interval=Y&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01"
  3. With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
  4. .PreserveFormatting = True
  5. .Refresh BackgroundQuery:=False
  6. End With
  7. End Sub
½Æ»s¥N½X
¬O¦³§ì¨ì¸ê®Æ ³o¬O§A­nªº¶Ü?
©êºp¦]¬°³o½g³Q¬~¤U¥h¤F ²{¦b¤~¬Ý¨ì@@
¯u­n»¡¸ò§A­ì¥»ªºcode¦³¤°»ò¤£¤@¼Ëªº¸Ü
´N¬O"?"¤F^.<

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-11 11:19 ½s¿è

¦^´_ 1# jewayy
iqy ÀÉ ªººô§}¦³°Ñ¼Æ ¶·¥[¤W ? ¥B¤£¥i¤À¨â¦æ
­×¥¿§Aªººô§}¦p¤U:  ÁÙ­n¥[¤W°Ñ¼Æ interval=Y  ·j´M¤é´Á½d³ò,¬°«ü©wªº°Ï¶¡, ¤£µM·|¤U¸ü«Ü¤[ªº!!
https://public-cpd.mtnet.gov.tw/p ... M2=07&DD1=01&DD2=01  
'http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&interval=Y&YYYY1=2012&YYYY2=2012&MM1=06&MM2=07&DD1=01&DD2=01

¥Îªí³æ¤]¥i¬d¸ß
°ê»Ú¬d¸ß.rar (22.45 KB)

TOP

³Ìªñ¦£¤F¤@¨Ç¨Æ,¨ì¤µ¤Ñ¦A¦^¨Ó,§A¥i¥H°Ñ¦Ò¬Ý¬Ý¥H¤Uªºcode,¬O¤£¬O§A­nªº
  1. Sub Ex()
  2.     Const StockIDURL As String = "http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y"
  3.     Dim xlSheet As Excel.Worksheet   
  4.     Set xlSheet = Sheets("Sheet1")   
  5.     With xlSheet.QueryTables.Add("URL;" & StockIDURL, xlSheet.Cells(1, 1))
  6.         .WebFormatting = xlWebFormattingNone
  7.         .WebTables = "1"
  8.         .Refresh 0
  9.         .Delete
  10.     End With   
  11.     Set xlSheet = Nothing
  12. End Sub
½Æ»s¥N½X

TOP

¦^¤Ó§Ö,·d¿ù¤F,§A¦A°Ñ¦Ò¬Ý¬Ý
  1. WEB
  2. 1
  3. http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y

  4. Selection=AllTables
  5. Formatting=All
  6. PreFormattedTextToColumns=True
  7. ConsecutiveDelimitersAsOne=True
  8. SingleBlockTextImport=False
  9. DisableDateRecognition=False
  10. DisableRedirections=False
½Æ»s¥N½X

TOP

¦^¤Ó§Ö,·d¿ù¤F,§A¦A°Ñ¦Ò¬Ý¬Ý
white5168 µoªí©ó 2012-8-10 16:57


§óºë²ªº§@ªk
  1. WEB
  2. 1
  3. http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y

  4. Selection=1
  5. Formatting=None
½Æ»s¥N½X

TOP

ÁÂÁ¦U¦ì¥ý¶iªº¼ö¤ß¦^ÂФÎÀ°¦£¡A°ÝÃD¤w¸Ñ¨M¡A¤]¾Ç²ß¨ì«Ü¦h¡I
Hi~

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD