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
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
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
Potpis
Ono sto ne moze niko Mogu i ja