返回列表 上一主題 發帖

[發問] [已解決]開啟IE後,指定下載路徑

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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"

  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
複製代碼
收藏 分享

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2012-6-5 18:42 | 顯示全部帖子
回復 2# Hsieh

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

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

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

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

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

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 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"

  7. ie.Visible = True
  8. ie.Navigate "http://XXX=CSV"
  9.    
  10. Do While ie.Busy
  11.       DoEvents
  12. Loop

  14. 'MsgBox ie 詢問----> [開啟] [儲存] [取消]  '----> VBA指令?!
  15. 'SavetoFile=Alpath & "filename.csv"        '?指定路徑下載
  16. 以上' 兩段,是我寫不出來的地方,麻煩版大幫我看看
  17.    
  18. ie.Quit
  19. Set ie = Nothing
  20.      
  21. End Sub
複製代碼

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2012-6-5 22:12 | 顯示全部帖子
回復 2# Hsieh

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

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

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

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

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2012-6-6 10:11 | 顯示全部帖子
回復 6# GBKEE


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

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題