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, incluyendo Microsoft Office y, en particular, Microsoft Excel. Los programadores son capaces de hacer referencia a objetos relacionados con Excel en su código de Visual Basic 6, lo que les permite automatizar, leer y escribir en el programa. Escribir código VB6 lleva algún conocimiento de su sintaxis de programación; una vez que el conocimiento se adquiere, escribiendo a Excel en su código de Visual Basic 6 tarda sólo unos pasos y líneas de código a seguir.

Instrucciones

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

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

3 Escribe o copia y pega el código siguiente en el módulo, de acuerdo con Mike Rosenblum de Xtreme VB Talk.

Sub WriteToExcel ()

Dim oExcel As Excel.Application ' <-- *** Reference to Excel Application object***

Dim CONTRATÉ Como Excel.Workbook '& lt; - *** Referencia a objeto de libro de Excel ***

OWS dévil como Excel.Worksheet '& lt; - *** Referencia a objeto de hoja de Excel ***

Establecer oExcel = Nueva Excel.Application

oExcel.Visible = True

Dim oRng1 Como Excel.Range

Dim oRng2 Como Excel.Range

Establecer CONTRATÉ = oExcel.Workbooks.Add

Establecer OWS = oWB.Worksheets ( "Sheet1")

Establecer oRng1 = oWS.Range ( "A1")

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

oRng1.Value = "Hello World"

Llame oRng1.Copy (Destino: = oRng2)

oWB.SaveAs ( "World.xls Hola") '& lt; - Los resultados se guardan aquí.

Limpiar:

Set oWS = Nothing

Si no es nada CONTRATÉ Entonces oWB.Close

Establecer CONTRATÉ = Nada

oExcel.Quit

Establecer oExcel = Nada

End Sub

El código hace referencia a objetos 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, se guarda el documento como "Hola World.xls" en su ordenador y procede a cerrar Microsoft Excel.

4 Pulse la tecla "F5" para ejecutar el programa.