Visual Basic para Aplicaciones - Por favor ayuda con EXEL desde VB

Life is soft - evento anual de software empresarial
 
Vista:

Por favor ayuda con EXEL desde VB

Publicado por Carlos (2 intervenciones) el 19/10/2001 17:03:11
Mi problema es que tengo que crear un archivo exel cargarle datos y luego almacenarlo (incluyendole el cambio de nombre), todo desde visual basic, cualquier ayuda que me puedan mandar la agradecería.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Por favor ayuda con EXEL desde VB

Publicado por Mauricio Baeza (262 intervenciones) el 26/10/2001 08:39:08
Option Explicit

Private Sub cmdEnviarExcel_Click()
'Si te es posible, usa variables locales
'Declaraciones Generales
'Para usar este tipo de declaracion, tienes que hacer
'como ya sabras, una referencia previa, a Excel
'pero si lo haces a travez del objeto, no necesitas hacerlo
' Public AppExcel As Excel.Application
' Public Libro As Excel.Workbook
' Public Hoja As Excel.Worksheet

'Usamos el acceso con variables objeto, de esta forma
'hay que tener mucho cuidado con el codigo, pero me parece
'mas transparente y mas limpia que hacer la referencia a Excel
'si bien esto consume un poco más de recursos
Dim objExcel As Object
Dim co1 As Integer

'Estas constantes son las usadas por Excel
Const xlCenter As Integer = -4108
Const xlSolid As Integer = 1

'Creo una instancia de Excel
'de esta forma tengo que agregar una hoja
'Set objExcel = CreateObject("excel.application")
'De esta otra forma la creo directamente
Set objExcel = CreateObject("Excel.Sheet")

'Encabezado
With objExcel.ActiveSheet
.Cells(1, 1).Value = "LEGAJO"
.Cells(1, 2).Value = "APELLIDO Y NOMBRE"
.Cells(1, 3).Value = "GRUPO"
.Cells(1, 4).Value = "DESCRIPCION"
.Cells(1, 5).Value = "TURNO"
.Cells(1, 6).Value = "HS"
.Cells(1, 7).Value = "FECHA"
.Cells(1, 8).Value = "SUPERVISOR"
.Rows("1:1").RowHeight = 20.25
With .Range("A1:H1")
.Font.Bold = True %
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar