Парсинг: выгрузить все выходные дни в году
Sub ПолучитьРабДаты1(Y As Integer, RowStart As Integer, ColumnStart As Integer) Set doc = CreateObject("htmlfile") doc.Open ‘ Dim sl As String, Url As String Dim Sh As Worksheet Set Sh = ActiveSheet Application.DisplayAlerts = False Sh.Range("2:3").Clear yar Продолжить чтение Парсинг: выгрузить все выходные дни в году