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

2020-03-31 13:33:18  阅读 500 次 评论 0 条
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

WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS表格数据付费处理请加QQ:3247742

发表评论


表情

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