PowerQuery - import dat do sloupců Vyřešeno

[MK_Vs]

Dobrý den,

snažím se v Excel 365 získat data ze souboru, jehož vzorek jsem přiložil k dotazu.
Souborů následně bude větší množství.
Data - Nový dotaz - Ze souboru - Ze složky
První, nač narazím, je, že soubor *.dat Získání dat odmítne načíst.
Přejmenuji tedy na *.txt.
Data načtu.

Pokud mám souborů více, načítají se za sebe.
Obsah bych však potřeboval načíst co soubor, to sloupce.
V rámci editoru Power Query jsem však možnost nenašel.
Dokáži pracovat s daty s pevnou strukturou, kdy není potřeba soubory řadit do sloupců.
S touto formou vstupních dat při získávání prakticky nemám zkušenost.

Poradíte, prosím, jak data importovat, aby výstup vypadal jako přiložená nahled.xlsx?

Děkuji.

[Reklama]

[elninoslov]

"co soubor, to řádek" myslíte snáď "co soubor, to sloupec" nie ???

Odkiaľ sa berú čísla v stĺpci A:A od 14 riadku ???
Každý súbor DAT ma svoj stĺpec od B:B ...
A čísla v A:A ???

[MK_Vs]

ANo byl to překlep. Co soubor, to sloupec. V řádcích by to bylo bez potíží.

[elninoslov]

Pr.

[MK_Vs]

Děkuji, podívám se na data. Sám jsem nyní vyřešil přes VBA, které je uloženo v daném listu.

' - Startovaci rutina
Sub TLstart_Click()
Call Import_Click
End Sub
' - Import dat do listu Import
Sub dateiImport(Mypath, temp, Name)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Mypath, _
Destination:=Worksheets(Name).Range("B1").offset(0, temp))
.Refresh BackgroundQuery:=False
End With
End Sub
' - Vytvoř list Import
Sub Import_Click()
Dim Myflie$, Mypath$
Worksheets.Add: Worksheets.Item(1).Name = "Import"
Set a = Worksheets("Import"): Set b = Worksheets("Start")

offset = 1: Myfile = Range("B2").Value: Mypath = Dir(Myfile & "\")
Do While Mypath <> ""
Call dateiImport(Myfile & "\" & Mypath, offset, "Import")
Mypath = Dir
offset = offset + 1
Loop
End Sub

[elninoslov]

Funkcia Table.AddIndexColumn má 5 parametrov, viď link Microsoft, každopádne odstráňte ten posledný parameter ", type text" je zbytočný.

[MK_Vs]

Při otvírání dotazu se setkám s hlášením o nekompatibilitě. Pravděpodobně mám nižší verzi.
V otevřených datech se zastavím na bodu Pridaný index. Chyba je - Expression.Error: Funkci, která očekává 2 až 4 argumentů, bylo předáno 5 argumentů.
Každopádně vloženou funkci Table - Obsah souboru - jsem neznal.

Dodatečně přidáno po 35 vteřinách:
Děkuji, podívám se na funkci, kterou uvádíte.
----
Odstraněn Pridaný index. Sice nefunguje Halvička so zvýšenou.... To nevadí.
Šlo o transformaci, kterou jsem ale zatím nepochopil. Mám se pořád co učit.

[elninoslov]

Odstraněn Pridaný index. Sice nefunguje Halvička so zvýšenou.... To nevadí.

Vy nemáte odstrániť celý "Pridaný index", ale iba posledný parameter funkcie. Menu Domov - Rozšírený editor - tam si nájdite riadok

Kód: Vybrat vše

#"Pridaný index" = Table.AddIndexColumn(#"Odstránené ostatné stĺpce", "Index", 1, 1, type text),

a zmeňte ho tak, že odstránite ten posledný nepotrebný parameter

Kód: Vybrat vše

#"Pridaný index" = Table.AddIndexColumn(#"Odstránené ostatné stĺpce", "Index", 1, 1),

EDIT 1.11.2023 15:04:
Pridal som Vám na ukážku aj superrýchle riešenie cez VBA.
V archíve CteniPQ+VBA.zip v súbore nahled.xlsm sú obe, aj PQ, aj VBA.

[lubo.]

Funkcia Table.AddIndexColumn má 5 parametrov, viď link...

Informace na webu MS nejsou vždy spolehlivé (existuje víc verzí nástroje - Excel, Power Bi, ..., občas chyby.) Vestavěná nápověda je obvykle spolehlivější.

(Do řádku vzorců v power query zapsat =Table.AddIndexColumn a enter. Funkce i jiné objekty zadáváme jako hodnotu, tj. funkce bez závorek i parametrů.)

[MK_Vs]

Dobrý den, děkuji všem za názor a pomoc. Opět jsem si rozšířil obzor. Hezký den.