< návrat zpět
MS Excel
Téma: Import externich dat
Zaslal/a ywaan 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
Petr(29.6.2009 12:53)#000535 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
Jeza.m(30.6.2009 21:12)#000544 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