Application.FileDialog(msoFileDialogFilePicker)

sh.Cells(i, 16) = CallHTTPRequest(strURL)

#If Win64 Then
    Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongLong, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As LongLong, ByVal lpfnCB As LongLong) As LongLong
#Else
    #If VBA7 Then
        Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As LongPtr
    #Else
        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
    #End If
#End If

Sub Загрузка_Часов()
    Dim URL As String, DestinationFolder As String
    Dim OWB As Workbook
    Dim Rng As Range
    Dim C As Integer
    Dim R As Integer
    With ThisWorkbook.Sheets(1)
        R = .Cells(27, 3)
        For C = 2 To 18 Step 4
            URL = "http://www.atsenergo.ru/dload/calcfacthour_regions/202001_VORNEGEN_20_calcfacthour.xls" '.Cells(R, C) '
            DestinationFolder = ThisWorkbook.Path & "\202001_VORNEGEN_20_calcfacthour.xls"
            If URLDownloadToFile(0, URL, DestinationFolder, 0, 0) = 0 Then
                DoEvents
                Set OWB = Workbooks.Open(DestinationFolder)
                Set Rng = OWB.Sheets(1).Range("B9:B32")
                .Range(.Cells(R + 1, C), .Cells(R + 1 + 23, C)).Value = Rng.Value
                OWB.Close
            End If
        Next
    End With
End Sub

Columns(1).Replace What:=",", Replacement:="."

    Dim SQLConn As Object, Recordset As Object
    Dim i As Integer
    Set SQLConn = CreateObject("ADODB.Connection")
    SQLConn.CursorLocation = 3
    SQLConn.Open "Provider=Microsoft.Ace.OLEDB.12.0; Extended Properties=""Excel 12.0; HDR=Yes;""; Data Source=" & ActiveWorkbook.FullName
    Set Recordset = SQLConn.Execute("SELECT [TypeNum], [TypeStr] FROM [db$]")
    ReDim arr(Recordset.RecordCount - 1, Recordset.Fields.Count - 1)
    i = 0
    Do While Not Recordset.EOF
        arr(i, 0) = Recordset.Fields("TypeNum")
        arr(i, 1) = Recordset.Fields("TypeStr")
        i = i + 1
        Recordset.MoveNext
    Loop
    ThisWorkbook.Sheets("result").Cells(1, 1).Resize(Recordset.RecordCount, Recordset.Fields.Count) = arr