送给大家从网上下载文件的VBA代码

andysky

送给大家从网上下载文件的VBA代码

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Sub 从百度下载图片到C盘()
    Dim xmlhttp, ayrHttpBody() As Byte
    Set xmlhttp = CreateObject("microsoft.xmlhttp")
    With xmlhttp
        .Open "GET", "https://ss1.baidu.com/9vo3dSag_xI4khGko9WTAnF6hhy/image/h%3D300/sign=8c56d4a6d8c8a786a12a4c0e5708c9c7/5bafa40f4bfbfbed022d422371f0f736afc31f71.jpg", False    '设定访问下载文件
        .send
    End With
    ayrHttpBody() = xmlhttp.Responsebody
    Open "c:\123.jpg" For Binary As #1
    Put #1, , ayrHttpBody()
    Close #1
End Sub

以上代码的功能是从百度下载图片到C盘中，名为123.jpg

lsc900707

抢个沙发坐坐，谢谢罗老师的分享。

未忘初心

API哪行好像是多余的

sac100

lngRetVal = URLDownloadToFile(0, nUrl, localFilename, 0, 0)

№▁▃风筝﹋

用上面的API好像也可以

有空来看看看

未忘初心 发表于 2017-1-20 14:54
API哪行好像是多余的

请问您说的API是哪句？谢谢

蓝色火晔

在自己的电脑上搭了http服务器测试，如以服务器上123.txt为例，第一次下载可以，但在http服务器上把123.txt中的内容替换保存后，再执行楼主的代码下载时，下载的仍然是之前的TXT，并没有更新，不知道为啥，求解~~~~~~~~~~~

huowax

http://basic.10jqka.com.cn/api/stock/export.php?export=debt&type=report&code=000001
上面这个地址用浏览器可以正常下载文件，但把这个地址替换楼主代码中的地址，就下载不了，请帮忙看看是什么原因

liaoliangbang

同求可以普适兼容下载的方法。如附件的下载地址，刚开始还可以用楼主这样的方法下载，但隔了一天后就报错是乱码了。求解是什么原因导致 返回的 responsebody 是乱码？
用谷歌浏览器可以正常下载，用火狐就不行和代码运行结果一样，报错内容：
{"error_code":31360,"error_msg":"expire time out error","error_info":"","request_id":359703855154129361}