標題: [發問] [已解決]開啟IE後,指定下載路徑 [打印本頁]

---

作者: HSIEN6001    時間: 2012-6-5 18:06     標題: [已解決]開啟IE後,指定下載路徑

本帖最後由 HSIEN6001 於 2012-6-5 22:14 編輯

使用IE開啟某路徑之後,出現下載檔案的詢問視窗
指定下載路徑的語法,出現問題
請幫我看看

1. Sub OpenIEforSave()
   
2. Dim ie As Object
   
3. Set ie = CreateObject("InternetExplorer.Application")
   
4. Dim Alpath As String
   
5. Alpath = "D:\XXX"
   
6. 
   
7.     ie.Visible = True
   
8.     ie.Navigate "http://XXX.CSV"
   
9.    
   
10.     .SaveAs Filename:=Alpath & "filename.csv", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False , CreateBackup:=False       '指定路徑下載
    
11.    
    
12.    ie.Quit
    
13.    Set ie = Nothing
    
14.      
    
15. End Sub

複製代碼

---

作者: Hsieh    時間: 2012-6-5 18:22

回復 1# HSIEN6001


    http://forum.twbts.com/thread-6762-1-1.html

3#

---

作者: HSIEN6001    時間: 2012-6-5 18:42

回復 2# Hsieh

謝謝&抱歉!
這不是我的方向

該檔案類似"封包"，不適用另外擷取資料
我試過WinHttpReq.Open "GET", myURL, False
不能用這個

只要打開IE就直接詢問下載"檔案.csv"與否
我想指定路徑給這"檔案.csv"下載

我已經設定開啟及關閉是ＯＫ的
指定路徑語法一直搞不定

不知道是否該下 SaveToFile 語法
還有 SaveToFile  的語法怎麼下才正確

---

作者: HSIEN6001    時間: 2012-6-5 19:43

肯定是我沒表達清楚,對不起
檔案是.CSV 的 "封包"

myURL = "http://XXX=CSV"
直接出現〔開啟〕、〔儲存〕、〔取消〕的對話框

除了要給 VBA 對應 [儲存]
也要給 VBA 對應 [儲存路徑]

1. Sub OpenIEforSave()
   
2. Dim ie As Object
   
3. Set ie = CreateObject("InternetExplorer.Application")
   
4. Dim Alpath As String
   
5. Alpath = "D:\XXX"
   
6. 
   
7. ie.Visible = True
   
8. ie.Navigate "http://XXX=CSV"
   
9.    
   
10. Do While ie.Busy
    
11.       DoEvents
    
12. Loop
    
13. 
    
14. 'MsgBox ie 詢問----> [開啟] [儲存] [取消]  '----> VBA指令?!
    
15. 'SavetoFile=Alpath & "filename.csv"        '?指定路徑下載
    
16. 以上' 兩段,是我寫不出來的地方,麻煩版大幫我看看
    
17.    
    
18. ie.Quit
    
19. Set ie = Nothing
    
20.      
    
21. End Sub

複製代碼

---

作者: HSIEN6001    時間: 2012-6-5 22:12

回復 2# Hsieh

H大,謝謝!
原來是我搞錯了

先前我套用原有的相似語法一直試不出來
以為那個方案不行

剛剛試一次#3
那語法,有解決我的問題
謝謝你喔!

多繞了一大圈~嘆氣~^^!!

---

作者: GBKEE    時間: 2012-6-6 07:48

回復 5# HSIEN6001
你要下載網頁的 csv, xls

1. Sub OpenIEforSave()
   
2.     Dim Alpath As String
   
3.     Alpath = "D:\XXX"
   
4.     With Workbooks.Open("http://XXX.CSV")
   
5.         .SaveAs Filename:=Alpath & "filename.csv", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False        
   
6.         .Close
   
7.     End With
   
8. End Sub

複製代碼

---

作者: HSIEN6001    時間: 2012-6-6 10:11

回復 6# GBKEE


    With Workbooks.Open
原來還可以這樣使用,收到~謝謝指導!
~感恩~~~~^____^

---

作者: PKKO    時間: 2017-3-23 15:25

回復 6# GBKEE


好強的方法
好簡單的用法
沒有超版大大的介紹完全想不到這樣也可以用...

---

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