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

Příspěvky uživatele

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ůže

Posílám sešit

Řá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:=False

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

Na spojení buněk se dá použít funkce:
CONCATENATE na sloučení textu je perfektní, pokud dopíši i nějaký text, doplní se mi tam nebo mezeru doplním uvozovkaminapř.: CONCATENATE(D2;" ";E2;" ";F2). Snad to někomu přijde vhod

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje