当前位置:首页 > WPS表格 > 正文内容

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

达叔5个月前 (03-31)WPS表格110
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达师发布,如需转载请注明出处。
标签: htm批量vba