VBA Macro в Excel для сохранения html-файлов из диапазона ячеек

Я хочу сохранить веб-страницу в html-файле, используя макрос VBA в Excel. Тем не менее, я совершенно новый, делаю макросы VBA. Для загрузки и сохранения я нашел этот код, и он работает.

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 двумя аргументами для выбора. То, что я ожидаю от кода, – это выбрать диапазон ячеек, содержащих URL-адреса, и другие, содержащие путь и имена, чтобы сохранить файл. Я нашел следующий пример, и я попытался объединить оба кода, но окончательно у меня не было успеха во многих попытках.

 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 

Не могли бы вы помочь?
Спасибо заранее, Хайме.

Я думаю, это может сработать. Я предполагаю, что ваши URL-адреса и диапазоны Destination File имеют одинаковый размер, а первый URL-адрес и Destination идут вместе. Другими словами, первый 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 
  • Вставьте .xml-файл, содержащий текстовый документ в mysql, используя php-скрипт
  • Excel не хочет открывать файлы XLSX, загружаемые через выход ASP
  • Как загрузить файл .xslx с сервера с помощью EPPlus и MVC
  • Excel VBA загрузка файла с URL-адреса
  • PHP принудительно загружается на веб-страницу
  • Каким способом автоматизировать загрузку изображения из ссылки в Excel / VBA?
  • Не удалось загрузить приглашение загрузки ASP.NET MVC
  • Более быстрая запись в базу данных из файла excel Laravel 5
  • Загрузите несколько файлов excel из базы данных в Python
  • Возврат файла WebAPI и загрузка не запускаются
  • Изображение из листа в элементе управления изображениями (VBA)
  • Interesting Posts

    Как я могу помешать excel автоматически создавать серию в моей диаграмме, созданной vba?

    VBA, чтобы сделать снимок экрана на веб-странице, сохранить его как файл и прикрепить его в новом письме

    Правильный способ получить имена листов Excel с использованием C # и oledb

    C # Excel interop, поместите разрыв строки в тексте ячейки в Excel

    Excel 2013: создать список, соответствующий всем требованиям

    c # Excel Почему он удаляет дубликаты из ячеек, как это показано на целую строку?

    VBA Excel Paste работает, PasteSpecial не

    VBA для блокировки всей строки на основе слова в столбце

    Как читать динамические данные excel и получать значения combobox

    Конкатенация запроса SQL на лист Excel

    Excel VBA, найти количество экземпляров искомой строки в файле PDF

    Загрузите весь каталог (папку) из sharepoint с помощью vba-excel

    Объединение таблиц и массивов из нескольких листов в одну консолидированную таблицу

    Excel VBA пытается использовать ячейку для хранения вычисления переменной

    Недопустимое исключение символа при чтении с листа excel

    Давайте будем гением компьютера.