• 2

請教EXCEL 2010高手~ 從web匯入資料問題.....

想請教各位前輩!!

某網頁有張大表,表頭有下拉式選單可以選年份,

選定年份後,再重整,表的內容就會變成指定年度的資料。

本來是打算逐年一一匯入excel裡面,

但發現,不管我指定哪一個年份,

匯入的永遠都是最新的2013,

就算是在匯入過程中,在指定表格的視窗裡,重新指定年份重整,

一但按匯入,還是一樣只匯到最新的2013。

請問有解嗎????

2014-03-05 15:32 發佈
有網頁嗎?
如果是免費下載
可以分享一下測試一下
爆肝工程師 wrote:
有網頁嗎?如果是免費...(恕刪)


是公開資料,沒問題的

可是網頁資料跟投資理財一點關係都沒有....

只是想說這裡比較多人在討論相關問題.........

Orz.....

http://edw.epa.gov.tw/resultWasteFac.aspx?facid=81676

我是要把最下面那張表的資料,用web匯入excel.....

可以的話,

麻煩爆哥幫忙試試了..........

感恩!!
我不會
也想學
a27132 wrote:
想請教各位前輩!!某...(恕刪)
去找匯入的網址裡有無關鍵字”2013”

有的話去做修改試試

我用手機回覆的,所以無法幫你看

自己改看看

淚的小花II wrote:
去找匯入的網址裡有無...(恕刪)


透過下拉選單更新的那張表,

好像是用JAVA寫的 ?!

因為進去看網頁原始碼裡,那張表的相關內容的頭尾都是javascript.....

沒有每一個年份都有一個網址

請問有其他解嗎??

如何編寫.iqy或用巨集??

可是這兩個我都不會....Orz.........
這種要填值的都要寫巨集來匯入資料,以你給的網址來說,
記得要先引用Microsoft HTML Object和Microsoft Internet Controls
簡單範例如下:

Sub Test()
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "http://edw.epa.gov.tw/resultWasteFac.aspx?facid=81676"
While ie.busy
DoEvents
Wend
以上是開IE視窗

ie.document.getElementById("DropDownListDate").Value = 2012
Set htmlColl = ie.document.getElementsByTagName("input")
For Each htmlInput In htmlColl
If Trim(htmlInput.Value) = "營運資料" Then
htmlInput.Click
Exit For
End If
Next htmlInput
End Sub

以上是把年度改成2012,這部份可以自行修改
後面的程式碼就是按營運資料那個按鈕

再寫些小程式把表格貼到Excel就行囉!

liangbig wrote:
這種要填值的都要寫巨...(恕刪)


雖然我看不懂,但是大大的熱誠我感受到了,真是太棒了。
Without being trusted, no one can do anything.

liangbig wrote:
這種要填值的都要寫巨...(恕刪)


謝謝L大的熱心分享!!

感恩!!

雖然小弟我還是看不懂!!

暫時先放棄了,採行土砲法慢慢copy.....
a27132 wrote:
謝謝L大的熱心分享!...(恕刪)


其實學寫巨集程式沒有那麼難,記得很久之前學校在教的時候,
我們大概才上了十二個小時的課,大概就可寫出一些基本的程式了,
有空買本EXCEL VBA的書來學一下,再來就是多拜拜Google大神,
算是最簡單的學寫程式的方法囉!
  • 2
內文搜尋
X
評分
評分
複製連結
Mobile01提醒您
您目前瀏覽的是行動版網頁
是否切換到電腦版網頁呢?