如何利用API下载网络上的文件？

作者：绿色风分类：时间：2022-08-17 浏览：147

楼主 amulee	Q：如何利用API下载网络上的文件？ A：如本例，本社区的一个附件，网址为：利用API函数URLDownloadToFile实现参考代码如下： 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 GetTxt() Dim FName As String Dim StrURL As String '定义网络 StrURL = "http://www.exceltip.net/attachment.php?aid=29693&k=019afacb5953011aebf6b4147e8d13d4&t=1303193099&sid=6b0a2YMElhope80MGohCbp85BRDw%2B%2B3d9HXvf9gLkFxGOy8" '保存路径 FName = ThisWorkbook.Path & Application.PathSeparator & "MyFile.Rar" '下载文件 URLDownloadToFile 0, StrURL, FName, 0, 0 End Sub 下载文件.rar
2楼 xyf2210	学习
3楼初学者2012	学习了**！
4楼水星钓鱼	这个貌似是最受欢迎的API

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表