µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ¥ÎVBA¶}±Òªººô¶¸ê®ÆcsvÀÉ¡A¦p¦ó¤£¬°¤@ªø¦êªº¦r¦ê¡H
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
¥ÎVBA¶}±Òªººô¶¸ê®ÆcsvÀÉ¡A¦p¦ó¤£¬°¤@ªø¦êªº¦r¦ê¡H
vesperlee
µoµu®ø®§
¥[¬°¦n¤Í
vesperlee
·í«eÂ÷½u
UID
5803
©«¤l
15
¥DÃD
7
ºëµØ
0
¿n¤À
69
ª÷¿ú
69
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
SP3
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
36 ¤p®É
µù¥U®É¶¡
2011-7-29
³Ì«áµn¿ý
2021-7-4
¤¤¾Ç¥Í
©«¤l
15
¥DÃD
7
ºëµØ
0
¿n¤À
69
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
SP3
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2011-7-29
³Ì«áµn¿ý
2021-7-4
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2013-1-14 02:05
|
¥u¬Ý¸Ó§@ªÌ
[µ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)
¤U¸ü¦¸¼Æ: 12
2013-1-14 02:02
¼Ó¥D¼ö©«
¤@Ó¥ÎVBA±qºô¶¨ú±o·Qn¸ê®Æªº¼gªk~
½Ð±Ð*.csvÀÉ¡A¦p¦ó¦bÀx¦s®æ¥[¤WÃC¦â«á¡A¦A¦s
³]©w®æ¦¡¤Æªº±ø¥ó°ÝÃD~~~~~~
½Ð±Ð¦³¦ó«ü¥O¥\¯àµ¥¦P ¤¤Â_¼Ò¦¡©M«·s³]©wªº
½Ð±Ð¦p¦ó¨Ï¥ÎVBAקïIE ªºPROXYªº³]©w¡H¡H¡H
¦p¦ó¨Ì¨CÓÀx¦s®æ¤º¼ÆȪº¤j¤p¡B¯Å¶Z¤£¦P¡A
¦¬ÂÃ
¤À¨É
Hsieh
µoµu®ø®§
¥[¬°¦n¤Í
Hsieh
·í«e¦b½u
UID
3
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ª÷¿ú
4916
ÂI¦W
277
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
¦b½u®É¶¡
4109 ¤p®É
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2024-12-23
¶W¯Åª©¥D
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ÂI¦W
277
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2024-12-23
2
#
µoªí©ó 2013-1-14 08:35
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
1#
vesperlee
Private Sub CommandButton1_Click()
Cells.Clear
GetData_URL = "http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_02_1020111.csv"
webURL = GetData_URL
webURL = "URL;" & GetData_URL
With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
.RefreshStyle = xlOverwriteCells
.WebTables = "1"
.Refresh BackgroundQuery:=False
End With
Columns("A:A").TextToColumns Destination:=[A1], comma:=True '¡A¸ê®ÆåªR³r¸¹¤À¹j
End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý
TOP
GBKEE
µoµu®ø®§
¥[¬°¦n¤Í
GBKEE
·í«eÂ÷½u
UID
16
©«¤l
5923
¥DÃD
13
ºëµØ
1
¿n¤À
5986
ª÷¿ú
5986
ÂI¦W
0
§@·~¨t²Î
win10
³nÅ骩¥»
Office 2010
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥xÆW°ò¶©
¦b½u®É¶¡
4811 ¤p®É
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2022-1-23
¶W¯Åª©¥D
©«¤l
5923
¥DÃD
13
ºëµØ
1
¿n¤À
5986
ÂI¦W
0
§@·~¨t²Î
win10
³nÅ骩¥»
Office 2010
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥xÆW°ò¶©
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2022-1-23
3
#
µoªí©ó 2013-1-14 15:47
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
1#
vesperlee
Sub Ex()
Dim wb As String
wb = "http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_02_1020111.csv"
Workbooks.Open (wb)
End Sub
½Æ»s¥N½X
TOP
ÀR«ä¦Û¦b :
®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·