Predmet:Re: Loop za provera naziv fajlove
evo kako sam ja resio
PreuzmiIzvorni kôd (Visual Basic): Dim xlsBrojac As Long
Dim strXLS As String
Dim strXLStmp As String
strXLStmp = Me.cboMagacin.Text & "_" & Me.cboDobavuvac.Text & "_" & Me.txtDataOD & "_" & Me.txtDataDO & ".xls"
xlsBrojac = 0
strXLS = strXLStmp
subProverka:
Dim fs As New Scripting.FileSystemObject
If fs.FileExists(ReadIniValue(App.path & "\METMG.ini", "Parametri", "PatekaPDF") & strXLS) Then
xlsBrojac = xlsBrojac + 1
strXLS = Left(strXLStmp, Len(strXLStmp) - 4) & "(" & xlsBrojac & ")" & ".xls"
GoTo subProverka
Else
GoTo subExcel
End If
subExcel:
Dim objExcel As Excel.Application
Dim wbk As Excel.Workbook
Dim wsh As Excel.Worksheet
Set objExcel = CreateObject("Excel.Application")
Set wbk = objExcel.Workbooks.Add
Set wsh = wbk.Worksheets("Sheet1")
wbk.SaveAs ReadIniValue(App.path & "\METMG.ini", "Parametri", "PatekaPDF") & strXLS, FileFormat:=xlExcel8
objExcel.Quit
I ovo moe ima mane odnosno mana je u to ako neko pobise neki fajl koj je imao i zagrade neki broj
u tom slucaju program popunece to prazno mesto.