Cómo escribir a Excel desde Vb6

Visual Basic 6 es el lenguaje de programación y entorno de desarrollo integrado implementado por Microsoft . El lenguaje es popular por su desarrollo rápido de aplicaciones y capacidades de automatización . Programadores VB6 son capaces de programar y automatizar una serie de programas de Microsoft , como Microsoft Office y , en particular, Microsoft Excel. Los programadores son capaces de objetos de referencia relativos a Excel en su código de Visual Basic 6 , que les permite automatizar , leer y escribir en el programa. Escribir código VB6 tiene algún conocimiento de la sintaxis de programación , una vez que el conocimiento se adquiere , escribiendo a Excel en el código VB6 tarda sólo unos pasos y las líneas de código a seguir. Instrucciones
1

Abra Visual Basic 6 y elija "EXE estándar " de la nueva lista de proyectos.
2

Ir a la barra de menú superior , haga clic en "Proyecto" y luego haga clic en " Agregar módulo . " Esto añadirá un módulo de código estándar en su proyecto de VB6 .
3

Escriba o copie y pegue el código siguiente en el módulo , de acuerdo con Mike Rosenblum de Xtreme VB Talk.
< p> Sub WriteToExcel ()

oExcel As Excel.Application '< - *** Referencia a Excel objeto Application ***

OWB As Excel.Workbook ' < - - *** Referencia a objeto Excel Workbook ***

oWS Dim Como Excel.Worksheet '< - *** Referencia a objeto de hoja de Excel ***

Establecer oExcel = Nuevo Excel.Application

oExcel.Visible = True

oRng1 As Excel.Range

oRng2 Dim As Excel.Range

Set OWB = oExcel.Workbooks . Añadir

Set oWS = oWB.Worksheets ( " Sheet1" )

Set oRng1 = oWS.Range ("A1 " )

Set oRng2 oWS.Range = ( " B2 : E5 " )

oRng1.Value =" Hello World "

oRng1.Copy Call (Destination : = oRng2 )

oWB.SaveAs (" Hello World.xls ") '< - Resultados guardan aquí

Limpieza:

oWS Set = Nothing

Si No OWB es nada entonces oWB.Close

. Set OWB = Nothing

oExcel.Quit

oExcel Set = Nothing End Sub

Las referencias de objetos de código de Microsoft Excel y luego utiliza esa conexión para abrir Microsoft Excel , a continuación, escribir la palabra " Hello World " en la celda A1 y ​​el rango B2 : E5 . A continuación, guarda el documento como " Hola World.xls " en su computadora y se procede a cerrar Microsoft Excel.
4

Press "F5 " para ejecutar el programa.