Insertar datos en un excel ????

[ruboma]

Iniciado por 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.

gracias crack ... solo una cosa mas ... me da fallo en "XlWBATemplate" , no se ha decalarado .... no se como arreglarlo .... lo demas ok (estoy en VB.net 2005)