Excel 2003 - import více soborů TXT pomocí makra najednou Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

MK_Vs
Level 2
Level 2
Příspěvky: 185
Registrován: červen 10
Pohlaví: Nespecifikováno
Stav:
Offline

Excel 2003 - import více soborů TXT pomocí makra najednou  Vyřešeno

Příspěvekod MK_Vs » 16 čer 2010 12:10

Dobrý den,

mám řadu souborů v *.txt formátu, které obsahují vždy 2 sloupce.

Příklad

16.5.2010 21:37:07
n.i.O.


Time Temperature
0 75,601
0,0001 74,861
0,0002 75,694
0,0003 75,185
0,0004 76,588
0,0005 72,641
0,0006 72,363
0,0007 74,907
0,0008 74,846
0,0009 75,062
0,001 75
0,0011 75,2

Proměnlivý název v tomto formátu: 2010-05-16_22-20-23.txt

Data uložím vždy v jednom a tomtéž adresáři vč. konečného souboru.
Import pouze jednoho souboru vč. nastavení formátu pomocí makra není problém jak ovšem více najednou.

Ptám se, jakým způsobem pomocí makra importovat postupně všechny soubory z dresáře a postupně ukládat do jednotlivých listů konečného souboru? Následně bych poté potřeboval vyhodnotit vždy jednotlivé listy pomocí vždy stejného grafu.

Tzn. otevři soubor TXT, zkopíruj do následujícho prázdného sloupce souboru „import“, ulož, zavři původní soubor. Tento postup bude opakován do té doby, než dojde k načtění všech souborů v daném adresáři.
Samozřejmě s přihlédnutím k technickým omezením Excelu.

Vyhodnocení dat pomocí grafu by měl být krok 2, již importovaného sešitu.

Vše by mělo proběhnout v rámci Visual Basic a XLS.

Děkuji za pomoc.

MK

Dobrý den,
kolega upřesnil zadání,
Načíst všechny soubory z určitého adresáře, vzor v příloze. Počet souborů proměnlivý.

Výstup z těchto 2 souborů rovněž v příloze. jako XLS.

Data budou nakonec na jednom listu. První sloupec je vždy stejný, počet hodnot rovněž.
Je zde přání označit výsledek i.O. nebo n.i.o. barvami zelená - červená. Graf poté bude na další tlačítko (makro)
Hlavičky datum, čas, i.o. nebo n.i.o. musí být zachovány.

Děkuji
Naposledy upravil(a) MK_Vs dne 16 čer 2010 15:22, celkem upraveno 1 x.

Reklama
navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel 2003 - import více soborů TXT pomocí makra najedno

Příspěvekod navstevnik » 16 čer 2010 14:32

Pripoj jeden nebo dva txt sobory pro otestovani.
Importovan ma byt i text:

16.5.2010 21:37:07
n.i.O.

nebo az pocinaje hlavickou sloupcu?
Nazev listu - odvodit z nazvu souboru txt nebo jinak?
Dale priloz v sesitu xls vzor grafu z naimportovanych dat.

MK_Vs
Level 2
Level 2
Příspěvky: 185
Registrován: červen 10
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel 2003 - import více soborů TXT pomocí makra najedno

Příspěvekod MK_Vs » 16 čer 2010 15:24

Dobrý den,

korekce ze strany našeho zákazníka, tučně v původním textu, plus 2x vzorový soubor + návrh souboru po importu.

navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel 2003 - import více soborů TXT pomocí makra najedno

Příspěvekod navstevnik » 16 čer 2010 18:11

V priloze je soubor, ktery nacte txt soubory ze zadaneho adresare podle vzoru do zadaneho sesitu xls.

V pripadne zajmu o doplneni vygenerovani grafu priloz vzorovy graf.
Přílohy
TxtToXls.xls
(47 KiB) Staženo 209 x

MK_Vs
Level 2
Level 2
Příspěvky: 185
Registrován: červen 10
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel 2003 - import více soborů TXT pomocí makra najedno

Příspěvekod MK_Vs » 17 čer 2010 06:43

Dobrý den,

skláním se před vaší rychlostí a ochotou. Dokument jsem před chvílí stáhnul a jakmile vyzkouším, případně budu mít připravenu podobu grafu, vložím dále do přízpěvku.

navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel 2003 - import více soborů TXT pomocí makra najedno

Příspěvekod navstevnik » 18 čer 2010 10:31

V priloze je "ucesana" procedura oproti povodni neco na zpusob beta verze.
Přílohy
TxtToXls.xls
(47.5 KiB) Staženo 286 x


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Tisk více excel souborů najednou.
    od Myerina » 17 dub 2024 17:42 » v Kancelářské balíky
    2
    907
    od Myerina Zobrazit poslední příspěvek
    20 dub 2024 11:36
  • excel text na konec více řádků najednou Příloha(y)
    od Myerina » 03 led 2024 11:51 » v Kancelářské balíky
    5
    1077
    od Zivan Zobrazit poslední příspěvek
    04 led 2024 09:42
  • Excel komparacedvou soborů Příloha(y)
    od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky
    11
    3492
    od teichmann.ondrej Zobrazit poslední příspěvek
    22 dub 2024 15:45
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    610
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Import PDF do excelu Příloha(y)
    od luko02420 » 13 kvě 2023 11:29 » v Kancelářské balíky
    18
    3717
    od luko02420 Zobrazit poslední příspěvek
    16 kvě 2023 11:27

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů