Új hozzászólás Aktív témák

• #53121 Mutt senior tag gborisz #53117

  Új Válasz 2024-08-28 22:08:15 #53121

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz gborisz #53117 üzenetére

  Szia,

  Power Query-hez az M-kód ennyi:
  let
Forrás = Csv.Document(File.Contents("D:\a.txt"),[Delimiter="#(tab)", Columns=4, Encoding=1250, QuoteStyle=QuoteStyle.None]),
#"Típus módosítva" = Table.TransformColumnTypes(Forrás,{{"Column1", Int64.Type}, {"Column2", type number}, {"Column3", type number}, {"Column4", type number}}),
#"Oszlopok átnevezve" = Table.RenameColumns(#"Típus módosítva",{{"Column1", "Pontszám"}, {"Column2", "Koord1"}, {"Column3", "Koord2"}, {"Column4", "Magasság"}})
in
#"Oszlopok átnevezve"

  Az első sorban látható hogy a D: meghajtóról olvassa be az a.txt-t ezt kell átirni a kódban (újabb PQ változatokban ezt máshogy is lehet módosítani.

  A munkafüzetben egy új lapot hoz létre az adatokkal (esetemben az új lap neve "a"), amiket az INDEX függvénnyel lehet a végső munkalap celláiba írni.

  

  A2-ben a képlet: =INDEX(a!$A:$A;SOR())
  C2-ben =INDEX(a!$B:$B;SOR())
  és igy tovább.

  A 12-es sortól pedig jönnek a lehetséges többi adatok.
  A12-ben a képlet: =HA(SOR()-6>DARAB2(a!$A:$A);"";INDEX(a!$A:$A;SOR()-6))
  Itt figyeljük, hogy van-e a másik lapon még adat és az elcsúszott sorszámot is módosítjuk.
  A képletek lemásoljuk az első száz sorig és meg is van.

  Ha van új adat, akkor az a.txt fájlt felülírjuk és a Power Query menüben található frissítést megnyomjuk.

  üdv

• #53120 Mutt senior tag gborisz #53117

  Új Válasz 2024-08-27 21:53:26 #53120

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz gborisz #53117 üzenetére

  Szia,

  Ismétlődő feladatok automatizálására két lehetőség is van.
  1. Makró használata. Akár fel is veheted a lépéseket, amit mutattál ahhoz a rögzítés is jó lesz.
  2. Power Query 2013hoz még telepíteni kell innen.
  Youtubeon van jó pár video txt fájl beolvasására. Pl. https://www.youtube.com/watch?v=FLzKnNmE4Ms

  Üdv

• #53118 Fferi50 Topikgazda gborisz #53117

  Új Válasz 2024-08-27 17:43:29 #53118

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz gborisz #53117 üzenetére

  Szia!
  Milyen Ctrl+C - Ctrl+V?
  Excelben megnyitod a szövegfájlt. Ha egy oszlopba jön be a szöveg, akkor Adatok - Szövegből oszlopok - tagolt - a Tab eleve be van jelölve, OK (több párbeszéd ablakon végigmész).
  Ha eleve több oszlopba jön be, akkor ráállsz a B oszlopra, Beszúrás.
  Ha ez nem felel meg, akkor tegyél fel mintát légy szíves.
  Üdv.

Új hozzászólás Aktív témák