< návrat zpět

MS Excel


Téma: Načetní dat z CVS, TXT rss

Zaslal/a 4.9.2010 21:32

Prosím o radu, jak načíst pouze určitá data nebo jen 1 řádek z databáze CVS, TXT. Za předpokladu, že vím dle indexu, o jaké pořadí v databázi jde.
doposu jsem to řešil přes načtění jednotl.dat po ukončení na výsl.pozici.
Pomalé..
děkuji všem za pomoc 3

Zaslat odpověď >

icon #002401
Poki
Zdravim,
tohle by melo nacist konkretni 'radek' ze souboru .txt
Ktery radek se nacte zavisi na promenne 'radek'.
V referencich je nutne mit zaskrtnuto "Microsoft Scripting Runtime".
Sub neco()
Dim fso As New FileSystemObject
Dim txt As TextStream
Set txt = fso.OpenTextFile(Filename:="c:\Documents and Settings\Dokumenty\test.txt", IOMode:=ForReading)
radek = 4
Do Until txt.AtEndOfStream = True
For j = 1 To radek - 1
txt.SkipLine
Next
Cells(1, 1) = txt.ReadLine
Exit Sub
Loop
End Sub
citovat
icon #002448
Poki
Jen doplnim, ze stejnou proceduru lze vyuzit i k ziskani urciteho radku ze souboru CVS (samozrejme k nalezitym nazvem souboru v kodu) 2citovat

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09