Exportní filtr z Excelu do .txt (vyřešeno)

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

Moderátor: Mods_senior

Axamith
nováček
Příspěvky: 47
Registrován: duben 05
Bydliště: Zábřeh
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Exportní filtr z Excelu do .txt (vyřešeno)

Příspěvekod Axamith » 26 lis 2005 09:19

Potřeboval bych upravit nebo napsat exportní fitr z excelu. Výstupní soubor potřebuji jako prostý text. Nejvíce se mému požadavku blíží export jako Text (MS DOS) Výsledek vypadá takto :

Kód: Vybrat vše

G00   X0,0000   Y0,0000   ";"   
G01   X-2,5710   "Y-7,4660;"      
G01   X15.457   "Y-7,4660;"      
G02   X14.215   Y4.157   I12,0000   "J3,0000;"
G01   X10,0000   "Y-7,4660;"      
"M02;"            

Vadí mi tam dlouhé mezery a uvozovky. Zatím to upravuji ručně v texťáku, ale to není moc vhodná cesta vzhledem k mnoožství zpracovávaných dat. Je možné si filtr upravit nebo napsat vlastní ? Také bych uvítal možnost přednastavené vlastní koncovky.

Díky za názory.

Reklama
miras
Tvůrce článků
Level 5
Level 5
Příspěvky: 2159
Registrován: červenec 04
Pohlaví: Nespecifikováno
Stav:
Offline

Příspěvekod miras » 26 lis 2005 10:56

Když dáš Soubor->Uložit jako, je možnost vybírat z velkýho množství typů souborů. Žádnej z nich ti nevyhovuje? Co třeba csv?
Vždycky sem potřeboval data v nějakým formátu do excelu importovat, tam je možností nastavení spousta, s exportem sem si moc nehrál. Uvidíme s čím přijde mikel 8)
Bylo by fajn uvést konkrétní příklady. Třeba screenshot jak to vypadá v excelu a jak by sis představoval aby to vypadalo po exportu. Můžeš prozradit co s tím souborem pak potřebuješ dělat?

Axamith
nováček
Příspěvky: 47
Registrován: duben 05
Bydliště: Zábřeh
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Příspěvekod Axamith » 26 lis 2005 11:33

Zdrojovéý a výsledné soubory lze stáhnout na http://mujweb.cz/www/Axamith/Privat/Export.zip?r=2494
Je tam zdrojový soubor v Excelu, soubor uložený jako text (MS DOS) a ručně doeditovaný s indexem new. Používám to k programování CNC strojů a řízení událostí stroje externím skriptem. Taková trochu divočina. Používám k tomu Excel, protože má velké možnosti ve výpočtech. Na jiné práce mám SW v ceně rodiného domku (legální), ale k této problematice je excel vhodnější - mám přímom kontrolu nad výsledným kódem.

Uživatelský avatar
Rimmer
Level 4
Level 4
Příspěvky: 1171
Registrován: březen 03
Bydliště: Červený trpaslík
Pohlaví: Muž
Stav:
Offline

Příspěvekod Rimmer » 27 lis 2005 09:55

Tak jsem se na to mrknul, spec. na ten new file. Formát je dost divoký, v prvním řádku máš tabulátor, v druhém už není (???). Má to tak opravdu být? Pokud by byly rozestupy souměrné ve všech řádcích, bylo by otázkou pár minut napsat malou aplikaci v Ms Access, odtud snadno exportovat.

V excelu jsem to ale nikdy nedělal :? Chtělo by to asi ručně napsat ve VisualBasicu (zvláště jestli se liší řádek 1 od řádku 2)..
Rimms

Axamith
nováček
Příspěvky: 47
Registrován: duben 05
Bydliště: Zábřeh
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Příspěvekod Axamith » 29 lis 2005 15:10

Do příkladu jsem napsal kravinu. Tak to dopadá, když se spěchá. Správný kód má vypadat takhle :

Kód: Vybrat vše

G00 X0.0000 Y0.0000 ;
G01 X-2.5710 Y-7.4660;
G01 X15.458 Y-7.4660;
G01 X19.1690 Y-9.6520;
M02;

Problematiku mezer bych vyřešil sloučením obsahů potřebného počtu buněk do jedné pomocí "&" včetně mezer mezi jednotlivými bloky kódu. Potom by už zbývalo vyřešit uvozovky při exportu. Přemýšlel jsem o nějakém udělátku, které by načetlo celý soubor, odmazalo co je potřeba a opět uložilo. To je ale zatím nad moje síly.[/list]

Axamith
nováček
Příspěvky: 47
Registrován: duben 05
Bydliště: Zábřeh
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Příspěvekod Axamith » 30 lis 2005 13:16

Chtěl bych rozšířit dotaz. Mám rozbalovací seznam s hodnotami 1 - 6.
Potřeboval bych při změně hodnoty cílové buňky např. na č. 1 aby se mi otevřela stránka 1, při č. 2 stránka 2 atd. Lze na toto napsat makro ???

Uživatelský avatar
mikel
Level 5
Level 5
Příspěvky: 2298
Registrován: květen 05
Bydliště: Karviná
Pohlaví: Muž
Stav:
Offline

Příspěvekod mikel » 03 pro 2005 11:03

Tak makro na Export se mi povedlo napsat docela rychle, ale vždy z toho vyšlo tohle:
Obrázek
Celou dobu jsem si lámal hlavu, kde je chyba, že jenom první 3 řádky jsou v uvozovkách, až se mi na to povedlo přijít. Způsobuje to čárka jako oddělovač desetinných míst. A protože tam máš čárky i tečky, tak chci vědět, co je správný oddělovač, ať vím, jak to řešit.

