Power Query M code
let
Source = Excel.Workbook(File.Contents("C:\Data\Workbook.xlsx"), true),
OnlySheets = Table.SelectRows(Source, each [Kind] = "Sheet"),
CombinedData = Table.Combine(List.Transform(OnlySheets[Data], each Table.PromoteHeaders(_, [PromoteAllScalars = true])))
in
CombinedData