Excel
- 82 ответа
- 0 вопросов
54
Вклад в тег
Option Explicit ' Обязательное объявление переменных
Option Base 1 ' Нижняя граница массива (по умолчанию)
'123456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789
Sub Border_Limit()
Dim Limit As Integer, Count As Integer, SaveDir As String, SetTitle As Boolean
Count = 1: Limit = 1000 ' Счётчик файлов; Количество строк
SetTitle = False ' Если есть заголовок, заменить False на True
SaveDir = ThisWorkbook.Path ' Или вписать полный путь для сохранения "C:\"
' Предполагается, что в колонке A нет пустых ячеек
While Not IsEmpty(Cells(IIf(SetTitle, 2, 1), 1))
Rows("1:" & Limit).Copy
Workbooks.Add xlWBATWorksheet ' Создать новую книгу: шаблон с 1 листом
ActiveSheet.Paste: Cells(1, 1).Select
ActiveWorkbook.SaveAs Filename:=SaveDir & "\Массив_" & Count & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
Rows(IIf(SetTitle, 2, 1) & ":" & Limit).Delete Shift:=xlUp
Count = Count + 1
Wend: MsgBox "Файл разбит на " & Count - 1 & " файл(ов). "
End SubSub SaveAComma()
ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\ActiveSheet.csv", _
FileFormat:=xlCSV, CreateBackup:=False, Local:=False
End Subsep=,
! Реклама в поиске (старая)
yandex.ru## li[class*="serp-adv-item"]
! Рекламная ссылка-заголовок, описание с телефонами
yandex.ru## li.serp-item > div[class^="organic"] > h2:not([class$="title"]),h2:not([class$="title"]) ~ div
! Прочие ссылки кроме адресов, форумов, картинок, карт, маркета
yandex.ru## li[class^="serp-item "]:not([class$="adresa"]):not([class$="forum"]):not([class*="image-stats"]):not([class*="z-maps"]):not([class*="z-market"])
