Ještě přidávám ukázkový soubor a byla bych ráda aby se mi ukládal k původnímu souboru vždy pod názvem "Upraveny"
Příloha: 
56434_upraveny.xlsx (14kB, staženo 5x)
56434_upraveny.xlsx (14kB, staženo 5x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Automatické generování souborů
MS Excel
Téma: Automatické generování souborů 
Zaslal/a Majki 17.4.2024 12:32
Ahojky, existuje nějaká možnost, třeba ve VBA, kdy po stisknutí tlačítka v EXCEL listě se mi data v tabulce automaticky uloží do txt souboru? Předem díky:)
Obsahujú tie texty diakritiku?
Príklad:
Sub UlozTXT()
Dim D(), r As Long, T As String
With Worksheets("Upraveny").ListObjects("Upraveny__2").DataBodyRange.Columns(1)
r = .Rows.Count
If .Rows.Count = 1 Then
T = .Value2
Else
D = .Value2
For r = 1 To UBound(D, 1)
T = T & IIf(r > 1, vbNewLine, "") & D(r, 1)
Next r
End If
End With
With CreateObject("ADODB.Stream")
.Type = 2
.Charset = "utf-16"
.Open
.WriteText T
.SaveToFile ThisWorkbook.Path & "\Upraveny.TXT", 2
.Close
End With
End Sub
Pôjde ešte o to, aký formát kódovania zožerie cieľový SW/HW. Treba vyskúšať alebo pozrieť dokumentáciu.
Sub UlozTXT()
Dim D(), r As Long, T As String
With Worksheets("Upraveny").ListObjects("Upraveny__2").DataBodyRange.Columns(1)
r = .Rows.Count
If .Rows.Count = 1 Then
T = .Value2
Else
D = .Value2
For r = 1 To UBound(D, 1)
T = T & IIf(r > 1, vbNewLine, "") & D(r, 1)
Next r
End If
End With
With CreateObject("ADODB.Stream")
.Type = 2
.Charset = "utf-16"
.Open
.WriteText T
.SaveToFile ThisWorkbook.Path & "\Upraveny.TXT", 2
.Close
End With
End Sub
Pôjde ešte o to, aký formát kódovania zožerie cieľový SW/HW. Treba vyskúšať alebo pozrieť dokumentáciu.
Příloha: 
56438_upraveny.zip (20kB, staženo 5x)
56438_upraveny.zip (20kB, staženo 5x)Skvělé, moc děkuji, ještě přidám nějakou hlášku na konec a je to naprostá pecka....děkuji :)
Už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