let  
  // как буд-то 1 строчка таблицы
  Источник = Table.FromRecords ( { [ A = 1, B = 1, C = 1, D = - 2, E = 1 ] } ), 
  
  // чтобы работало нужны значения-цифры
  #"Измененный тип" = Table.TransformColumnTypes (
    Источник, 
    {
      { "A", Int64.Type }, 
      { "B", Int64.Type }, 
      { "C", Int64.Type }, 
      { "D", Int64.Type }, 
      { "E", Int64.Type }
    }
  ), 
      
  // добавляю колонку, в которой храню списки
  добавитьСписок = Table.AddColumn ( #"Измененный тип", "list", each { [A], [B], [C], [D], [E] } ), 
      
  // потыка 1 угадать синтаксис - неуспешная
  итогОценка = Table.AddColumn (
    добавитьСписок, 
    "оценка", 
    let
      li = { [A], [B], [C], [D], [E] }
    in
      each 
        if List.MatchesAll ( li, each _ = - 2 ) then
          "искл"
        else if List.MatchesAny ( li, each _ = 1 or _ = 4 ) then
          "проблема"
        else
          "ок", 
    type number
  ), 
      
  // вот так работает как задуманно, но используется нежелательный столбец [list]
  попытка2 = Table.AddColumn (
    добавитьСписок, 
    "оценка", 
    each 
      if List.MatchesAll ( [list], each _ = - 2 ) then
        "искл"
      else if List.MatchesAny ( [list], each _ = 1 or _ = 4 ) then
        "проблема"
      else
        "ок", 
    type text
  )
in
  попытка2

'работает
Set a = Workbooks(название_файла)

'работает
Set a = Workbooks(название_файла).Worksheets(название_листа)

'не работает
Set a = Workbooks(название_файла).Worksheets(название_листа).ListObjects(название_таблицы)

// в исходной таблице две колонки c датами [A] и [B]
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],

    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"A", type datetime}, {"B", type datetime}}),

    #"Вставлено: месяц.A" = Table.AddColumn(#"Измененный тип", "Месяц.A", each Date.Month([A]), Int64.Type),

    #"Вставлено: месяц.B" = Table.AddColumn(#"Вставлено: месяц.A", "Месяц.B", each Date.Month([B]), Int64.Type),

    #"Добавлен пользовательский объект" = Table.AddColumn(#"Вставлено: месяц.B", "Мес", each 
        if [Месяц.A]>[Месяц.B] then List.Combine({{[Месяц.A].. 12},{1.. [Месяц.B]}}) else {[Месяц.A] .. [Месяц.B]}),

    #"Развернутый элемент Пользовательский" = Table.ExpandListColumn(#"Добавлен пользовательский объект", "Мес"),

    #"Другие удаленные столбцы" = Table.SelectColumns(#"Развернутый элемент Пользовательский",{"A", "B", "Мес"})

in
    #"Другие удаленные столбцы"

#"Прошло_рабочих_дней" = 
    Table.AddColumn(
        #"Основная_таблица", 
        "прошло будних дней", 
        each (a),(b)=>             
            List.Sum(
                Table.SelectRows(
                    мини_календарь, 
                    each [дата] >= a
                    each [дата] <= b
                )            
                [БУДНИЙ ДЕНЬ]
            )

    )
in
    #"Прошло_рабочих_дней"