Insertar datos en un excel ????

[royrojas]

Código:

       Dim objExcel As Microsoft.Office.Interop.Excel.Application


        'Una variable de tipo Libro de Excel   
        Dim xLibro As Microsoft.Office.Interop.Excel.Workbook
        Dim Col As Integer, Fila As Integer

        'creamos un nuevo objeto excel   
        objExcel = New Microsoft.Office.Interop.Excel.Application

        'Usamos el método open para abrir el archivo que está _   
        ' en el directorio del programa llamado archivo.xls   
        xLibro = objExcel.Workbooks.Open(System.AppDomain.CurrentDomain.BaseDirectory + "\archivoexcel.xls")
        
============ mi codigo ===========

           Dim xlBooks As Workbooks
           xlBooks = objExcel.Workbooks

            Dim xlBook As _Workbook
            xlBook = xlBooks.Add(XlWBATemplate.xlWBATWorksheet)

            Dim xlSheet As Sheets
            xlSheet = xlBook.Worksheets

            Dim worksheet As _Worksheet
            worksheet = CType(xlSheet.Item(1), _Worksheet)
            If worksheet Is Nothing Then
                'MsgBox("Error: hoja de trabajo es nula")
                Environment.ExitCode = 0
                Return "Error: hoja de trabajo es nula"
                Exit Function
            End If

            '===Escribe en la celda 1,1
            worksheet.Cells(1, 1).Value2 = "Mi Nuevo Valor"

========fin mi codigo==========

        'Hacemos el Excel Visible   
        objExcel.Visible = True

======================

este codigo lo puse sin compilar ni nada, a puro texto, asi que si te da error en algun punto deberia ser facil arreglarlo, pero asi como esta deberia funcionar.