formulario base en excel vb6

[erbuson]

Hola, si te entiendo bien lo que quieres es pasar tus datos a una Hoja Excel aunque por lo que indicas tiene una extructura un poco especial:

(1,1)Nombre: (1,2)xxxx (1,3)Dirección: (1,4)xxxx (1,5)fono: (1,6)xxxxx
(2,1)Nombre: (2,2)xxxx (2,3)Dirección: (2,4)xxxx (2,5)fono: (2,6)xxxxx
(3,1)Nombre: (3,2)xxxx (3,3)Dirección: (3,4)xxxx (3,5)fono: (3,6)xxxxx
(4,1)Nombre: (4,2)xxxx (4,3)Dirección: (4,4)xxxx (4,5)fono: (4,6)xxxxx

Si es así lo que debes saber es que la mejor manera desde VB es tratar con la Matriz de Celdas, o sea Cells(Fila, Columna) teniendo en cuenta que la primera es 1,1 tal como te pongo en el ejemplo

Código vb:

Option Explicit
 
    ' Importante : Agregar la referencia a Micorosft Excel xx object library
 
    'Variable de tipo Aplicación de Excel
    Dim objExcel As Excel.Application
 
    'Una variable de tipo Libro de Excel
    Dim xLibro As Excel.Workbook
    Dim Col As Integer, Fila As Integer
 
    'creamos un nuevo objeto excel
    Set objExcel = New Excel.Application
 
    'Método open para abrir el archivo .xls
    Set xLibro = objExcel.Workbooks.Open(App.Path + "\archivo.xls")
 
    'Bucle como te convenga
 
    xLibro.Sheets(1).Cells(Fila, 2) = VariableNombre
    xLibro.Sheets(1).Cells(Fila, 4) = VariableDireccion
    xLibro.Sheets(1).Cells(Fila, 6) = VariableFono
 
    'Fin del Bucle
 
    'Hacemos el Excel Visible para que el usuario pueda decidir si guardarlo
    objExcel.Visible = True
 
    'Eliminamos los objetos si ya no los usamos
    Set objExcel = Nothing
    Set xLibro = Nothing
 

Esto sería un poco la idea, si es lo que estas preguntando, espero te sirva, el ejemplo lo he sacado de Recursos Visual Basic - Excel, donde tienes mas ejemplos.

Saludos