Stránka 1 z 1

Makro pro uložení do txt ulož a konec

Napsal: 30 črc 2012 12:02
od Kubass
Dobrý den, moje makro je zde:
Vezme data ze sešitu a exportuje je pod názvem do uvedené složky, poté se zavře.
Jenže nastává problém:
v exportovaném textovém souboru jsou navíc znaky uvozovek "12000000,,,,,,,,NEG,,,"
Když dám uložit jako CSV nebo unicode text ručně excel vrátí požadavek:
pokud chcete zachovat tento formát, ve kterém budou vynechány všechny nekompatibilní vlastnosti, klepněte na tlačítko ANO.
Kliknu ANO a mám v exportu tohle
12000000,,,,,,,,NEG,,, - bez uvozovek tak jak to potřebuji.
Jak to udělat nebo co připsat do makra?

Díky pánové a dámy
Sub ul()
'
' ul Makro
'
' Klávesová zkratka: Ctrl+q
'
ChDir "C:\ELAS"
ActiveWorkbook.SaveAs Filename:="C:\ELAS\MEDUSA1.txt", FileFormat:= _
xlCSV, CreateBackup:=False
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End Sub

do fileformatu je jedno co dám zkoušel jsem xlcsv a unicode

Re: Makro pro uložení do txt ulož a konec

Napsal: 30 črc 2012 15:23
od Azuzula
Dobrý den,
Vítám Vás na PC-HELP. Místo xlCSV dejte xlUnicodeText, potom by to mělo být OK.

Re: Makro pro uložení do txt ulož a konec

Napsal: 31 črc 2012 07:18
od Kubass
Také zdravím, xlUnicodeText jsem zkoušel a nepomohlo, pořád si v exportovaném souboru dodělává uvozovky....??nechápu
Máte další nápad?

Ani to nemusí být mé řešení prostě nějak musím dostat data ve formě textu ven z excelu a nějak to zjednodušit aby se nemusela pořád vyhledávat cesta a klikačka při ukládání...


Díky

Re: Makro pro uložení do txt ulož a konec

Napsal: 31 črc 2012 08:46
od Azuzula
Vaše makro je dobré, mě to ukládá bez uvozovek, takže asi bude na vině verze excelu. Já používám 2010.

xlText
xlTextMSDOS (neumí české znaky)
xlCSV (za každou buňku dělá čárku místo mezery)
xlUnicodeText
xlTextPrinter
všechno mi to ukládá bez uvozovek odděleno mezerou nebo tabulátorem (krom xlCSV kde odděluje čárkou)

Re: Makro pro uložení do txt ulož a konec

Napsal: 31 črc 2012 09:56
od Kubass
tak jo, testnul jsem to s FileFormat:= xlTextPrinter a ejhle chodí to bez uvozovek, ale teda všechny ostatní s uvozovkama, nepobírám ale vyřešeno...
Díky moc

--- Doplnění předchozího příspěvku (31 Črc 2012 10:09) ---

Jo ještě otázka jak změnit acitiveworkbook? Chci mít tlačítko na makra v jiném listu - zkoušel jsem to jen přepsat na jméno toho listu ale nejede to

ActiveWorkbook.SaveAs Filename:="C:\ELAS\MEDUSA1.txt", FileFormat:= _
xlCSV, CreateBackup:=False
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End Sub

místo Acitiveworkbook bych potřeboval list2... díky

--- Doplnění předchozího příspěvku (31 Črc 2012 11:44) ---

prostě mám tlačítko na listu 1 a chci exportovat list 2

ChDir "C:\ELAS"
Sheets("list2").SaveAs Filename:="C:\ELAS\MEDUSA1.DAT", FileFormat:= _
xlTextPrinter, CreateBackup:=False, Local:=False

Sheets("list2").Save

jenže se do exportu uloží list 1 místo 2... díky

Re: Makro pro uložení do txt ulož a konec

Napsal: 04 srp 2012 21:12
od Azuzula
Zkoušela jsem to a funguje mi ukládání druhého (resp. jakéhokoliv listu když změním číslo indexu) listu jen jsem smazala ten řádek s sheets("list2").save a ten ChDir, vypadá to že je zbytečný.

Kód: Vybrat vše

Sheets(2).SaveAs Filename:="C:\ELAS\MEDUSA1.DAT", FileFormat:= _
xlTextPrinter, CreateBackup:=False, Local:=False
Application.DisplayAlerts = False
Application.Quit

Re: Makro pro uložení do txt ulož a konec

Napsal: 05 srp 2012 16:23
od cmuch
Hlavně pozor na toto Sheets(2)....
Pokud se změní pořadí tohoto listu v sešitu už to nebude fungovat.
Tzn. nyní je to druhý list, ale pokud se před něj vloží jiný list, tak to bude již třetí a ne druhý!