< 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:)

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#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 4x)
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 4x)
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

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.

On-line nástroje