< návrat zpět

MS Excel


Téma: Import externich dat rss

Zaslal/a 21.3.2009 20:44

Potreboval bych poradit s importem dat v *.txt, kdy podle aktualniho data potrebuji natahnout pomoci makra textovy soubor a upravit ho pro dalsi pouziti.
Soubor je ve tvaru Report_dd-mm-yy_EOD.txt

Dekuji moc za pomoc
Ivan

Zaslat odpověď >

#000535
avatar
O importu textového souboru jsem psal v tomto článku http://wall.cz/import-textoveho-souboru.a168.html. Napsat makro by dalo trochu více práce. Pokud máte zájem, tak napište mail přes kontaktní formulář.citovat
#000544
Jeza.m
V referencích projektu si povolit použití Microsof Scripting Runtime knihovnu (scrrun.dll) a pak do modulu vložit následující kód (případně si ho upravit - není ošetřen na chyby):

Sub nacti()
Dim fso As New FileSystemObject
Dim fil As File
Dim ts As TextStream
Dim text() As String
Dim radek As Single

radek = 1

Set fil = fso.GetFile(ThisWorkbook.Path & "\Report_" & Format(Day(Date), "0#") & "-" & Format(Month(Date), "0#") & "-" & Right(Year(Date), 2) & "_EOD.txt")
Set ts = fil.OpenAsTextStream(ForReading)

Do While ts.AtEndOfStream = False
text = Split(ts.ReadLine, ";")
For i = 0 To UBound(text)
Cells(radek, i + 1) = text(i)
Next
radek = radek + 1
Loop

End Sub


M@citovat

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