=ЕСЛИОШИБКА(ИНДЕКС($B$2:$B$325;НАИМЕНЬШИЙ(ЕСЛИ((ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ($C$2:$C$325);ДЕНЬ($C$2:$C$325))-СЕГОДНЯ()>=0)*(ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ($C$2:$C$325);ДЕНЬ($C$2:$C$325))-СЕГОДНЯ()<=30);СТРОКА($B$2:$B$325)-СТРОКА($B$1));A4));"")

=ЕСЛИОШИБКА(ИНДЕКС(B:B;НАИМЕНЬШИЙ(ЕСЛИ((--(ТЕКСТ(C$2:C$325;"[>0]д.М.;")&ГОД(СЕГОДНЯ()))>СЕГОДНЯ())*(C$2:C$325-(ТЕКСТ(СЕГОДНЯ();"д.М.")&ГОД(C$2:C$325))<30);СТРОКА(C$2:C$325));СТРОКА(F1)));"")

    Set qt1 = wsl.QueryTables.Add(Connection:="TEXT;" & "E:\Data\TXT", Destination:=wsl.Cells(1, 1))

        With qt1
            .FieldNames = False
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = False
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = True
            .TextFilePlatform = 866
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = True
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(1, 1, 4, 1, 1, 1, 1, 1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            Debug.Print Split(.Connection, ";")(1)
        End With

Sub sdf()
    On Error Resume Next
    Dim cell As Range, sPath$, sNewPath$, sHref$
    sPath = ThisWorkbook.Path & "\"
    sNewPath = sPath & "Отчет" & Format(Now, "dd.MM.yyyy hh_mm\\")
    MkDir sNewPath
    With ActiveSheet.UsedRange.Columns("K")
        For Each cell In Intersect(.Cells, .Offset(1)).SpecialCells(2, 23).SpecialCells(12).Cells
            sHref = cell.Hyperlinks(1).Address
            FileCopy sPath & sHref, sNewPath & Mid(sHref, InStrRev(sHref, "\") + 1)
        Next
    End With
End Sub

[Красный][<1,5]Основной;Основной

DBASE IV;CharacterSet=65001

<xs:import namespace="http://www.w3.org/2001/XMLSchema"/>

<xs:element ref="xs:schema"/>

cd /d .
AltovaXML -xslt2 xsl\main.xslt -in xsd\test1.xsd -param SourceFilePath='%~dp0src\test.xlsx'
pause

Dim sFolder
sFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
With CreateObject("AltovaXML.Application").XSLT2
    .InputXMLFileName = sFolder & "xsd\test1.xsd"
    .XSLFileName = sFolder & "xsl\main.xslt"
    .AddExternalParameter "SourceFilePath", "'" & sFolder & "src\test.xlsx'"
    .AddExternalParameter "DestFolder", "'" & sFolder & "'"
    .AddExternalParameter "DestFIle", "'test1.xml'"
    .Execute ""
End With

Dim sFolder
sFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
With CreateObject("AltovaXML.Application").XSLT2
    .InputXMLFromText = "<xs:schema id='NewDataSet' xmlns='' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:msdata='urn:schemas-microsoft-com:xml-msdata'>" & vbCrLf & _
    "<xs:element name='NewDataSet' msdata:IsDataSet='true' msdata:MainDataTable='OrderHeader' msdata:UseCurrentLocale='true'>" & vbCrLf & _
    "<xs:complexType>" & vbCrLf & _
    "<xs:choice minOccurs='0' maxOccurs='unbounded'>" & vbCrLf & _
        "<xs:element name='OrderHeader'>" & vbCrLf & _
        "<xs:complexType>" & vbCrLf & _
        "<xs:sequence>" & vbCrLf & _
        "<xs:element name='Id' type='xs:string' minOccurs='0' />" & vbCrLf & _
        "<xs:element name='Cl' type='xs:string' minOccurs='0' />" & vbCrLf & _
        "</xs:sequence>" & vbCrLf & _
        "</xs:complexType>" & vbCrLf & _
        "</xs:element>" & vbCrLf & _
    "</xs:choice>" & vbCrLf & _
    "</xs:complexType>" & vbCrLf & _
    "</xs:element>" & vbCrLf & _
    "</xs:schema>"
    .XSLFileName = sFolder & "xsl\main.xslt"
    .AddExternalParameter "SourceFilePath", "'" & sFolder & "src\test.xlsx'"
    .AddExternalParameter "DestFolder", "'" & sFolder & "'"
    .AddExternalParameter "DestFIle", "'test1.xml'"
    .Execute ""
End With

=ЕСЛИ(BB<0;AA+D3+((ЧАС(AA+D3)>12)-(ЧАС(AA)>13))/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)

=ЕСЛИ(BB<0;AA+D3+(ЧАС(AA+D3)>12)/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)

AA    =ЕСЛИ(РАБДЕНЬ(!E3-1;1;ПР)>!E3;РАБДЕНЬ(!E3;1;ПР)+"9:";!E3)

BB    =!D3-"18:"+ОСТАТ(AA;1)+(ЧАС(AA)<14)/24

ПР    =!$E$11:$E$12

function RefreshImports() {
    var s=SpreadsheetApp,
        e=s.getUi(),
        t=e.prompt("","Укажите Spreadsheet id",e.ButtonSet.OK_CANCEL);
    if(t.getSelectedButton()==e.Button.OK) {
        var r=t.getResponseText(),
            n=LockService.getScriptLock();
        n.tryLock(5e3) && (SpreadsheetApp.openById(r).getSheets().forEach(function(t){
            var r=/.*[^a-z0-9]import(?:xml|data|feed|html|range)\(.*/gi,
                n=[t.getDataRange()].map(function(e){
                    return {r:e.getRow(),c:e.getColumn(),f:e.getFormulas()}
                })[0],
                e = [].concat.apply([],n.f.map(function(e,r){
                    return e.map(function(e,t){ return {f:e,r:r+n.c,c:t+n.r}})
                })).filter(function(e){return -1!==e.f.search(r)});
            e.forEach(function(e){t.getRange(e.r,e.c).setFormula("")});
            Utilities.sleep(5e3);
            e.forEach(function(e){t.getRange(e.r,e.c).setFormula(e.f)})
        }),s.flush(),n.releaseLock())
    }
}

Sub Remove_()
    On Error Resume Next
    With CommandBars("Text")
        Do
            .FindControl(, 1).Delete
        Loop Until Err.Number
    End With
End Sub