Visual Basic - acces a excel

Life is soft - evento anual de software empresarial
 
Vista:

acces a excel

Publicado por esteban (4 intervenciones) el 08/08/2002 19:03:06
Necesito tomar datos de una base de datos, pasarlos a excel y grabarlos en excel. Muchas gracias a el o los que puendan ayudarme.
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:acces a excel

Publicado por Manuel Pastrana (65 intervenciones) el 08/08/2002 20:34:21
Relativamente sencillo:

Tienes que habilitar dentro de las referencias de tu proyecto, las correspondientes a access y excel.

Access lo puedes acesar a través de instrucciones sql.

Excel lo accesas creando el objeto como lo ilustra el ejemplo:

' Generando objeto excel
Set oObjExcel = CreateObject("Excel.Application.10")
If oObjExcel Is Nothing Then
MsgBox "No se puede crear el reporte", vbExclamation, "Reportes" & AppVersion
Exit Sub
End If

' Abre el libro que contiene los formatos
Set MiLibro = oObjExcel.Workbooks.Open("C:\Riesgos\Resultados.xls")

'Pone visible o invisible el objeto excel
oObjExcel.Visible = True 'RESTABLECER A FALSE

'Selecciona la hoja de trabajo
Set x1Hoja = oObjExcel.Sheets("Pantalla")
x1Hoja.Select

Espero te sea de utilidad
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

RE:acces a excel

Publicado por Ghost (12 intervenciones) el 16/08/2002 01:38:32
Mira mi estimado amigo quieres pasar datos de access a excel... tambien lo ke puedes hacer es esto:
en referencias pon microsoft excel 8.0, i la de access
creas tu variable de tipo excel.application
asi
dim var1 as excel.application
dim var2 as workbook
dim ruta as string
set var1= new excel.application
ruta= app.path & "\nombre de tu archivo excel.xlS"
set var2=var1.workbooks.open(ruta)
' aki abres tu bd, tu tabla etcetere
'para mandar a eskribir esos datos a excel haz lo siguiente
var2.worksheet(1).range("la celda en la ke kieras").value=tabla("nombre del kampo")
' y eso es todo listo!!!

espero ke te sea de utilidad!!!
saludos a todos!!!
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