返回列表下一主題上一主題發帖

如何將證交所基本市況報導網站的大盤資料貼入excel

drewchen1

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 101
點名: 0
作業系統: windowxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 高雄縣鳳山
註冊時間: 2011-2-16
最後登錄: 2017-8-8

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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