[µo°Ý] ¥æ©ö©Òºô¯¸ªº¦¬½L»ù¤wÅܧó?¥Î°ÊºA¬d¸ß¤w¥¢®Ä?

t8899

¦p¦óª½±µ§ì¨ú¶×¤Jexcel??
http://www.tse.com.tw/ch/trading/exchange/MI_INDEX/MI_INDEX.php
¤ÀÃþ¶µ¥Ø ==>¥þ³¡(¤£§tÅvÃÒ¡A¤ûºµ........)

t8899

¦^´_  t8899

´«¤F,¥Î³o­Ó!

Sub XL()
Set XML = CreateObject("Microsoft.XMLHTTP")
Set stream =  ...
HSIEN6001 µoªí©ó 2014-12-26 21:47

1.«e­±ªº¤j½L²Î­p¸ê°T¥i¥H¤£­n¶Ü ??§Ú¥u­n¨C¤é¦¬½L¦æ±¡(¥þ³¡(¤£§tÅvÃÒ¡B¤ûºµÃÒ)")"
2.±z¬O¦s¦¨csv ÀÉ¡AÁÙ­n¦A¥s¶i¨Ó,¥iª½±µ¶×¤J sheet1 ¶Ü?

t8899

¦^´_  t8899

¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2014-12-27 11:43

ÁÂÁ¡A¥i¥H
¥i§_¦A¥[¤J
°²¦p§ì·í¤Ñ¤é´Áºô¯¸ÁÙ¨S²£¥Í(§ì¤£¨ì)«h§ì«e¤@¤Ñ.....§ì¨ì¦³¬°¤î(¥u§ì5¤Ñ)Á٧줣¨ì´N¸õ¥X
§ì¤£¨ì·í¤Ñ¡A«h´£¥Ü §ì¨ìªº¤é´Á(·í¤Ñ¤£¥Î)¡A5¤Ñ³£§ì¤£¨ì¤]´£¥Ü

t8899

½Ð°Ý GBKEE ºô¤j:
  §Ú±N.ALL("selectType").Value = "ALLBUT0999" ¡¥¥þ³¡(¤£§tÅvÃÒ¡B¤ûºµÃÒ)")
   §ï¦¨. ...
tsuneng µoªí©ó 2014-12-27 16:15

§ï¬°
    .BODY.innerHTML = .getElementsByTagName("table")(0).outerHTML

t8899

¦^´_  t8899
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2014-12-27 11:43

¤U­±³o¨â¦æ¤£À´
    .ExecWB 17, 2       '  Select All
    .ExecWB 12, 2       '  Copy selection
17,2 ¸ò 12,2 ¬O«ç»òºâªº ??

t8899

¦^´_  t8899
°Ñ¦Ò¤@¤U
GBKEE µoªí©ó 2014-12-28 07:39

ÃÒ¨é¥N¸¹  «e­±¬O¨â­Ó0Âà¤J·|¤£¨£ (·|·í¦¨¼Æ¦r) 0050 ===>  50
³o¦³µL¿ìªk­×¥¿?

t8899

¦^´_  t8899

µ{¦¡µ²§ô«e °õ¦æEx_°Æµ{¦¡
GBKEE µoªí©ó 2014-12-28 08:54

«Ü©_©Ç¡A¦pªG§Ú¥Î f8 ³æ¨B°õ¦æ A4¥H«á³£·|³Q·|·í¦¨¼Æ¦r IsNumeric(²Å¦X±ø¥ó) ,«e­±³£·|¥['00 ???
f5 °õ¦æ¬O¥¿±`ªº

t8899

¶¶«K¸É¥R2¼ÓcsvÀÉ ¸òhtml ¸ü¤J¤u§@ªíªº»yªk
CSV Àɸü¤J
sub goDKDKD()
Dim srWk As Workbook
    Dim srPth
    srPth = "R:\TEMP\1.CSV"
    If srPth = False Then Exit Sub
     Application.ScreenUpdating = False
    Set srWk = GetObject(srPth)
    srWk.ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(1).Cells(1)
    srWk.Close False
    Set srWk = Nothing
    Cells(2, 1).Select
END SUB
--------------------------------------------
html Àɸü¤J
sub goDKDKD()
Dim srWk As Workbook
    Dim srPth
    srPth = "R:\TEMP\1.html"
    If srPth = False Then Exit Sub
     Application.ScreenUpdating = False
    Set srWk = Workbooks.OpenXML(srPth)
    srWk.ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(1).Cells(1)
    srWk.Close False
    Set srWk = Nothing
    Cells(2, 1).Select
END SUB
---------------------------------------

t8899

¤~¤£¨ì¤@­Ó¤ë
ÃÒ¥æ©Ò¤S§ï¤F
¦A¦¸¥¢®Ä......§ì¤£¨ì¸ê®Æ¤F
chwqk µoªí©ó 2015-1-21 23:37

±N  '  .BODY.innerHTML = .getElementsByTagName("table")(?).outerHTML
§ï¬°            .BODY.innerHTML = .getElementsByTagName("table")(4).outerHTML
´N¥i¥H¤F