¦p¦ó±NÃÒ¥æ©Ò°ò¥»¥«ªp³ø¾Éºô¯¸ªº¤j½L¸ê®Æ¶K¤Jexcel
- ©«¤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ÃÒ¥æ©Ò°ò¥»¥«ªp³ø¾Éºô¯¸ªº¤j½L¸ê®Æ¶K¤Jexcel
½Ð±Ð°ª¤âÌ:
¤p§Ì·Q±NÃÒ¥æ©Ò°ò¥»¥«ªp³ø¾Éºô¯¸ªº¤j½L¸ê®Æ¶K¤Jexcel°µ¶}¦¬½L¸ê®Æ¬d¸ß,µ²ªG¥~¥¨¶°°µ¤F¤@Óµ{¦¡,µo²{¥¦¨ÃµLªk¶K¦bexcel ¤W,¤£ª¾¦³¦ó¤èªk¯à¸Ñ¶}¦¹°ÝÃD?
µ{¦¡¦p¤U:
Sub Macro2()
'
' Macro2 Macro
' drew ¦b 2011/2/17 ¿ý»sªº¥¨¶°
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://mis.tse.com.tw/market_index.html?market=1", Destination:=Range( _
"A1"))
.Name = "market_index.html?market=1"
.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 = """tblStatistics"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
±æ¯à´£¨Ñ¦p¦ó§ïµ½¤è¦V ÁÂÁ¦b¥ý
^^ |
|
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
|
|
DREWCHEN1
|
|
|
|
|
- ©«¤l
- 133
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 147
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2024-11-11
|
¨ºÀÉ®×IDÄæ¦ì¬O«ç¨Óªº,¨S¿ìªk¬d¸ß,§Únªº¬Oùر§½³¡¤º®e
drewchen1 µoªí©ó 2011-2-17 22:00
³oÓn½Ð±Ð¸Ó¯¸ªø¤F,Ó¤H¨S¬ã¨s¹L¨ºÀÉ®×. |
|
|
|
|
|
|
- ©«¤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
|
ÁÂÁÂJACK,¤£¹L¨ºÀÉ®×IDÄæ¦ì¬O«ç¨Óªº,¨S¿ìªk¬d¸ß,§Únªº¬Oùر§½³¡¤º®e,½Ð¬Ý¬Û¤ù[attach]4763[/attach][attach]4763[/attach][attachimg]4763
|
|
DREWCHEN1
|
|
|
|
|
- ©«¤l
- 133
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 147
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2024-11-11
|
¦^´_ 1# drewchen1
«Øij±z¥i¥H°Ñ¦Ò¥H¤U¸ê®Æ
http://blog.xuite.net/crdotlin/excel/18068595 |
|
|
|
|
|
|