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

MS Excel

Téma: import souborů

Zaslal/a fortes 15.3.2012 17:16

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

moc děkuji

Uzamčeno - nelze přidávat nové příspěvky.

---

fortes(15.3.2012 17:28)#007642

soubory

Příloha: 7642_1.zip (17kB, staženo 28x)

citovat

Jeza.m(15.3.2012 19:15)#007643

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: 7643_pokus.zip (17kB, staženo 28x)

citovat

fortes(15.3.2012 19:22)#007645

sem já to ale Matěj..děkuju za upozornění

Příloha: 7645_gripos.zip (32kB, staženo 28x)

citovat

Jeza.m(15.3.2012 21:07)#007646

tak ještě jeden pokus

M@

Příloha: 7646_gripos.zip (25kB, staženo 28x)

citovat

fortes(16.3.2012 5:53)#007654

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

ž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

super, děkuji moc za pomoc.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse