Forum Discussion
Transform more than 100 Ranges in same worksheet in Tables with Power Query
How can I transform this for PQ Tables?
1. One file, one worksheet
<https://ec.europa.eu/info/sites/default/files/economy-finance/cross_country_tables_ar2021_0.xlsx>
2. More than 100 potential Tables
3. The Same Header in each different Range
4. The Name of table related to Description
Thanks in advance
Pedro
If you ask to import them in PQ as separate tables named after corresponding Description, IMHO only way to do it is via VBA in Excell. E.g. Recognize, create and name ranges/tables, then import in PQ.
Otherwise if you want extra column with table names paste this in blank query.
Enter your FilePath and FileName inbetween the quotes at the beginning.
let Source = Excel.Workbook(File.Contents("FilePath.xlsx"), null, true), Navigation = Source{[Item="FileName(without extension)",Kind="Sheet"]}[Data], #"Removed Columns" = Table.RemoveColumns(Navigation,{"Column1"}), #"Added Custom" = Table.AddColumn(#"Removed Columns", "Custom", each if Text.StartsWith([Column2],"Table ") then [Column2] else null), #"Removed Errors" = Table.RemoveRowsWithErrors(#"Added Custom", {"Custom"}), #"Filled Down" = Table.FillDown(#"Removed Errors",{"Custom"}), #"Reordered Columns" = Table.ReorderColumns(#"Filled Down",List.LastN(Table.ColumnNames(#"Filled Down"),1)&List.RemoveLastN(Table.ColumnNames(#"Filled Down"),1)), #"Filtered Rows" = Table.SelectRows(#"Reordered Columns", each ([Custom] <> null)), #"Filtered Rows1" = Table.SelectRows(#"Filtered Rows", each not Text.StartsWith([Column2], "Table ")), #"Promoted Headers" = Table.PromoteHeaders(#"Filtered Rows1", [PromoteAllScalars=true]), #"Filtered Rows2" = Table.SelectRows(#"Promoted Headers", each ([Country] <> "Country")), FINAL = Table.RenameColumns(#"Filtered Rows2",{{Table.ColumnNames(#"Filtered Rows2"){0}, "Table"}}) in FINAL
4 Replies
If you ask to import them in PQ as separate tables named after corresponding Description, IMHO only way to do it is via VBA in Excell. E.g. Recognize, create and name ranges/tables, then import in PQ.
Otherwise if you want extra column with table names paste this in blank query.
Enter your FilePath and FileName inbetween the quotes at the beginning.
let Source = Excel.Workbook(File.Contents("FilePath.xlsx"), null, true), Navigation = Source{[Item="FileName(without extension)",Kind="Sheet"]}[Data], #"Removed Columns" = Table.RemoveColumns(Navigation,{"Column1"}), #"Added Custom" = Table.AddColumn(#"Removed Columns", "Custom", each if Text.StartsWith([Column2],"Table ") then [Column2] else null), #"Removed Errors" = Table.RemoveRowsWithErrors(#"Added Custom", {"Custom"}), #"Filled Down" = Table.FillDown(#"Removed Errors",{"Custom"}), #"Reordered Columns" = Table.ReorderColumns(#"Filled Down",List.LastN(Table.ColumnNames(#"Filled Down"),1)&List.RemoveLastN(Table.ColumnNames(#"Filled Down"),1)), #"Filtered Rows" = Table.SelectRows(#"Reordered Columns", each ([Custom] <> null)), #"Filtered Rows1" = Table.SelectRows(#"Filtered Rows", each not Text.StartsWith([Column2], "Table ")), #"Promoted Headers" = Table.PromoteHeaders(#"Filtered Rows1", [PromoteAllScalars=true]), #"Filtered Rows2" = Table.SelectRows(#"Promoted Headers", each ([Country] <> "Country")), FINAL = Table.RenameColumns(#"Filtered Rows2",{{Table.ColumnNames(#"Filtered Rows2"){0}, "Table"}}) in FINAL👍Perfect. The solution is clear and it works. In fact, everything is ready to be transformed into a table by selecting the Table Name.
How are the tables generated individually?
Hi pbarbosa1969 , What do you mean by "How are the tables generated individually"?
By one criterion, to generate the tables all automatically. In other words, I have 150 different Table Names and manage to generate the 150 tables and not one by one.
