let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"urltext", type text}})
in
    #"Changed Type"

let
    Source = Excel.Workbook( Web.Contents( urltext_qr{0}[urltext] ), null, true )
in
    Source

let
    Source = Excel.Workbook( SharePoint.Contents( urltext_qr{0}[urltext] ), null, true )
in
    Source

let
    Lst = { 1, 2 },
    TblCrt = Table.FromList( Lst, Splitter.SplitByNothing(), null, null, ExtraValues.Error ),

    Clmn2 = Table.AddColumn( TblCrt, "Column2", each "" ),
    Rplc_ = Table.ReplaceValue( Clmn2, "", "new", Replacer.ReplaceValue, {"Column2"} ),

    ChngTp = if List.Contains( Lst, null ) then Table.TransformColumnTypes( Rplc_, { { "Column1", type number } } ) else 
        Table.TransformColumnTypes( TblCrt, { { "Column1", type number } } )

in
    ChngTp

let    
    folder = Folder.Files( MD{0}[#"Адрес исходных данных"] ),    
    file = Excel.Workbook( File.Contents( MD{0}[#"Адрес исходных данных"] ), null, true ),
    source = try folder otherwise file
in
    source

asExcelTrim = (this as text) as text => Text.Combine(List.Select(Text.Split(Text.Clean(this), " "), each _ <> ""), " ")

Date.AddDays (         [Дата],
        Record.FieldOrDefault ( paymentDelay, [Поставщики] & [Товар], Date.DaysInMonth ( [Дата] ) ) +
        Record.FieldOrDefault ( paymentDelayByMonth, [Поставщики] & [Товар] & Date.ToText ( [Дата], "yyyyMMdd" ), 0 )
    ),
    type date
  )

Date.AddDays ( 
        [Дата],
        Record.FieldOrDefault ( paymentDelay, [Поставщики] & [Товар], 30 ) +
        Record.FieldOrDefault ( paymentDelayByMonth, [Поставщики] & [Товар] & Date.ToText ( [Дата], "yyyyMMdd" ), 0 )
    ),
    type date
  )