Auf Excel...
27.01.2025 12:57:39
Case
Moin Fred, :-)
... 2019 kann ich es nicht testen. Habe nur noch Excel 365. Da funktioniert die Datei von Eifeljoy 5 sofort.
Was du probieren kannst:
Gehe auf Daten - Daten abrufen und transformieren - Daten abrufen - Aus anderen Quellen - Leere Abfrage.
Das kann bei dir anders angeordnet sein, aber ich bin zuversichtlich, dass du es findest.
Dann klickst du auf Erweiterter Editor und überschreibst dort alles mit: ;-)
let
WebContent = Web.BrowserContents("https://www.oddshelp.com/index.php?page=home&cmd=def"),
ExtractedTable = Html.Table(WebContent, {
{"Column1", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(1)"},
{"Column2", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(2)"},
{"Column3", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(3)"},
{"Column4", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(4)"},
{"Column5", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(5)"},
{"Column6", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(6)"},
{"Column7", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(7)"},
{"Column8", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(8)"},
{"Column9", "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR > :nth-child(9)"}},
[RowSelector = "DIV.daytable:nth-child(5) > TABLE.table.table-striped.table-hover > * > TR"]),
PromotedHeaders = Table.PromoteHeaders(ExtractedTable, [PromoteAllScalars = true]),
ReplacedValues = Table.ReplaceValue(PromotedHeaders, ".", ",", Replacer.ReplaceText, {"1", "X", "2", "U2.5", "O2.5"}),
ChangedTypes = Table.TransformColumnTypes(
ReplacedValues, {
{"1", type number},
{"X", type number},
{"2", type number},
{"U2.5", type number},
{"O2.5", type number},
{"Time", type time}}),
RemovedColumns = Table.RemoveColumns(ChangedTypes,{"+GG", ""})
in
RemovedColumns
Dann auf Fertig klicken.
Solltest du nun noch Fehlermeldungen erhalten, wird es vielleicht an der Excel-Version liegen. ;-)
Servus
Case
