sfs, в принципе можно сохранить файл в pdf и в Power Bi обработать. затем скопировать в Excel
не айс конешно, но от части ручной работы избавило бы
второй шаг можно закомментировать.
Код |
---|
let
Источник = Pdf.Tables(File.Contents("C:\abc\2018_1\2018_1.pdf")),
#"второй шаг" = Table.SelectRows(Источник, each Text.Contains([Name], "(Page")),
#"Добавлен пользовательский объект1" = Table.AddColumn(#"второй шаг", "Count", each Record.FieldCount([Data]{0})),
Условн = Table.AddColumn(#"Добавлен пользовательский объект1", "a", each if [Count] = 4 then Table.RenameColumns(Table.CombineColumns([Data],{"Column2", "Column3"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Column2"),{{"Column4", "Column3"}}) else if [Count] = 5 then Table.RenameColumns(Table.CombineColumns([Data],{"Column2", "Column3"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Column2"),{{"Column5", "Column3"}}) else if [Count] > 5 then Table.RenameColumns(Table.AddColumn([Data], "Column", each Text.Combine(Record.FieldValues(_)," "))[[Column]],{{"Column", "Column1"}}) else [Data])[[a]],
#"Развернутый элемент a" = Table.ExpandTableColumn(Условн, "a", {"Column1", "Column2", "Column3"})
in
#"Развернутый элемент a"
|