Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Function DownLoadFile(FromPathName As String, ToPathName As String) As Boolean
DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function
Sub download()
Dim lp As String, Filename As String

Set spn = ThisWorkbook.ActiveSheet  ' запоминаем лист
LR = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For x = 2 To LR
lp = spn.Cells(x, 7)
kolvo = (Len(lp) - Len(replace(lp, "https", ""))) / Len("https")
r = 1
w = 1
For y = 1 To kolvo
lim = InStr(r, lp, "https")
lim2 = InStr(lim, lp, "jpg")
If lim2 = 0 Then
lim2 = InStr(lim, lp, "jpeg")
End If
If lim2 = 0 Then
lim2 = InStr(lim, lp, "png")
End If
Dim src As String
If InStr(w, lp, ".jpg") > 0 Then
src = Mid(lp, lim, lim2 - lim) & "jpg"
ElseIf InStr(w, lp, ".jpeg") > 0 Then
src = Mid(lp, lim, lim2 - lim) & "jpeg"
Else
src = Mid(lp, lim, lim2 - lim) & "png"
End If
'ppn = spn.Cells(x, 2)
'pic = spn.Cells(x, 2)
pic = spn.Cells(x, 17)
If y = 1 Then
Filename = "C:\1\" & pic & ".jpg"
Else: Filename = "C:\1\" & pic & "_" & y - 1 & ".jpg"
End If
If DownLoadFile(src, Filename) Then
End If
r = lim2
w = lim2
Next y
r = 1
Next x

End Sub

For Each objWindow In objVBProject.VBE.Windows
        
        If objWindow.Type = 6 Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next

    SendKeys "~Skygo@150~", True: SendKeys "{ENTER}", True

Sub ддд()
Dim lr1& 
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Лист1!R9C1:R2000C25", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="Лист2!R1C1", TableName:="СводнаяТаблица1", _
        DefaultVersion:=xlPivotTableVersion15
     With ActiveSheet.PivotTables("СводнаяТаблица1")
        .PivotFields( _"группа")
        .Orientation = xlRowField        
         .Position = 1
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields( _"степень") 
       .Orientation = xlRowField  
       .Position = 2  
  End With    
       ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _
        ("СводнаяТаблица1").PivotFields("размер"), _ 
         "Количество по полю размер", xlCount  
         lr1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
       ActiveWorkbook.Worksheets("Лист2").PivotTables("СводнаяТаблица1").PivotCache. _
        CreatePivotTable TableDestination:=Worksheets("Лист2").Cells(lr1 + 1, 1), TableName:= _
        "СводнаяТаблица2", DefaultVersion:=xlPivotTableVersion15

 With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("канал")
        .Orientation = xlRowField    
        .Position = 1  
      End With  
   With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("вид") 
       .Orientation = xlRowField    
        .Position = 2    End With  
  ActiveSheet.PivotTables("СводнаяТаблица2").AddDataField ActiveSheet.PivotTables _ 
       ("СводнаяТаблица2").PivotFields("Совокупный"), _ 
       "Количество по полю Совокупный", xlCountEnd Sub