Ayuda: Completar archivo excel desde Visual Basic

[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