Pasar datos tabla a hoja Excel

[lindochico]

Hola amigos! Me pueden dar el procedimiento para pasar todo el contenido de una tabla Access a una hoja Excel desde un proyecto VB6?

Ademas de esto, existe alguna manera de hacer que el programa envie el contenido de ALGUNAS columnas que se le indique en vez de enviar todo el contenido de la tabla?

Muchas gracias.....

[hernanmdq]

Tu si que andas con suerte, esta semana necesite eso y lo hice yo mismo. Si me das un mail te lo envio completo, igual aqui pego el codigo.

Código:

Private Sub cmdImportar_Click()
    Dim ApExcel As New Excel.Application
    Dim x As Long
    'Agregar marac de repuesto.
    ApExcel.Visible = True
    ApExcel.Workbooks.Open Ruta
    ApExcel.Sheets(1).Select
    'msg.Rows = 1
    DE.Repuestos
    For x = 2 To 16384
        DE.rsRepuestos.AddNew
        DE.rsRepuestos.Fields("Marca").Value = ApExcel.Cells(x, 1).Formula & ""
        DE.rsRepuestos.Fields("Descripcion").Value = ApExcel.Cells(x, 4).Formula & ""
        DE.rsRepuestos.Fields("Supermedida").Value = ApExcel.Cells(x, 3).Formula & ""
        DE.rsRepuestos.Fields("Precio").Value = ApExcel.Cells(x, 5).Formula & ""
        DE.rsRepuestos.Update
        'msg.AddItem x - 1
        'msg.TextMatrix(msg.Rows - 1, 0) = ApExcel.Cells(x, 1).Formula & ""
        'msg.TextMatrix(msg.Rows - 1, 1) = ApExcel.Cells(x, 4).Formula & ""
        'msg.TextMatrix(msg.Rows - 1, 2) = ApExcel.Cells(x, 5).Formula & ""
        'msg.TextMatrix(msg.Rows - 1, 3) = ApExcel.Cells(x, 6).Formula & ""
    Next x
    DE.rsRepuestos.Close
    Set ApExcel = Nothing

End Sub

El for haslo correr desde la linea donde empieza hasta donde alla datos.

Con la sentencia ApExcel.Cells(x, 1).Formula, puede elegir que columnas exportar de excel, la x es la linea y el numero es la columna.

Salu2.