• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: List do TXT Excel 2013

Zaslal/a PeMa 27.12.2014 22:47

Zdravím,
mám problém s dosud funkčním převodem listu4 z excelu do TXT,
Mám vytvořeno makro. Na prvním listu sešitu je tlačítko s přiřazeným makrem , na tomto listu vyplním vstupní data. List4 je upraven pro převod do TXT v potřebném rozložení se vstupními daty.

Sub ul()
' ul Makro
'
Dim FJmeno As String
Dim FCesta As String

FCesta = "C:\Objednávky"
FJmeno = Sheets("Objednávka").Range("F2").Text
JmenosDatumem = Format(Now, "ddmmyyyy_hh-nn-ss_") & FJmeno

Sheets(4).SaveAs Filename:=FCesta & "\" & JmenosDatumem & ".TXT", FileFormat:= _
xlTextPrinter, CreateBackup:=False, Local:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
End Sub
Pokud spustím makro pomocí tlačítka, uloží se list1 místo listu4. Samotné spuštění makra je funkční. V Excel 2010 je makro funkční.
Děkuji za radu

PeMa

Zaslat odpověď >

---

marjankaj(28.12.2014 1:10)#022905

Akosi nevidieť do toho tvojho súboru(sešitu).
K čomu je dobrý tento riadok?

Application.DisplayAlerts = Falsecitovat

PeMa(28.12.2014 1:50)#022906

Řádek je na nezobrazování chybových hlášek, není třeba aby to tam bylo. Po odstranění je stav stejný. Co je třeba ze sešitu?
Testoval jsem makro na prázdném sešitu a je nefunkční
Pokud je ovládací tlačítko pro makro na listu1 a já chci uložit obsah pouze listu4 do txt souboru. Někde je chyba v řádku:
Sheets(4).SaveAs Filename:=FCesta & "\" & JmenosDatumem & ".TXT", FileFormat:= _
xlTextPrinter, CreateBackup:=False, Local:=Falsecitovat

PeMa(28.12.2014 1:55)#022907

Posílám sešit

Příloha: 22907_sesit1.rar (18kB, staženo 23x)

citovat

PeMa(28.12.2014 2:24)#022908

Už jsem to vyřešil. Upravil jsem řádek.
Sheets("List4").Select
ActiveWorkbook.SaveAs Filename:=FCesta & "\" & JmenosDatumem & ".TXT", FileFormat:= _
xlTextPrinter, CreateBackup:=False, Local:=False
Třeba to někomu pomůžecitovat

marjankaj(28.12.2014 12:27)#022910

Určite je vhodnejšie použiť názov listu namiesto poradového čísla. Nemám excel2013, tak to odskúšať neviem. Je divné, že to v Excel2013 nefunguje.

Pokiaľ ide o
Application.DisplayAlerts = False

tak aby si nebol prekvapený ak niečo vymažeš a excel sa ťa ani neopýta, či to naozaj chceš vymazať.
Vidíš, keď si to odstránil, tak sa to zobrazovať nebude, až do ukončenia excelu.
Slušný programátor by mal obnoviť pôvodné nastavenia a nenechávať po sebe bordel. citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse