fName = ThisWorkbook.Path & "\" & ThisWorkbook.Name

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
    
objConnection.Open "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=""" & fName & """;Extended Properties='Excel 12.0;HDR=Yes;IMEX=1';"

objRecordset.Open "Select distinct [Order Number] FROM [" & tbl1 & "] WHERE Product = '" & prodName & "' and Status = '" & stat & "' " & _
                    "and (Commodity = '" & cmdty & "' or '" & cmdty & "' = '- ПО ВСЕМ') " & _
                    "and (Strategy = '" & strtgy & "' or '" & strtgy & "' = '- ПО ВСЕМ') " & _
                    "and [Est Mvt Date] >= #" & Format(estBeg, "DD\/MM\/YYYY") & "# " & _
                    " and [Est Mvt Date] < #" & Format(estFin, "DD\/MM\/YYYY") & "#", objConnection, adOpenStatic, adLockOptimistic, adCmdText

arrOut = iTempWB.Sheets(1).Range(iTempWB.Sheets(1).Cells(2, i), iTempWB.Sheets(1).Cells(iLastRowTMP, i)).Value

ThisWorkbook.Sheets("Данные").Cells(2, iCol).Resize(UBound(arrOut), 1).Value = arrOut

<ggg1>
       <param>_____</param>
</ggg1>
<fff2>
       <param>_____</param>
</fff2>
<kkk3>
       <param>_____</param>
</kkk3>

CreateObject("MSXML2.DOMDocument")

Private Sub Worksheet_Activate()
    fmWait.Show False
    DoEvents
    Application.CalculateFull
    Unload fmWait
End Sub

Private Function WorkbookIsOpen(iName$) As Boolean 
    On Error Resume Next 
    WorkbookIsOpen = (TypeName(Workbooks(iName$)) = "Workbook") 
End Function

Function ExcelIsOpen(fileName$)
    Dim ff As Long, ErrNo As Long

    On Error Resume Next
    ff = FreeFile()
    Open fileName For Input Lock Read As #ff
    Close ff
    ErrNo = Err
    On Error GoTo 0
    MsgBox ErrNo
    Select Case ErrNo
    Case 0:    ExcelIsOpen = False
    Case 70:   IsWorkBookOpen = True
    Case Else: ExcelIsOpen = True
    End Select
End Function