Automatizacije excella

Code:
        Dim oXL As Excel.Application
        Dim oWB As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim oRng As Excel.Range

        ' Start Excel and get Application object.
        oXL = CreateObject("Excel.Application")
        oXL.Visible = True

        ' Get a new workbook.
        oWB = oXL.Workbooks.Add()
        oSheet = oWB.ActiveSheet

Code:
 oWB = oXL.Workbooks.Add()

Code:
Dim oXL As New Excel.Application()
        Dim oWB As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim oRng As Excel.Range



        oXL.Visible = True
        oXL.UserControl = True
        Dim oldCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
        oXL.Workbooks.Add()
        System.Threading.Thread.CurrentThread.CurrentCulture = oldCI


        oXL.Visible = True
        oSheet = oXL.ActiveSheet

        ' Add table headers going cell by cell.
        oSheet.Cells(1, 1).Value = "First Name"

Code:
oSheet.Cells(1, 1).Value = "First Name"

Code:
oSheet.Range("A2", "B6").Value = saNames