返回列表 上一主題 發帖

[發問] [已解決]開啟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
複製代碼
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-6-5 18:22 | 只看該作者
回復 1# HSIEN6001


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

3#
學海無涯_不恥下問

TOP

HSIEN6001

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

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

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

論壇榮譽勳章論壇贊助勳章
5#
發表於 2012-6-5 22:12 | 只看該作者
回復 2# Hsieh

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

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

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

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 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
複製代碼

TOP

HSIEN6001

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

論壇榮譽勳章論壇贊助勳章
7#
發表於 2012-6-6 10:11 | 只看該作者
回復 6# GBKEE


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

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
8#
發表於 2017-3-23 15:25 | 只看該作者
回復 6# GBKEE


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

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題