Visual Basic 6.0Llamar a Excel y llenarlo con datos de un...

Llamar a Excel y llenarlo con datos de un RecordSet

-

- Advertisment -

Con este código podrás llenar una hoja de Microsoft Excel usando un Recordset, lo que se hace es abrir el EXCEL, manipular las celdas como si fuera código VBA (Visual Basic for Aplication), es decir, como una MACRO, y luego grabarlo y cerrarlo. en el siguiente código ya asumo que tienes un Recordset con datos listos para ser pasado a la hoja de calculo.

Hacer referencia a Microsoft Excel Objetc

Private Sub LlenaExcel()
Dim prgExcel As Excel.Application
Set prgExcel = New Application
prgExcel.Workbooks.Add
prgExcel.Sheets(1).Name = "Prueba"
Dim i As Integer
Dim j As Integer
j = 1
Do While Not Rs.EOF
For i = 0 To Rs.Fields.Count - 1
prgExcel.Cells(j + 1, i + 1) = Rs.Fields(i).Value
Next

Rs.MoveNext
j = j + 1

Loop

For i = 1 To Rs.Fields.Count
prgExcel.Cells(1, i) = Rs.Fields(i - 1).Name
prgExcel.Cells(1, i).EntireColumn.AutoFit
Next

prgExcel.Cells(1, 1).Select
prgExcel.Selection.EntireRow.Insert
prgExcel.Visible = True
Rs.MoveFirst
'prgExcel.Quit
End Sub

Cuando haces la referencia puedes encontrar lo siguiente
Microsoft 8.00 Excel Objetc
Microsoft 11.00 Excel Objetc

Eso es según la versión que tienes Instalado en tu PC

Ahora que si no quieres Hacer Referencias, puedes Crear el Objeto con el CreateObject, pero cuando codifique al poner el “.” no te va a mostrar sus propiedades

Dim prgExcel as variant

Private Sub LlenaExcel()
Set prgExcel = CreateObject("Excel.Application")

prgExcel.Workbooks.Add
prgExcel.Sheets(1).Name = "Prueba"
..............
..............
end sub

En lo personal yo hago referencia al Objeto, hago el programa, luego le quito la referencia y creo el Objeto con CreateObject

DEJA UNA RESPUESTA

Por favor ingrese su comentario!
Por favor ingrese su nombre aquí

Últimas Noticias

WordPress – Crear BBCODE o shortcode personalizados

Los BBCODES o "shortcode" son esas funciones que tiene Wordpress y que se usan con corchetes, que generalmente te...

WordPress – Enviar título de la página o campo oculto, en Contact Form 7

Problema: Tengo un cliente que tiene una web con muchos productos y en todas sus páginas usa el mismo formulario...

Laravel – Modo Debug según IP

En algunos casos se necesita el modo DEBUG según IP, por ejemplo cuando estamos en producción y tenemos un...

Reemplazar URLs cuando cambias de dominio en WordPress (también de http a https)

Cuando haces un cambio de dominio por alguna razón (antes te llamabas www.viejodominio.com y ahora www.nuevodominio.com) si bien ya...
- Advertisement -

Como ejecutar comandos Artisan desde consola Git

Voy a suponer que ya tienen instalado el composer y php de manera global y un proyecto en Laravel....

Ejecutar Composer y/o PHP de manera Global en Windows

Si por alguna razón al instalar Composer este no funciona desde cualquier ruta estando en linea de comandos (ya...

Debe leer

- Advertisement -

También podría gustarteRELACIONADA
Recomendada para usted