< návrat zpět

MS Excel

Téma: import souborů rss

Zaslal/a fortes 15.3.2012 17:16

dobrý den,
jak importovat soubory do jednoho listu pro další zpracování ? 7 info je přiložené v zip souboru

moc děkuji

stop Uzamčeno - nelze přidávat nové příspěvky.
fortes(15.3.2012 17:28)#007642
avatar
soubory
Příloha: zip7642_1.zip (17kB, staženo 29x)
citovat
Jeza.m(15.3.2012 19:15)#007643
Jeza.m
v tom texťáku popisuješ něco co v tom souboru vůbec není (asi nějaký starší soubor), tak nikde nevidím ty pojmenované listy, ani požadovaný výstup.
No ale třeba pomůže příloha.

M@
Příloha: zip7643_pokus.zip (17kB, staženo 29x)
citovat
fortes(15.3.2012 19:22)#007645
avatar
sem já to ale Matěj..děkuju za upozornění
Příloha: zip7645_gripos.zip (32kB, staženo 29x)
citovat
Jeza.m(15.3.2012 21:07)#007646
Jeza.m
tak ještě jeden pokus

M@
Příloha: zip7646_gripos.zip (25kB, staženo 29x)
citovat
fortes(16.3.2012 5:53)#007654
avatar
děkuju,nicméně se nemůžu dostat přes řádek
"With Application.FileSearch" na kterém to vždycky skončícitovat
Jeza.m(16.3.2012 11:07)#007657
Jeza.m
že by to novější Excel neuměl?

Tak zkus původní část kódu:
With Application.FileSearch
.NewSearch
.LookIn = File_Path
.Filename = "*.ref"
.SearchSubFolders = False
.Execute
For Each soubor In .FoundFiles
Importdat (soubor)
Next
End With

nahradit tímto:
soubor = Dir$(File_Path & "\*.ref")
Dim souboryt As String

Do While soubor <> ""
If souboryt = "" Then souboryt = soubor Else souboryt = souboryt & "|" & soubor
soubor = Dir$
Loop

For Each oddil In Split(souboryt, "|")
Importdat (File_Path & "\" & oddil)
Next

M@citovat
fortes(16.3.2012 13:49)#007659
avatar
super, děkuji moc za pomoc.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje