[ aikidomaster @ 16.09.2009. 13:15 ] @
Da li moze u ovome dole kodu da se nekako izmeni da mi ne gleda samo duznik1.xls, duznik2.xls, duznik3.xls ("C:\Duznik" & Brojac & ".xls") nego da sabira sve koji pocinju sa duznik a zavrsavaju se sa ".xls" npr. Duznik pera.xls, Duznik Mika.xls, Duznik Djoka.xls ...??? kao npr("C:\Duznik" & "" & ".xls")
Ili mozda da sabira sve .xls koji se nalaze u jednom folderu...
HELPPP

Code:
Sub Duznici()
Dim a As Long
Dim Brojac As Long
Dim rezultat As Long
Dim NemaFajlova As Boolean
Brojac = 0
rezultat = 0
Do Until NemaFajlova = True
DoEvents
Brojac = Brojac + 1
Excel.Workbooks.Open ("C:\Duznik" & Brojac & ".xls")
a = Excel.Workbooks(2).Worksheets(1).Cells(5, 3)
rezultat = rezultat + a
Excel.Workbooks(2).Close
If Dir("C:\Duznik" & Brojac + 1 & ".xls") = "" Then NemaFajlova = True
Loop
Excel.Workbooks(1).Worksheets(1).Cells(5, 3) = rezultat
Excel.Workbooks(1).Save
MsgBox "Broj sabranih Dokumenata " & Brojac
End Sub
[ Jpeca @ 17.09.2009. 05:33 ] @
Pogledaj da li ti može koristiti kod u temi http://www.elitesecurity.org/t244545-0#1480497
[ aikidomaster @ 17.09.2009. 23:01 ] @
Gledam ali ne kontam!?
Ja sam slab sa Excell om ... trazim pojednostavljenje
[ Jpeca @ 18.09.2009. 08:11 ] @
Evo ovde ima tačno što ti tražiš. http://www.ozgrid.com/VBA/loop-through.htm Otvara jednu po jednu radnu svesku iz određenog foldera, a možeš i da postaviš filter na duznik*.xls. Unutar petlje napiši tvoj kod za sabiranje.
Code:
rezultat = rezultat + wbResultsWorksheets(1).Cells(5, 3)

U rezultatu ćeš dobiti zbir ćelija C5 iz svih radnih sveski iz određenog foldera.