MS Excel

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

Zaslal/a Cajka 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

Zaslat odpověď >

Poki(14.9.2010 9:46)#002401

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 Subcitovat

Poki(16.9.2010 9:46)#002448

Jen doplnim, ze stejnou proceduru lze vyuzit i k ziskani urciteho radku ze souboru CVS (samozrejme k nalezitym nazvem souboru v kodu)

citovat

Uživatelské menu

Nejste přihlášen(a)

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.