<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Dim App As Object
Set App = CreateObject("Excel.Application")
App.visible = True
App.Workbooks.Open ("xls,csv,txt putanja")
With App
.visible = True 'False
        With .Workbooks(.Workbooks.count)
             For i = 1 To .Worksheets.count
                WrksheetName = .Worksheets(i).Name
               DoCmd.Tr