Board logo

¼ÐÃD: ¦p¦ó±NÃÒ¥æ©Ò°ò¥»¥«ªp³ø¾Éºô¯¸ªº¤j½L¸ê®Æ¶K¤Jexcel [¥´¦L¥»­¶]

§@ªÌ: drewchen1    ®É¶¡: 2011-2-17 15:01     ¼ÐÃD: ¦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¥ý
^^
§@ªÌ: jackdream    ®É¶¡: 2011-2-17 17:22

¦^´_ 1# drewchen1


«Øij±z¥i¥H°Ñ¦Ò¥H¤U¸ê®Æ
http://blog.xuite.net/crdotlin/excel/18068595
§@ªÌ: drewchen1    ®É¶¡: 2011-2-17 22:00

ÁÂÁÂJACK,¤£¹L¨ºÀÉ®×IDÄæ¦ì¬O«ç¨Óªº,¨S¿ìªk¬d¸ß,§Ú­nªº¬OùØ­±§½³¡¤º®e,½Ð¬Ý¬Û¤ù[attach]4763[/attach][attach]4763[/attach][attachimg]4763[attach]4764[/attach]
§@ªÌ: jackdream    ®É¶¡: 2011-2-18 00:19

¨ºÀÉ®×IDÄæ¦ì¬O«ç¨Óªº,¨S¿ìªk¬d¸ß,§Ú­nªº¬OùØ­±§½³¡¤º®e
drewchen1 µoªí©ó 2011-2-17 22:00


³o­Ó­n½Ð±Ð¸Ó¯¸ªø¤F,­Ó¤H¨S¬ã¨s¹L¨ºÀÉ®×.
§@ªÌ: drewchen1    ®É¶¡: 2011-2-18 22:38

¬Ý¨Ó³o°ÝÃD®¼Ãøªº~~~




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)