• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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

Jméno
Kontrola
Text
	Ukázka

---

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse