MS Excel

Téma: Otevři vše ve složce

Zaslal/a chipoun 22.6.2011 7:12

Zdravím,
potřeboval bych makro, kde uživatel vybere nějakou složku a makro poté udělá cyklus, a z každého nalezeného souboru xlsx vykopíruje cca 10-20 buňek do cílového souboru (otevírat ty soubory?). Těch dokumentů tam bude až 150.

Jde to nějak udělat? Děkuji moc za snahu.

Zaslat odpověď >

mrmola(22.6.2011 9:56)#005315

Nevím jestli ti tohle trochu pomůže

cesta = InputBox("Zadejte cestu k adresáři", "Cesta k adresáři", Default) 'cesta musí končit lomítkem

ChDir cesta
nazevtab = Dir(cesta & "*.xlsx")
While nazevtab <> ""

Tímhle postupně otevírám všechny tabulky (nebo všechny soubory, pokud nahradíš příponu .xlsx hvězdičkou). Tak třebas se ti to hodí...citovat

chipoun(27.6.2011 8:00)#005365

Tak jsem to zkusil a píše mi to error while without wend :-(citovat

chipoun(27.6.2011 8:10)#005366

A když zkusím
Sub otevirac()
cesta = InputBox("Zadejte cestu k adresáři", "Cesta k adresáři", Default) 'cesta musí končit lomítkem

ChDir cesta
nazevtab = Dir(cesta & "*.xlsx")
While nazevtab <> ""
MsgBox nazevtab
Wend

End Sub

tak mi to zacykleně ukazuje cestu prvního souboru. potřeboval bych ať to ukáže všechny a pak makro skončí. Bohužel zrovna while wend moc neovládám :-(citovat

mrmola(11.7.2011 6:16)#005465

Moc se omlouvám, někam se mi ztratilo kus kódu. Byl jsem na dovolené, tak reaguji se zpožděním. Zasílám to ještě jednou. Pro jistotu jsem to ještě otestoval, takže takhle by to mělo být v pořádku.

Sub otevirac()
cesta = InputBox("Zadejte cestu k adresáři", "Cesta k adresáři", Default) 'cesta musí končit lomítkem

ChDir cesta
nazevtab = Dir(cesta & "*.xlsx")
While nazevtab <> ""
Msgbox (nazevtab)
nazevtab = Dir()
Wend

End Subcitovat

chipoun(14.7.2011 9:33)#005500

Tak to je paráda. Funguje skvěle :-)
Díky moc.citovat

Uživatelské menu

Nejste přihlášen(a)

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.