20點!我要把這個網站的訊息寫進Excel 查詢檔 怎麼寫啊

Question

http://tcb.moneydj.com/

是財務報表的資訊 要怎麼寫成.iqy檔 (一直顯示web無法傳回資料)

是因為是動態網站的關係嗎??

20點 徵求excel高手

2006-12-15 21:26:46 補充

正確的來說 是怎麼把這個網址 http://tcb.moneydj.com/z/zc/zcq/zcqa/zcqa_5854.djhtm

的資料寫成.iqy查詢檔啊~~ 拜託大家了

要用動態查詢喔 在excel打入股票代號 就可以變更查詢內容 謝謝大家啦

Answer 1

請參考下面代碼, 有興趣者可參考 [參考資料] 網頁.
Sub showRpt()
Dim StockId As String
ActiveSheet.Range("a2:iv65536").Clear
StockId = Application.InputBox("請輸入股票代號:", "查詢各股損益年表", "5854")
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://tcb.moneydj.com/z/zc/zcq/zcqa/zcqa_" & StockId & ".djhtm", Destination:= _
Range("a2"))
.Name = "zcqa_" & StockId & ".djhtm_2"
.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 = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Answer 2

不知有沒有高手可以做到，但我試了一下，好像只能用 編輯查詢 來將 5854 改成您要查詢的股票代號，來查詢另一家上市櫃公司的資料。
若按 更新資料(！)則只會更新原股票代號之資料。