Akosi nevidieť do toho tvojho súboru(sešitu).
K čomu je dobrý tento riadok?
Application.DisplayAlerts = Falsecitovat
K čomu je dobrý tento riadok?
Application.DisplayAlerts = Falsecitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: List do TXT Excel 2013
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
Řá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
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
Posílám sešit
Příloha: 
22907_sesit1.rar (18kB, staženo 23x)
citovat22907_sesit1.rar (18kB, staženo 23x)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
Sheets("List4").Select
ActiveWorkbook.SaveAs Filename:=FCesta & "\" & JmenosDatumem & ".TXT", FileFormat:= _
xlTextPrinter, CreateBackup:=False, Local:=False
Třeba to někomu pomůžecitovat
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
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.
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články