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

[µo°Ý] ¥ÎVBA¶}±Òªººô­¶¸ê®ÆcsvÀÉ¡A¦p¦ó¤£¬°¤@ªø¦êªº¦r¦ê¡H

[µo°Ý] ¥ÎVBA¶}±Òªººô­¶¸ê®ÆcsvÀÉ¡A¦p¦ó¤£¬°¤@ªø¦êªº¦r¦ê¡H

§Ú¥ÎªþÀÉ ¶}±Òªººô­¶¸ê®Æ  CSV   ÀÉ ¡A®æ¦¡¦p¤U
1256,F-ÂA¬¡,64.50,- 1.60 ,64.60,65.50,64.20,"55,000","3,552,100","50","64.50","65.00","17,640,000",69.00,60.00

·Q½Ð±Ð¦p¦ó³]©w¡B­×§ï¡A¤~¯à§â¤@ªø¦êªº¦r¦ê­×§ï¦¨¤@®æ¤@®æªº¸ê®ÆÂ\©ñ§¹¾ã©O¡H
©Î¦p¦ó¦bEXCEL¤u§@ªí¤W¶}±Ò¥¦ªººô­¶¡H
ÁÂÁ¸Ѵb¡I


°Ý°ÝÃD-102.1.14.rar (10.01 KB)

¦^´_ 1# vesperlee
  1. Private Sub CommandButton1_Click()
  2. Cells.Clear
  3. GetData_URL = "http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_02_1020111.csv"
  4. webURL = GetData_URL
  5. webURL = "URL;" & GetData_URL
  6. With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
  7.          
  8.         .RefreshStyle = xlOverwriteCells
  9.                 .WebTables = "1"
  10.        .Refresh BackgroundQuery:=False
  11. End With
  12. Columns("A:A").TextToColumns Destination:=[A1], comma:=True '¡A¸ê®Æ­åªR³r¸¹¤À¹j
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# vesperlee
  1. Sub Ex()
  2.     Dim wb As String
  3.     wb = "http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_02_1020111.csv"
  4.     Workbooks.Open (wb)
  5. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD