PC-HELP.CZ

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.

"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 ???

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

Pr.

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

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

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.

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

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


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.

elninoslov píše: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ů.)

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