Ayuda: Completar archivo excel desde Visual Basic

[zick]

Hola gente:

Pues tengo esa duda.. estoy adentrandome en el mundo de Visual Basic y he leido uno que otro tutorial acerca de como trabajar entre Visual Basic y Excel, ninguno con resultados exitosos o esperados.

El caso es que estoy utilizando Visual Studio 2005, y estoy programando en Visual Basic.

Tengo un documento excel, como si fuera una plantilla. Es un formato para el llenado de lista de alumnos de una escuela. El caso es que quiero llenar las celdas vacías, con información extraida de algun DataGrid de Visual Basic. No se si esto se puede lograr, pero en computación, la mayoria de las veces, el límite es la imaginación.

Espero alguien me pueda orientar como hacerlo, o de por si, si tuviera algun código que hiciera algo similar, se lo agradecería.

Saludos a todos, y gracias de antemano..

[zick]

Solucione el problema, asi es que pongo la solución por si alguien necesita ayuda con esto:

Código:

'importo lo necesario para trabajar con excel, datos y mysql
Imports MySql.Data.MySqlClient
Imports System.Data
Imports Microsoft.Office.Interop

Private Sub BtnGenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGenerar.Click
        Dim oBooks As Excel.Workbooks
        Dim oBook As Excel.WorkbookClass
        Dim oSheet As Excel.Worksheet
        Dim Fila, Datos, Esta, Limite As Integer


        Dim excelApp As New Excel.Application()
        excelApp.Visible = True

        ' Inicia Excel y abre el workbook
        oBooks = excelApp.Workbooks
        oBook = excelApp.Workbooks.Open("c:\milibro.xls")
        'selecciono la primera hoja que es donde tengo mi plantilla
        oSheet = oBook.Sheets(1)

       'Hago la conexion a la base de datos para extraer la informacion
        Dim conn As New MySql.Data.MySqlClient.MySqlConnection

        Dim myData2 As New DataSet
        Dim cmd2 As New MySqlCommand
        Dim myadapter2 As New MySqlDataAdapter
 
        conn = conectar()

        cmd2.CommandText = "SELECT * FROM datos"
        cmd2.Connection = conn

        myadapter2.SelectCommand = cmd2
        myadapter2.Fill(myData2)

        ' Asi se agregan los datos, celda por celda
        oSheet.Cells(2, 6) = myData2.Tables(0).Rows(0).Item(0).ToString
         'y si quisiera que fuera recorriendo hacia abajo, hago un ciclo...
        For Fila = 0 To Limite
            Esta = Fila + 5
            oSheet.Cells(Esta, 2) = myData2.Tables(0).Rows(Fila).Item(0).ToString
           oSheet.Cells(Esta, 5) = myData2.Tables(0).Rows(Fila).Item(3).ToString
            oSheet.Cells(Esta, 6) = myData2.Tables(0).Rows(Fila).Item(4).ToString
            oSheet.Cells(Esta, 7) = myData2.Tables(0).Rows(Fila).Item(5).ToString
        Next
        conn = desconectar()
    End Sub

Hay que tener en cuenta que oSheet.Cells(0,0) son coordenadas, y que la celda A1 es igual que decir oSheet.Cells(1,1).

Pues eso es todo.. saludos a quienes pasaron a visitar y que de alguna forma, les pudo ayudar..

::Moderador:: - Favor cerrar el tema, gracias