Excel 外部資料

請問有人知道怎樣用Excel取得外部資料，我想要拿到Goodinfo這個link右邊下面的集保分級的資訊
http://www.goodinfo.tw/stockinfo/EquityDistributionClassHis.asp?STOCK_ID=1314

但是透過這樣的IQY分是要不會來，有大大知道怎樣弄嗎?
WEB
1
http://www.goodinfo.tw/stockinfo/EquityDistributionClassHis.asp?STOCK_ID=1314

Selection=15
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False

TOP

BarryHuang621a

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-7-20
最後登錄: 2019-4-7

2^#

發表於 2014-7-20 21:58 | 顯示全部帖子

VBA 抓取網頁內的某一個Table

請問各位大大，有人知道怎樣抓下列這個網址裡面的大Table嗎? 透過VBA

http://www.goodinfo.tw/stockinfo/StockSorter.asp?

TOP

BarryHuang621a

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-7-20
最後登錄: 2019-4-7

3^#

發表於 2014-7-21 23:25 | 顯示全部帖子

回復 2# ssthree

不好意思還是搞不太定，在我所需要的網址中
www.goodinfo.tw/StockInfo/StockSorter.asp

我知道我要的Table是第8個，哪位大大可以給一下簡單的VBA碼讓小弟參考嗎?我用過下列這樣的方式但是就是還是有問題
先用 ActiveSheet.QueryTables.Add("URL;" & weburl, Destination:=Range("A1")) 把我要的URL餵進去
      .WebFormatting = xlWebFormattingNone
      .WebTables = "8" <---這邊改成第8個table
      .Refresh 0
      .Delete

TOP

BarryHuang621a

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-7-20
最後登錄: 2019-4-7

4^# 倒序看帖

打印

字體大小: tT

發表於 2014-7-23 13:11 | 顯示全部帖子

Excel VBA 抓HTML 中的某一個Table

本帖最後由 GBKEE 於 2014-8-1 19:34 編輯

請各位大大給我一個sample code我是想要取得下面的著網站的下面的大Table
看了好久還是弄不好呀

http://www.goodinfo.tw/stockinfo/StockSorter.asp?

或是給我一個範例是去抓某一個網頁裡面的table我在自己試試看怎樣改謝謝