Re: Excel - makro / dávka

From: AleX <faklabrejle (zavinac)>
Date: 18. 12. 2006, 11:56 CET
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
>



-- 
AleX
Received on Mon, 18 Dec 2006 11:56:30 +0100

This archive was generated by hypermail 2.1.8 : 18. 12. 2006, 11:56 CET