< návrat zpět

MS Excel

Téma: export dat v txt rss

Zaslal/a zdena 28.6.2013 21:47

zdenaZdraví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 1

stop Uzamčeno - nelze přidávat nové příspěvky.
Palooo(29.6.2013 10:38)#014218
avatar
prilohu pls .) usetrite nam aj vam cascitovat
Opičák(29.6.2013 12:25)#014219
Opičák
zkus
Příloha: zip14219_zapis-do-txt-souboru.zip (17kB, staženo 23x)
citovat
zdena(1.7.2013 11:20)#014238
zdena
Děkuji. A pokud by to bylo z DIM?
Nechci použít for-next. Děkuji za odpověď. 1citovat
Opičák(1.7.2013 22:01)#014244
Opičák
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: zip14244_zapis-do-txt-souboru2.zip (34kB, staženo 25x)
citovat
Anonym(6.7.2013 20:50)#014276
avatar
Děkuji za pomoc
O.K. 1citovat

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