P.S. Na ten seznam se podívám za chvíli. Ale ještě potřebuju vědět, co myslíš tím otevřít stránku? Myslíš tím náhled stránky pro tisk nebo nastavení aktivní buňky na vybranou stránku nebo něco jiného? Předpokládám, že tím nemyslíš přechod na jiný list.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!

Axamith
nováček
Příspěvky: 47
Registrován: duben 05
Bydliště: Zábřeh
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Příspěvekod Axamith » 14 led 2006 10:36

Pánové omlouvám se, že jsem nereagoval na odpověď . Není to nedostatkem slušnosti. Dostal jsem se do časového presu a některé úkoly prostě musely jít dočasně stranou. Takže pokud jste ochotni se dále zabývat danou problematikou , tak upřesňuji : jako oddělovač desetiných míst se bude používat tečka. A co se týče rozbalovacího seznamu, tak miras předpokládá správně. Mám rozbalovací seznam s hodnotami 1 - 6.
Potřeboval bych při změně hodnoty cílové buňky např. na hodnotu 1 aby se mi otevřel list 1, při hodnotě 2 list 2 atd. Lze na toto napsat makro ???

Děkuji axamith

Uživatelský avatar
mikel
Level 5
Level 5
Příspěvky: 2298
Registrován: květen 05
Bydliště: Karviná
Pohlaví: Muž
Stav:
Offline

Příspěvekod mikel » 14 led 2006 12:25

Tak tě vítám zpátky mezi živými. :lol:
Ještě jsem to nesmazal, takže tenhle případ znova otevřu.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!

Uživatelský avatar
mikel
Level 5
Level 5
Příspěvky: 2298
Registrován: květen 05
Bydliště: Karviná
Pohlaví: Muž
Stav:
Offline

Příspěvekod mikel » 14 led 2006 16:21

Tak tady je to makro. Přidej si tam tlačítko na spouštění.

Kód: Vybrat vše

Sub ExportToTXT()
 Dim Orig As Worksheet, Novy As Worksheet, Bunka As Range, Kod As Variant, i As Integer, pom As Integer
  Set Orig = Worksheets(1)
  Set Bunka = Orig.Range("E2:I65536").Find(What:=",")
  If Not Bunka Is Nothing Then
    MsgBox "Zápis obsahuje , jako oddělovač. Export bude chybný!", vbExclamation
  End If
  Set Novy = Workbooks.Add.Worksheets(1)
  Novy.Range("A1").Select
  Set Bunka = Orig.Range("E2")
  Do While Bunka.Value <> ""
    Kod = Bunka.Value
    For i = 1 To 4
      If Bunka.Offset(0, i).Value <> "" Then
        Kod = Kod & " " & Bunka.Offset(0, i).Value
      End If
    Next i
    ActiveCell.NumberFormat = "@"
    ActiveCell = Kod
    ActiveCell.Offset(1, 0).Activate
    Set Bunka = Bunka.Offset(1, 0)
  Loop
  myFile = Application.GetSaveAsFilename(filefilter:="Text files (*.txt), *.txt")
  ActiveWorkbook.SaveAs Filename:=myFile, FileFormat:=xlTextWindows
  Application.DisplayAlerts = False
    ActiveWorkbook.Close
  Application.DisplayAlerts = True
End Sub
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!

Uživatelský avatar
mikel
Level 5
Level 5
Příspěvky: 2298
Registrován: květen 05
Bydliště: Karviná
Pohlaví: Muž
Stav:
Offline

Příspěvekod mikel » 14 led 2006 16:45

Předpokládám, že ten rozbalovací seznam jsi vytvořil z menu Formuláře. V tom případě si do sešitu přidej to makro. Adresu v Range změň tak, že tam dáš adresu buňky, kam se zapisuje vybraná hodnota. A když to makro přiřadíš k tomu rozbalovacímu seznamu, tak se ti automaticky spustí, když změníš hodnotu.

Kód: Vybrat vše

Sub SheetChange()
Worksheets(Range("J1").Value).Activate
End Sub


Jestli máš seznam vytvořený pomocí Ovládacích prvků nebo Data/Ověření, tak napiš. Budeme to muset trochu změnit.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!

Axamith
nováček
Příspěvky: 47
Registrován: duben 05
Bydliště: Zábřeh
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Příspěvekod Axamith » 18 led 2006 04:37

Díky za rady, do konce týdne to otestuji a dám vědět výsledek. I když předpokládám, že to to pojede bez problémů, jako všechno, co jsem od tebe viděl.

Axamith


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - filtr hyperlinku na druhý list Příloha(y)
    od mikiracan » 06 čer 2023 11:49 » v Kancelářské balíky
    2
    2431
    od mikiracan Zobrazit poslední příspěvek
    18 srp 2023 10:17
  • Excel - filtr na formát buňky + obsah Příloha(y)
    od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky
    0
    1858
    od popcorn Zobrazit poslední příspěvek
    19 zář 2023 17:07
  • Import PDF do excelu Příloha(y)
    od luko02420 » 13 kvě 2023 11:29 » v Kancelářské balíky
    18
    3252
    od luko02420 Zobrazit poslední příspěvek
    16 kvě 2023 11:27
  • Poškozený soubor excelu Příloha(y)
    od Jsimi » 06 úno 2024 22:43 » v Kancelářské balíky
    0
    612
    od Jsimi Zobrazit poslední příspěvek
    06 úno 2024 22:43
  • Promítaní excelu a videa zároveň
    od Marw7_ » 02 čer 2023 15:57 » v Vše ostatní (sw)
    2
    1285
    od X Zobrazit poslední příspěvek
    02 čer 2023 18:06

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

Kdo je online

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