Power Query M code
let
Source = Csv.Document(Web.Contents("https://docs.google.com/spreadsheets/d/YOUR_SHEET_ID/pub?output=csv"), [Delimiter = ",", Encoding = 65001]),
PromotedHeaders = Table.PromoteHeaders(Source, [PromoteAllScalars = true])
in
PromotedHeaders