麻辣家族討論版版 - Powered by Discuz! Board

標題: 如何將證交所基本市況報導網站的大盤資料貼入excel [打印本頁]

作者: drewchen1 時間: 2011-2-17 15:01 標題: 如何將證交所基本市況報導網站的大盤資料貼入excel

請教高手們:
小弟想將證交所基本市況報導網站的大盤資料貼入excel做開收盤資料查詢,結果外巨集做了一個程式,發現它並無法貼在excel 上,不知有何方法能解開此問題?
程式如下:
               Sub Macro2()
'
' Macro2 Macro
' drew 在 2011/2/17 錄製的巨集
'

'
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
望能提供如何改善方向謝謝在先
^^

作者: jackdream 時間: 2011-2-17 17:22

回復 1# drewchen1

建議您可以參考以下資料
http://blog.xuite.net/crdotlin/excel/18068595

作者: drewchen1 時間: 2011-2-17 22:00

謝謝JACK,不過那檔案ID欄位是怎來的,沒辦法查詢,我要的是裏面局部內容,請看相片[attach]4763[/attach][attach]4763[/attach][attachimg]4763[attach]4764[/attach]

作者: jackdream 時間: 2011-2-18 00:19

那檔案ID欄位是怎來的,沒辦法查詢,我要的是裏面局部內容
drewchen1 發表於 2011-2-17 22:00

這個要請教該站長了,個人沒研究過那檔案.

作者: drewchen1 時間: 2011-2-18 22:38

看來這問題挺難的~~~

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)