< návrat zpět
MS Excel
Téma: Automatické generování souborů ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
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:)
Majki(17.4.2024 12:46)#056434 ![avatar](./pictures/avatars/no-avatar.jpg)
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 3x) citovat
elninoslov(17.4.2024 13:11)#056436 ![elninoslov](./pictures/avatars/5a6387658a0f4.jpg)
Obsahujú tie texty diakritiku?
citovat
Majki(17.4.2024 13:25)#056437
elninoslov(17.4.2024 13:27)#056438 ![elninoslov](./pictures/avatars/5a6387658a0f4.jpg)
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.
Příloha:
56438_upraveny.zip (20kB, staženo 3x) citovat
Majki(17.4.2024 13:48)#056443 ![avatar](./pictures/avatars/no-avatar.jpg)
Skvělé, moc děkuji, ještě přidám nějakou hlášku na konec a je to naprostá pecka....děkuji :)
citovat