take netechnicke riesenie: ' --------------- cut start --------------------------- Sub get_batch() Set fs = Application.FileSearch Adresar = "C:\temp" 'upravit ako potrebujes With fs .LookIn = Adresar .FileName = "*.xls" .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count Workbooks.Open i Sheets(4).select Range("C10") = "tvoj vlozeny text" Activeworkbook.Close true Next End Sub '--------------end cut ------------------------------------- On 12/18/06, KEnik <keberdle@gmail.com> wrote: > > Zdravím, > potřebuji doplnit do cca 100 souboru "Text" > Na 4 list > do řádku 10 sloupec C . > Můžete mi někdo poradit? > Díky > -- > KEnik > -- AleXReceived on Mon, 18 Dec 2006 11:56:30 +0100
This archive was generated by hypermail 2.1.8 : 18. 12. 2006, 11:56 CET