¦p¦ó±Nºô¯¸¤ºªº¤é´Á°µ¦¨¦bexcel¥Î¦Û°Ê¿é¤J
- ©«¤l
- 31
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 101
- ÂI¦W
- 0
- §@·~¨t²Î
- windowxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯¿¤»ñ¤s
- µù¥U®É¶¡
- 2011-2-16
- ³Ì«áµn¿ý
- 2017-8-8
|
¦p¦ó±Nºô¯¸¤ºªº¤é´Á°µ¦¨¦bexcel¥Î¦Û°Ê¿é¤J
¦U¦ì¥ý¶i,
¤p§Ì¦b¾Çvba ¨Ó±±¨îweb ¬d´` ¦ý¥X²{Äæ¦ì¦p¦ó´À¥N°ÝÃD,½Ð·|ªº¤HÀ°¦£
°ÝÃD¦p¤U:·Q±N³oºô§}"URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report201108/A11220110818ALLBUT0999_1.php?" _
, Destination:=Range("A1"))
ªºrepot«áªº 201108»P A11220110818ALLBUT0999_1.php?" ªº20110818 °µ¦¨¥i¦bexcel ªí®æ¤ºª½±µ¿é¤J ¤£»Ýn¥hºô¯¸Äæ§ï¤£ª¾¦³¦ó¤èªk |
|
DREWCHEN1
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Sub Test()
URL = "http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & [a1] & "/A112" & [a2] & "ALLBUT0999_1.php?"
Shell "explorer " & URL, 0
End Sub
a1Àx¦s®æ©ñ201108
a2Àx¦s®æ©ñ20110118 |
|
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 101
- ÂI¦W
- 0
- §@·~¨t²Î
- windowxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯¿¤»ñ¤s
- µù¥U®É¶¡
- 2011-2-16
- ³Ì«áµn¿ý
- 2017-8-8
|
¦^´_ 2# oobird
ÁÂÁ¤j¤j
^^ |
|
DREWCHEN1
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 101
- ÂI¦W
- 0
- §@·~¨t²Î
- windowxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯¿¤»ñ¤s
- µù¥U®É¶¡
- 2011-2-16
- ³Ì«áµn¿ý
- 2017-8-8
|
¦^´_ 2# oobird
¤j¤jª©¥D,
¤p§Ì·Ó¤èªk§ï¤F«áÁÙ¬OµLªkȦæ,§Ú±N¾ãÓµ{¦¡¶K¥X¨Ó¬Ý¬On«ç§ï¤~¹ï
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report201108/A11220110818ALLBUT0999_1.php?" _
, Destination:=Range("A1"))
.Name = "19"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
³Â·Ð§A¤F^^ |
|
DREWCHEN1
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
|
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 101
- ÂI¦W
- 0
- §@·~¨t²Î
- windowxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯¿¤»ñ¤s
- µù¥U®É¶¡
- 2011-2-16
- ³Ì«áµn¿ý
- 2017-8-8
|
¦^´_ 5# oobird
·PÁ¤j¤j ,ì¨Ó¬O³o¼Ë°µªº
^^ |
|
DREWCHEN1
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 9
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- excelk
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-17
- ³Ì«áµn¿ý
- 2011-9-13
|
On Error Resume Next
1: y = CLng(Application.InputBox(prompt:="¿é¤J¤é´Á,¤é´Á®æ¦¡(yyyymmdd)", Title:="¿é¤J¤é´Á"))
x = Left(y, 6)
If y = False Then Exit Sub
If Len(y) <> 8 Or Err Then GoTo 1
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.twse.com.tw/ch/tradin ... NDEX/genpage/Report" & x & "/A112" & y & "ALLBUT0999_1.php?" _
, Destination:=Range("b1"))
.Name = "19"
.FieldNames = True |
|
|
|
|
|
|