MS Excel

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

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

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

VBA - Automatické přidání a pojmenování listů

Určení kraje dle databáze PSČ na základě adresy

Určení kraje dle databáze PSČ na základě adresy

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Vynásobit hodnoty kurzem - Power Query

Vynásobit hodnoty kurzem - Power Query