Здравствуйте. Помогите подправить макрос чтобы он не удалял все данные, а только очистил сохронив все формулы
Sub GetHomeMatches() Call AccelerateExcel Sheets("home").Select Range("A:D").Select Selection.ClearContents Dim straddress As String straddress = Sheets("set").Range("b5").Value Dim http As New XMLHTTP60, html As New HTMLDocument, x As Long With http .Open "GET", straddress, False .send html.body.innerHTML = .responseText End With
Do x = x + 1 On Error Resume Next Cells(x, 1) = "'" & html.querySelectorAll(".date")(x - 1).innerText Cells(x, 2) = "'" & html.querySelectorAll(".ht2")(x - 1).innerText Cells(x, 3) = "'" & html.querySelectorAll(".res")(x - 1).innerText Cells(x, 4) = "'" & html.querySelectorAll(".at2")(x - 1).innerText Loop Until Err.Number = 91
Sheets("home").Select Dim ra As Range, delra As Range, bosxana As String Application.ScreenUpdating = False bosxana = Sheets("set").Range("j1").Value For Each ra In ActiveSheet.UsedRange.Rows If Not ra.Find(bosxana, , xlValues, xlPart) Is Nothing Then If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra) End If Next If Not delra Is Nothing Then delra.EntireRow.Delete Call disAccelerateExcel Call GetAwayMatches End Sub
Здравствуйте. Помогите подправить макрос чтобы он не удалял все данные, а только очистил сохронив все формулы
Sub GetHomeMatches() Call AccelerateExcel Sheets("home").Select Range("A:D").Select Selection.ClearContents Dim straddress As String straddress = Sheets("set").Range("b5").Value Dim http As New XMLHTTP60, html As New HTMLDocument, x As Long With http .Open "GET", straddress, False .send html.body.innerHTML = .responseText End With
Do x = x + 1 On Error Resume Next Cells(x, 1) = "'" & html.querySelectorAll(".date")(x - 1).innerText Cells(x, 2) = "'" & html.querySelectorAll(".ht2")(x - 1).innerText Cells(x, 3) = "'" & html.querySelectorAll(".res")(x - 1).innerText Cells(x, 4) = "'" & html.querySelectorAll(".at2")(x - 1).innerText Loop Until Err.Number = 91
Sheets("home").Select Dim ra As Range, delra As Range, bosxana As String Application.ScreenUpdating = False bosxana = Sheets("set").Range("j1").Value For Each ra In ActiveSheet.UsedRange.Rows If Not ra.Find(bosxana, , xlValues, xlPart) Is Nothing Then If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra) End If Next If Not delra Is Nothing Then delra.EntireRow.Delete Call disAccelerateExcel Call GetAwayMatches End SubAdonis
bmv98rus, я думаю, что это не совсем то, что нужно. Скорее всего, там есть данные которые не нужно удалять, например наименование столбцов и т.п. Поэтому смысла нет заморачиваться с ошибкой
bmv98rus, я думаю, что это не совсем то, что нужно. Скорее всего, там есть данные которые не нужно удалять, например наименование столбцов и т.п. Поэтому смысла нет заморачиваться с ошибкой msi2102
Сообщение отредактировал msi2102 - Пятница, 08.12.2023, 18:47
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
