麻辣家族討論版版 » Excel程式區 » VBA 下載網頁檔案

返回列表下一主題上一主題發帖

[發問] VBA 下載網頁檔案

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-3-27 11:36 | 只看該作者

[發問] VBA 下載網頁檔案

本帖最後由 li_hsien 於 2014-3-27 11:44 編輯

藉由EXCEL儲存格輸入文件編號
按下按鈕下載網站上這份文件編號的檔案

以下是我爬文後初步的寫法

由於要下載檔案需要經過三個網站畫面

我已經能到最後放檔案的那個畫面了

可是檔案不知怎麼下載下來

但由於網站是公司內部網站

所以瀏覽不到小弟我僅能附圖煩請指教謝謝

第一個畫面
輸入編號(抓A1欄位的值)按下搜尋

進到第二個畫面
再直接點選編號名稱(超連結)

進到第三個畫面
紅框部分為我要下載的PDF檔(檔名修改為EXCEL儲存格A1的值)

目前小弟語法能夠到第三個畫面

可是不知檔案如何下載下來

另外我想在下載下來後
回到畫面1，新輸入EXCEL儲存格A2的值
繼續下載PDF檔

Option Explicit
Sub 資訊網頁()
Dim A As Object, B As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "網址"
Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
For Each A In .document.getelementSbyTAGNAME("INPUT")
If A.Name = "number" Then A.Value = Range("A1") '在EXCEL表單輸入所要搜尋的值
If A.Value = "搜尋" Then
A.Click '按下搜尋
Exit For
End If
Next
Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
For Each B In .document.getelementSbyTAGNAME("A")
If B.innerText = Range("A1") Then '再點入搜尋到的值(超連結方式)
B.Click
Exit For
End If
Next
End With
End Sub

複製代碼

麻煩各位大大謝謝

樓主熱帖

收藏

用功到世界末日那一天～～～

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2014-3-27 17:51 | 只看該作者

我後來爬文找到的方式
大多都是這樣下載的

URLDownloadToFile 0, "來源網址", "目的路徑", 0, 0

複製代碼

可是好像只適用在下載的檔案位置最後顯示為副檔名(.pdf)

但我的網站最後不是.pdf

可是他實際上點進去就是一份PDF檔

只是我要點旁邊的儲存，或是對超連結按右鍵另存

不知怎樣才能用語法下載

請教各位大大

謝謝

用功到世界末日那一天～～～

靜思自在 : 為自己找藉口的人永遠不會進步。

返回列表下一主題上一主題