formulario base en excel vb6

[carnero]

holas
alguien sabe como puedo usar un formulario hecho en excel y llenarlo con datos que estan en un formulario hecho en VB6 (como nombre, direccion, ect).

espero me entiendanmuchas gracias

[erbuson]

Hola compañero, personalmente la pregunta no me queda muy clara o es que no la acabo de leer bien.

Dices un Formulario hecho en Excel, ¿ te refieres a un Form de VBA ? o te refieres a una Hoja de un libro Excel existente ?

Saludos

[carnero]

me refiero a una hoja.

por ejemplo un archivo excel con un formulario tipo de inscripcion a un club depeortivo.


LOS DATOS EN ROJO LOS QUIERO LLENAR SEGUN LOS DATOS QUE INGRESA EL USUARIO EN VISUAL BASIC 6

me entiendes?

[erbuson]

Hola, no se ve ninguna imagen.

[carnero]

Iniciado por erbuson

Hola, no se ve ninguna imagen.

imgen

[erbuson]

Lo siento pero no me permite acceder a visualizar la imagen, imagino que será porque está en alguna cuenta en la que tienes usuario y a ti te permite verla porque mantienes la conexión.

[Carlangueitor]

Más bien dice en la URL privada, supongo que por ahí habría que ver.

Saludos

[carnero]

bueno lo importante no es la foto !!

imaginen que el archivo excel es así:

Nombre: xxxx Dirección:xxxx fono: xxxxx


lo que necesito es llenar las xx con los datos que entregue la aplicacion de vb6.

espero me entiendan!!!

[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

[carnero]

entonces deberia:

1. abrir el archivo excel.
2. ubicar los datos en cada celda.
3. como los mando a vista de impresion?, para que el usuario lo imprima!
4. cerrar el archivo sin agregar los datos.

asi o no?


gracias!! como siempre apoyando!

[erbuson]

Hola, deberías probarlo, pero creo que la vista de impresión se consigue con:

xLibro.Sheets(1).PrintPreview

En cuando a lo Cerrar sin guardar, creo que debe ser algo mas complejo ya que no creo que puedas evitar que el usuario guarde.

Para evitar este problema en Word, lo que hice en una ocasión fue que el archivo que leia era un archivo .dot (plantilla) y así cuando el usuario podía guardar como .doc el documento sin machacar el original, otra opcion sería tener el archivo protegido contra escritura. Las plantillas en Excel son .xlt pero no las he utilizado nunca.

Saludos