Excel中的VBAmacros保存单元格范围内的html文件

我想在Excel中使用VBAmacros在html文件中保存网页。 不过，我是全新的VBAmacros。 为了下载和保存，我发现这个代码，它的工作原理。

Option Explicit Private Declare Function URLDownloadToFileA Lib "urlmon" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Public Sub Example1() DownloadFile "http://www.betbrain.pl/", "c:\p.html" End Sub Private Function DownloadFile(URL As String, LocalFilename As String) As Boolean 'Thanks Mentalis:) Dim lngRetVal As Long lngRetVal = URLDownloadToFileA(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function 

但是我想要做的另外，就是使URL地址和名字保存的html文件两个参数来select。 我期望从代码中select一系列包含URL的单元格，其他包含保存文件的path和名称。 我发现了下面的例子，我试图把这两个代码结合起来，但是我在很多次尝试中都没有取得成功。

 Sub Proper_Case() 'Updateby20150428 Dim x As Range Dim Workx As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set Workx = Application.Selection Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8) For Each x In Workx x.Value = Application.Proper(x.Value) Next End Sub 

你能帮忙吗？
在此先感谢，海梅。

Answer 1

我认为这可以工作。 我假设你的URL和目标文件范围是相同的大小，并且第一个URL和目的地一起去。 换句话说，第一个URL保存到列表中的第一个目的地，第二个URL保存到第二个目的地等。

 Sub getURLS() Dim x As Range, urlRange As Range, saveToRange As Range Dim i As Long i = 1 Set urlRange = Application.InputBox("Range of URLs", "URLS", Type:=8) Set saveToRange = Application.InputBox("Range of destinations", "Destinations", Type:=8) For Each x In urlRange DownloadFile x.Value, saveToRange.Cells(i, 1).Value i = i + 1 Next End Sub