< návrat zpět

MS Excel


Téma: Automatické generování souborů rss

Zaslal/a 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:)

Zaslat odpověď >

#056434
avatar
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: xlsx56434_upraveny.xlsx (14kB, staženo 3x)
citovat
#056436
elninoslov
Obsahujú tie texty diakritiku?citovat
#056437
avatar
Ano mohou.citovat
#056438
elninoslov
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: zip56438_upraveny.zip (20kB, staženo 3x)
citovat
#056443
avatar
Skvělé, moc děkuji, ještě přidám nějakou hlášku na konec a je to naprostá pecka....děkuji :)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46