VBA批量将网址另存为htm格式

2020-03-31 13:33:18  阅读 47 次 评论 0 条
WPS QQ交流群:121023130
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 saveUrl()
'On Error Resume Next
For i = 1 To [a65536].End(3).Row
lngRetVal = URLDownloadToFile(0, Cells(i, 1).Value, "D:\wpsds" & i & ".htm", 0, 0)
Next
End Sub

以上代码将A列中所有网址另存为HTM格式存储在D盘中的wpsds文件夹中。

QQ浏览器截图20200331133543.png

本文地址:https://www.wpsds.com/wpsbg/125.html
版权声明:本文为原创文章,版权归 达叔 所有,欢迎分享本文,转载请保留出处!
WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS交流群:121023130

发表评论


表情

还没有留言,还不快点抢沙发?