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

[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

[Reklama]

[Azuzula]

Dobrý den,
Vítám Vás na PC-HELP. Místo xlCSV dejte xlUnicodeText, potom by to mělo být OK.

[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

[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)

[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

[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

[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ý!