Board logo

標題: [發問] EXCEL從網站滙入後，但卻是一片空白 [打印本頁]
作者: pcnhkl    時間: 2014-12-4 23:22     標題: EXCEL從網站滙入後，但卻是一片空白

EXCEL要怎樣才可以導入以下網站的賠率

http://www.macauslot.com/index.html?langid=1&sport=1

滙入後卻是空白(FROM THE WEB功能)

請高手幫助
作者: GBKEE    時間: 2014-12-8 10:31

回復 1# pcnhkl
試試看用VBA 程式
  1. Option Explicit
  2. Sub Ex_足球賠率()
  3.     Dim A As Object
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.        ' .Navigate "http://www.macauslot.com/soccer/html/odds/list/winoddlist.html?langid=1&sport=1"
  7.         .Navigate "http://www.macauslot.com/slot/html/fixture/fixture.htm?a=0&K=1&l=1"
  8.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  9.         Set A = .Document.getElementsByTagName("table")
  10.         Application.Wait Time + #12:00:02 AM#
  11.         .Document.body.innerHTML = A(5).outerHTML
  12.         .ExecWB 17, 2       '  Select All
  13.         .ExecWB 12, 2       '  Copy selection
  14.         With ActiveSheet
  15.             .UsedRange.Delete
  16.             .Range("A1").Select
  17.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  18.             .Range("A1").Select
  19.         End With
  20.         .Quit        '關閉網頁
  21.     End With
  22. End Sub
複製代碼
作者: pcnhkl    時間: 2014-12-12 01:31

回復  pcnhkl
試試看用VBA 程式
GBKEE 發表於 2014-12-8 10:31



    感謝幫忙，可惜還是一片空白，是我有什麼地方做錯嗎
作者: GBKEE    時間: 2014-12-12 05:22

回復 3# pcnhkl

程式行後的圖示


[attach]19762[/attach]
作者: wufonna    時間: 2014-12-12 15:04

回復 3# pcnhkl


    我試把打開的網頁關掉再執行就可匯入了 ^_^
作者: pcnhkl    時間: 2014-12-14 23:57

回復  pcnhkl

程式行後的圖示
GBKEE 發表於 2014-12-12 05:22

究竟我是哪裡出錯，能否上傳文件供參考，如果想選擇別的賠率可以怎做
[attach]19796[/attach][attach]19797[/attach]
作者: pcnhkl    時間: 2014-12-14 23:58

回復  pcnhkl


    我試把打開的網頁關掉再執行就可匯入了 ^_^
wufonna 發表於 2014-12-12 15:04


不是很明白，我遇到上面的問題
作者: GBKEE    時間: 2014-12-15 06:21

本帖最後由 GBKEE 於 2014-12-15 06:22 編輯

回復 7# pcnhkl
能否上傳文件供參考，如果想選擇別的賠率可以怎做!!
你還小學生,無法下載檔案,所以我盡量不上傳檔案,使小學生有交流討論的機會
上傳你的檔案,說明方知錯誤在哪裡.
作者: pcnhkl    時間: 2014-12-15 21:33

回復  pcnhkl
能否上傳文件供參考，如果想選擇別的賠率可以怎做!!
你還小學生,無法下載檔案,所以我盡量不 ...
GBKEE 發表於 2014-12-15 06:21

想不通錯在哪裡，現在还是一片空白，滙入不到
非常感謝你幫忙
[attach]19812[/attach]
作者: GBKEE    時間: 2014-12-17 07:21

回復 9# pcnhkl
比2003版新的Excel
活頁簿1.xlsx  沒巨集的活頁簿
活頁簿1.xlsM 有巨集的活頁簿
作者: pcnhkl    時間: 2015-1-1 12:29

回復  pcnhkl
比2003版新的Excel
活頁簿1.xlsx  沒巨集的活頁簿
活頁簿1.xlsM 有巨集的活頁簿
GBKEE 發表於 2014-12-17 07:21

我嘗試但還是不成功，不知那裡出錯，請參考附件，我設定SHEET1的A1來滙入，亦已經按了CTRL + F11打開了巨集，是不是過程出錯？
[attach]19992[/attach]
作者: GBKEE    時間: 2015-1-11 17:32

回復 11# pcnhkl

設定SHEET1的A1來滙入,這網頁無法用外部查詢匯入資料
"，亦已經按了CTRL + F11打開了巨集，" 這是新增Macro工作表

正確是  Alt + F11 到VBA 視窗的ThisWorkbook 或Module1 中執行一次 Sub Ex_足球賠率()

或是 如圖 執行一次


  [attach]20047[/attach]
作者: pcnhkl    時間: 2015-1-12 00:02

回復  pcnhkl

設定SHEET1的A1來滙入,這網頁無法用外部查詢匯入資料
"，亦已經按了CTRL + F11打 ...
GBKEE 發表於 2015-1-11 17:32

謝謝

如果我想選擇賠率(左上方有個選擇格可以選擇項目)，可以怎樣做？又可否設定自動更新？

萬分感激
作者: pcnhkl    時間: 2015-2-1 22:10

請問誰知道怎樣才可以自動更新
現在的只能用人手去更新



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