| 用VBA代碼下載網(wǎng)絡(luò)上的文件 |
| 前幾天與MVP老K一起討論如何從網(wǎng)絡(luò)中下載一個(gè)文件到本機(jī),現(xiàn)將代碼帖上來與大家分享.另外我看到張志前段時(shí)間需要這個(gè)代碼,不知道現(xiàn)在仍需要.代碼適用于VBA，VB，VBS。 Dim H, S Set H = CreateObject("Microsoft.XMLHTTP") H.Open "GET", "http://www.yt-e.com/a.exe", False?? '網(wǎng)絡(luò)中的文件URL H.send Set S = CreateObject("ADODB.Stream") S.Type = 1 S.Open S.write H.Responsebody S.savetofile "c:\a.exe", 2? '本地保存文件名 S.Close |
