<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 />
Sub Button1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim Sit As Object


    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\temp\BOOK2.XLS") 'Putanja do tog tvog fajla iz kog trebas podatke
    'xlApp.Visible = True
    xlBook.Sheets(1).Range("A1:C55").Copy ' odakle dokle trebas kopirati nadam se iz shhet 1
    xlApp.DisplayAlerts = False
    xlBook.Close
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
Set xlBook = ActiveWorkbook
Set Sit = xlBook.Sheets("Sheet2") '