let
    FolderPath = Excel.CurrentWorkbook(){[Name="FolderPath"]}[Content][Column1]{0},
    Files = Folder.Files(FolderPath),
    Filter = Table.SelectRows(Files, each let A=[Attributes] in (A[Kind] = "Excel File" and not A[NotContentIndexed]))[[Name],[Content]],
    Workbooks = Table.TransformColumns(Filter,{{"Content",each let wb=Excel.Workbook(_) in Table.SelectRows(wb,each try _[Kind]="Sheet" otherwise true)[[Name],[Data]]}}),
    tab=(a as table) =>let
        b=a[Column1],
        c={"БИК","Расчётный счёт №","(",")"},
        d=List.Transform(List.Transform({b{3}},Splitter.SplitTextByEachDelimiter(c)){0},Text.Trim),
        e=Text.Split(a[Column2]{2}," - "),
        f=List.Transform(List.LastN(List.Select(b,each (_<>null)),2),each Text.Trim(Text.Split(_&":"&_,":"){1}))
    in #table(List.Combine({{"Период с","Период по"},List.Range(c,0,2),{"Валюта","Организация","Банк","Дата формирования"}}),{List.Combine({{e{0},e{1}},List.Range(d,1,3),{b{4}},f})}),
    tab2=(a as table) as table =>let
        b = Table.SelectRows(Table.Transpose(Table.Skip(a,7)), each ([Column1] <> null) or ([Column2] <> null)),
        c = Table.TransformColumns(b,{{"Column2",each let c1=b[Column1] in if List.PositionOf(c1,_)>=0 then null else _}}),
        d = (a)=> let
            b = a[Column2],
            c = {"Column1", each let c1=Text.Replace(_,"#(lf)"," ") in  c1&(if b<>null then ":"&b else "")}
        in Record.RemoveFields(Record.TransformFields(a,c),{"Column2"}),
        e = Table.TransformRows(Table.FillDown(c,{"Column1"}), each d(_)),
        f = Table.SelectRows(Table.Transpose(Table.FromRecords(e)), each ([Column1] <> null))
    in Table.PromoteHeaders(Table.RemoveLastN(Table.SelectRows(f, each ([Column1] <> null)),2)),
    Sheets = Table.FromRecords(Table.TransformRows(Table.ExpandTableColumn(Workbooks, "Content", {"Name", "Data"},{"ИмяЛиста","Content"}),each [ИмяФайла=_[Name],ИмяЛиста=[ИмяЛиста],t=tab(_[Content]),Content=[Content]])),
    Transform = Table.SelectRows(Table.TransformColumns(Sheets,{{"Content",tab2}}), each try [Content] is table otherwise false),
    Result = Table.ExpandTableColumn(Table.ExpandTableColumn(Transform, "Content", Table.ColumnNames(Transform[Content]{0})),"t",Table.ColumnNames(Sheets[t]{0})),
    #"Измененный тип" = Table.TransformColumnTypes(Result,{{"Период по", type date}, {"Период с", type datetime}, {"Дата формирования", type datetime}, {"Дата операции", type datetime}})
in
    #"Измененный тип"

Function FileMD5$(sFilePath$)
    On Error GoTo err
    Dim byteArr() As Byte
    With CreateObject("adodb.stream")
        .Type = 1: .Open: .LoadFromFile sFilePath
        byteArr = .read
    End With
    With CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
        FileMD5 = Join(Application.Dec2Hex(.ComputeHash_2(byteArr), 2), "")
    End With
    Erase byteArr
    Exit Function
err: Debug.Print "Ну не шмогла я, не шмогла"
End Function

.SpecialCells(2, 23)

Private Sub ComboBox3_Change()
    On Error Resume Next
    With Intersect(Range("tabl_group[[#all],[" & ComboBox3 & "]]").SpecialCells(2, 23), [tabl_group[#data]])
        Me.ComboBox4.Clear
        With .Areas(1)
            Me.ComboBox4.List = IIf(.Cells.Count > 1, .Value, Array(.Value))
        End With
    End With
End Sub

Private Sub ComboBox3_Change()
    On Error Resume Next
    With Intersect(Range("tabl_group[[#all]," & ComboBox3 & "]").SpecialCells(2, 23), [tabl_group[#data]])
        Me.ComboBox4.Clear
        With .Areas(1)
            Me.ComboBox4.List = IIf(.Cells.Count > 1, .Value, Array(.Value))
        End With
    End With
End Sub

Application.Transpose(Range("tabl_group").ListObject.HeaderRowRange.Value)

[transpose(tabl_group[#headers])]

    With Application
        .ScreenUpdating = 0
            With .ActiveSheet
                With Sheets("group")
                    .Activate: .[a2].Select
                End With
                .Activate
            End With
        .ScreenUpdating = 1
    End With

Private Sub CommandButton2_Click()
    If [a1] >= [a2] And [a1] <= [a3] Then MsgBox "fgh"
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim dt As Date
    With TextBox1
        If IsDate(.Value) Then
            dt = CDate(.Value)
            .Value = Format(dt, "dd.mm.yyyy")
            [a2].Formula = dt
        Else
            Cancel = True
        End If
    End With
End Sub

Private Sub TextBox2_AfterUpdate()
    Dim dt As Date
    With TextBox2
        If IsDate(.Value) Then
            dt = CDate(.Value)
            .Value = Format(dt, "dd.mm.yyyy")
            [a3].Formula = dt
        Else
            Cancel = True
        End If
    End With
End Sub
Private Sub UserForm_Initialize()
    Application.EnableEvents = 0
    TextBox1 = [a2].Text
    TextBox2 = [a3].Text
    Application.EnableEvents = 1
End Sub

    With [tabl_logbook].ListObject
        If .InsertRowRange Is Nothing Then .DataBodyRange.Delete
    End With

Private Sub TextBox1_Change()
[a2].Formula = CDate(TextBox1.Value)
End Sub

Private Sub TextBox2_Change()
[a3].Formula = CDate(TextBox2.Value)
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = [a2].Text
TextBox2.Value = [a3].Text
End Sub

VBE.ActiveVBProject.References.AddFromFile Environ("systemdrive") & "\PROGRA~1\COMMON~1\MICROS~1\OFFICE" & Val(Application.Version) \ 1 & "\ACEDAO.DLL"

.Value = Day(Date)

.ListIndex = Day(Date) - 1

Private Sub UserForm_Initialize()
    With FormLogbook
        With .ComboBox1
            .List = [transpose(proper(text(row(r1:r12)*30,"[$-419]mmm")))] 'Заполнение данными ComboBox11
            .ListIndex = Month(Date) - 1
        End With
        With .ComboBox2
            .List = [transpose(row(r1:r31))] 'Заполнение данными ComboBox2
            .Value = Day(Date)
        End With
    End With
End Sub