Sub ChaCha
Kelias = " D:\Embozing\Avansiniai klijentai\"

Byla = Dir(Kelias1 & "*.Xls")
Do While Byla <> ""
    Vardas = Byla
    Workbooks.Open Kelias & Vardas
    Workbooks(Vardas).Activate
    Columns("I:I").Select
    Selection.NumberFormat = "General"
    Cells(3, 9).FormulaR1C1 = 
"=LEFT((MID((RC[-4]&RC[-3]&RC[-2]),2,4)*MID((RC[-4]&RC[-3]&RC[-2]),6,4)),4)"
    ActiveWorkbook.Close SaveChanges:=True
    Byla = Dir()
Loop
End Sub

Tikiuosi su kitu katalogu susitvarkysi...:)

"rotada" <sigitas@rotada.lt> parašė naujienų 
news:hu2hap$4dr$1@trimpas.omnitel.net...
> Man per dideliė problema - nemoku rašyti makrusų...:)
> 1.Direktorijoje D:\Embozing\Avansiniai klijentai - 46  xls failai (Eksel 
> 2003 SP3)
> 2.Direktorijoje D:\Embozing                            - 781 xls failai
>
> Reikia visuosų xls failų stulpeliuose "I" padaryti formatą "General", o po 
> to į visų xls failų I3 celę įrašyti formulę:
> =LEFT((MID((E3&F3&G3);2;4)*MID((E3&F3&G3);6;4));4)
>
> Gal kaspagelbėtumėte?
>
> Sigitas
>
>
>