Programación General > VBA

 Comunicacion De Visual Basic6 Con Excel

(1/1)

pola:
HOLA:
  Necesito que cuando se llame a Excel desde Visual Basic 6, el tiempo que transcurre en que se abra excel mantenga un mensaje diciendo "procesando informacion", una vez que excel se abra excel, este mensaje desaparesca.
 Si alguien me puede ayudar se lo agradeceria.
 Pola

Shiquilla:
Simplemente, todo el proceso que haces para generar el archivo Excel mételo en un formulario con la propiedad BorderStyle del formulario a '0 - None'.

La apariencia del formulario la haces como si fuera un mensaje y ya está. Cuando hayas terminado de rellenar la hoja Excel, lo pones visible y cierras el formulario.

Saludos,

Érika.

pola:
Hola Erika:
          L que pasa es que tengo un formulario donde presono un boton imprimir para abrir excel como lo hago entonces?
  Gravcias

Widark:
Hola Pola.

Ya probo poner un form con el mensaje apenas empieza el procedimiento y lo descarga al final del mismo ej:

Form1.Visible = True 'Form del mensaje
Procedimiento para exportar a excel
objetoExcel.visible = True
Unload Form1

Saludos.

Shiquilla:
Por ejemplo, tienes dos formularios, uno con el botón de imprimir y otro con la forma de mensaje.

En el formulario 'Mensaje' te creas una funcion para pasarle parametros y le añades un control Timer

Formulario de generacion de excel se llamarán frmGeneraInformeExcel


--- Código: Text ---Option ExplicitPrivate msVble1 AS StringPrivate msConsulta1 AS StringPrivate msloQueNecesitesParaGenerarElInforme AS Long Public msEditarPropiedades(vble1 AS String,consulta1 As String,loQueNecesitesParaGenerarElInforme AS Long)    'Asignar las vbles que le pasamos a vbles definidas a nivel de formulario    msVble1 = Vble1    msConsulta1 = Consulta1    msloQueNecesitesParaGenerarElInforme = loQueNecesitesParaGenerarElInforme    Timer1.Enabled = true    Me.Show vbModalEnd Sub Private Sub Timer1_Timer()       Timer1.Enabled = false       msGenerarInforme       'Cuando he terminado de generar el informe, cierro el formulario       Unload meEnd Sub Private Sub msGenerarInforme() 'Todo el codigo para generar la hoja excel  ' Al final ponemos Excel VisibleEnd Sub   
Desde el formulario que tienes el botón imprimir:


--- Código: Text ---Private Sub Command1_Click() 'Boton Imprimir        frmGeneraInformeExcel.msEditarPropiedades  vble1,consulta1,loQueNecesitesParaGenerarElInformeEnd Sub 
Si no lo entiendes te mando un ejemplo con un proyecto VB6. Espero que te sirva de ayuda.

Saludos,

Érika.

Navegación

[0] Índice de Mensajes