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

MS Excel

Téma: export dat v txt

Zaslal/a zdena 28.6.2013 21:47

Zdravím.
Lze, prosím, odeslat - exportovat data do txt jako tkzv. balík, bo mám již více jak 2200 řádků a 10 sloupců nebo data setříděna v DIM(2199,9).
Export trvá již několik sekund. Pozor data obsahují datum, text, čísla i prázdné buňky( nulové hodnoty).
Doposud jsem to dělala takto :
Open Filename For Output As #1
For a = 1 To xx: For b = 1 To yy: Data = Range("Celkem!a:z").Cells(a, b) ' nebo dim_m(a-1,b-1)
If IsNumeric(Data) Then Data = Str(Data)
If b <> 10 Then
Write #1, Data;
Else
Write #1, Str(Val(Data))
End If
Next a,b
Close #1
Děkuji za pomoc

Uzamčeno - nelze přidávat nové příspěvky.

---

Palooo(29.6.2013 10:38)#014218

prilohu pls .) usetrite nam aj vam cascitovat

Opičák(29.6.2013 12:25)#014219

zkus

Příloha: 14219_zapis-do-txt-souboru.zip (17kB, staženo 23x)

citovat

zdena(1.7.2013 11:20)#014238

Děkuji. A pokud by to bylo z DIM?
Nechci použít for-next. Děkuji za odpověď. citovat

Opičák(1.7.2013 22:01)#014244

A proč ne For Next?
Načtení pole o velikosti 2500 x 7 a jeho následný export do txt souboru trvá cca 100 ms.

Příloha: 14244_zapis-do-txt-souboru2.zip (34kB, staženo 25x)

citovat

Anonym(6.7.2013 20:50)#014276

Děkuji za pomoc
O.K. citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse