於EXCEL資料 從WEB查詢到總共7頁資料，用箭頭選所需要資料但每次只能匯入第一頁，如何可以選所需要頁數，或全布頁數，一次匯入到EXCEL?
已邀請的邦友 {{ invite_list.length }}/5
Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.backpackers.com.tw/forum/forumdisplay.php?f=192", Destination:=Range("A1"))
.Name = "page01"
...略...
End With
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.backpackers.com.tw/forum/forumdisplay.php?f=192&order=desc&page=2", Destination:=Range("A64"))
.Name = "page02"
...略...
End With
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.backpackers.com.tw/forum/forumdisplay.php?f=192&order=desc&page=3", Destination:=Range("A127"))
.Name = "page03"
...略...
End With
End Sub
這個叫做 Pagination, 如果不寫程式的話, 用 Excel 內建的功能做不到....
最接近的做法, 可以這樣試試看:
新增許多張 Sheet, 每個 Sheet 負責 Import 指定的 Web Page, 例如: Sheet1 就 Import 第一頁, Sheet2 第二頁...然後最後再做一張 Summary Sheet, 把每一頁的資料合併成一張大的 Sheet.
不過, 這若頁數少還可以, 頁數多的話, 光寫那個 Sheet 就昏倒了...
請教如何於WEB查詢中製作(.iqy)把pagination加入，如何寫在(.iqy)裏？
請問我按照您的方式處理，但是仍然WEB查詢仍是page1，下面是網址：http://tw.morningstar.com/ap/quickrank/CategoryReturns.aspx，能否請大師開示？
請教大師，我繼續試，出現，該如何處理?
lin520提到：
http://tw.morningstar.com/ap/quickrank/CategoryReturns.aspx
很不幸, 您這個網頁沒有辦法這樣做.....
若要用上面的方法做, 前提是: URL 上面要有分頁的資訊, 也就是每一頁的 URL 都不一樣; 但是您這個網頁是用 Javascript 程式去後端撈資料的, 所以每一頁的 URL 都相同, 這樣就沒有辦法用上述的方法來完成.
接下來就只能請人寫程式去撈了....
(ps. MorningStar 的資訊是要賣錢的, 你若付錢跟她買, 他每天都會自動為給你; 很顯然他們已經想到會有人沒付錢, 就想這樣來網站上撈資料, 所以一定做好很多預防的措施, 避免它們花錢買來的數據, 又被人家用自動化的程式給撈走....)
感恩！
iThome鐵人賽
看影片追技術