Exportar un informe a excel ?

Eva, ¿te has mirado estas dos direcciones?

http://www.clikear.com/webs4/juanma...aexcel.htm
http://www.clikear.com/webs4/juanma...aexcel.htm

aquí explico como exportar tablas o consultas (compiladas o de sentencias
sql) a libros de excel. Yo lo hago con DAO (por aquello de la costumbre)
pero se hace igual de fácil con ADO.

Una recomendación: tanto Excel como Word tienen una herramienta llamada
"Grabadora de macros", que lo que hace es tomar nota de los pasos que das
mientras graba y lo va escribiendo en código VBA. De esta manera es lo más
sencillo del mundo decir: ¿cómo haría esto o lo otro con código?. Pues nada,
le das a la "Grabadora de macros", haces lo que tengas que hacer, paras la
grabación, te vas al módulo donde se haya grabado la "macro"... et voilà, ya
tienes todo el código del mundo y seguro que un poco más.

Después, si quieres ejecutar estas cosas desde Access, hay que tener en
cuenta que todo el código de cualquier programa de Office, se ejecuta a
través del objeto Application, que representa al programa en sí mismo.
Entonces, sólo tienes que crear un objeto Application de la clase que vayas
a usar, por ejemplo:

Dim app As Excel.Application

Set app = New Excel.Application
o
Dim app As Word.Application

Set app = New Word.Application
o
Dim app As Access.Application

Set app = New Access.Application

o hacerlo de esta otra forma (para no tener que crear una referencia a la
librería correspondiente)

Dim app as object

Set app = CreateObject("Excel.Application")

...

una vez tengas ese objeto application, sólo tienes que adjudicarle las
acciones que has grabado con la grabadora de macros, por ejemplo, si la
grabadora de macros te ha puesto algo como

ActiveCell.FormulaR1C1 = "columna1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "columna2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "columna3"
Range("A3").Select
ActiveCell.FormulaR1C1 = "valor1"
Range("B3").Select
ActiveCell.FormulaR1C1 = "valor2"
Range("C3").Select
ActiveCell.FormulaR1C1 = "valor3"

tú, desde Access escribes esto otro, utilizando lo anterior:

Dim app As Object

Set app = CreateObject("Excel.application")
app.Visible = True

app.workbooks.Add

app.ActiveCell.FormulaR1C1 = "columna1"
app.Range("B1").Select
app.ActiveCell.FormulaR1C1 = "columna2"
app.Range("C1").Select
app.ActiveCell.FormulaR1C1 = "columna3"
app.Range("A3").Select
app.ActiveCell.FormulaR1C1 = "valor1"
app.Range("B3").Select
app.ActiveCell.FormulaR1C1 = "valor2"
app.Range("C3").Select
app.ActiveCell.FormulaR1C1 = "valor3"

Set app = Nothing

y ya verás que chulo queda :-)

joer! hoy se me ha soltado el dedo de tanto escribir.

Saludos desde Barcelona
Juan M. Afan de Ribera
<MVP Ms Access>
http://www.juanmafan.tk
http://www.clikear.com/webs4/juanmafan


"Eva Etxebeste" <eetxebesteARROBAhotmail.com> escribió en el mensaje
news:
Mostrar la cita

Jesús, ¿tienes algún ejemplo _creando_ el libro Excel desde Access? Estoy
busca que te busca, prueba que te prueba y no doy con la solución.

Un saludo
Eva Etxebeste
[MS MVP]
"Jesus" escribió en el mensaje
news:
> A ver si te vale esto. Si no, igual encuentras mas cosas en mi pagina:
> http://www.melodysoft.com/cgi-bin/f...=ATPACCESS
>
> Enviar datos a Excel y formatear celdas con OLE
>
> Utilizando automatización OLE en MS Access 2.0 podemos enviar

información
Mostrar la cita

a
> una hoja de cálculo de MS Excel , formatear celdas, imprimir hojas etc.
> Podemos iniciar una comunicación con la otra aplicación que sólo

podremos
Mostrar la cita

> utilizar en nuestro código (durante el proceso, el usuario no vería una
> tarea de MS Excel).
> A continuación veremos un ejemplo que nos permite enviar un dato a una
celda
> de una hoja de Excel 5.0 previamente creada, así como poner fuente Arial
> Negrita 12 a esa celda y alineación centrada a toda la columna.
> A esta función le pasaremos tres parámetros, el dato que queremos mandar

y
Mostrar la cita

> la fila y columna de la celda de la hoja de cálculo donde queremos
insertar
> la información.
> En un módulo nuevo tecleamos lo siguiente:
>
> Function ole_excel (x, i, j)
> Dim Hoja As Object
> 'Con la función GetObject iniciamos la comunicación con la
> 'hoja OLE.XLS de MS Excel 5.0.
> Set Hoja = GetObject("c:\ejemplo\ole.xls", "excel.sheet")
> 'Con la propiedad value del método Cells, podemos insertar
> 'un dato en una celda específica.
> Hoja.Cells(i, j).value = x
> 'Las tres líneas siguientes cambian las propiedades Nombre
> 'Negrita y tamaño de la fuente de una celda.
> Hoja.Cells(i, j).Font.Name = "Arial"
> Hoja.Cells(i, j).Font.Bold = True
> Hoja.Cells(i, j).Font.Size = 12
> 'Utilizando el método column podemos hacer referencia a una
> 'columna de una hoja, y con la propiedad HorizontalAlignment,
> 'podemos cambiar la alineación horizontal de la misma.
> Hoja.Columns(j).HorizontalAlignment = 3
> 'Las siguientes líneas guardan la hoja y cierran la comunicación
> 'con Excel. Para poder guardar la hoja es necesario activarla
> 'con la propiedad visible, aunque el usuario no verá ninguna
> 'sesión de Excel.
> Hoja.Application.windows("ole.xls").visible = True
> Hoja.Application.ActiveWorkbook.Save
> Hoja.Application.[Quit]
> End Function
>
> Supongamos que tenemos un formulario que contiene 3 campos donde

aparecen
Mostrar la cita

el
> dato que queremos insertar en la hoja de cálculo, la columna y la fila,
> llamados "Dato", "Fila" y "Columna" respectivamente, y queremos pulsar

un
Mostrar la cita

> botón que ejecute la función anterior, debemos teclear lo siguiente en

el
Mostrar la cita

> evento "Al hacer click" del botón:
>
>
> Dim y
> y=ole_excel([dato],[Fila],[Columna])
>
>

Por cierto, imagino que ese código debería funcionar así en Excel 5.0, pero
en Excel 2000 o superior no tira (en Excel 97, no lo se la verdad). Hay que
corregirlo un poco:

Function ole_excel (x, i, j)
Dim Libro As Object
Set Libro = GetObject("c:\ejemplo\ole.xls")

With Libro.ActiveSheet
.Cells(i, j).value = x
.Cells(i, j).Font.Name = "Arial"
.Cells(i, j).Font.Bold = True
.Cells(i, j).Font.Size = 12
.Columns(j).HorizontalAlignment = 3
.Application.windows("ole.xls").visible = True
.Application.ActiveWorkbook.Save
.Application.[Quit]
End With

Set Libro = Nothing

End Function


Saludos desde Barcelona
Juan M. Afan de Ribera
<MVP Ms Access>
http://www.juanmafan.tk
http://www.clikear.com/webs4/juanmafan


"Jesus" escribió en el mensaje
news:
Mostrar la cita

A ver si te vale esto. Si no, igual encuentras mas cosas en mi pagina:
http://www.melodysoft.com/cgi-bin/f...=ATPACCESS

Enviar datos a Excel y formatear celdas con OLE

Utilizando automatización OLE en MS Access 2.0 podemos enviar información

a
Mostrar la cita

una hoja de cálculo de MS Excel , formatear celdas, imprimir hojas etc.
Podemos iniciar una comunicación con la otra aplicación que sólo podremos
utilizar en nuestro código (durante el proceso, el usuario no vería una
tarea de MS Excel).
A continuación veremos un ejemplo que nos permite enviar un dato a una

celda
Mostrar la cita

de una hoja de Excel 5.0 previamente creada, así como poner fuente Arial
Negrita 12 a esa celda y alineación centrada a toda la columna.
A esta función le pasaremos tres parámetros, el dato que queremos mandar y
la fila y columna de la celda de la hoja de cálculo donde queremos

insertar
Mostrar la cita

la información.
En un módulo nuevo tecleamos lo siguiente:

Function ole_excel (x, i, j)
Dim Hoja As Object
'Con la función GetObject iniciamos la comunicación con la
'hoja OLE.XLS de MS Excel 5.0.
Set Hoja = GetObject("c:\ejemplo\ole.xls", "excel.sheet")
'Con la propiedad value del método Cells, podemos insertar
'un dato en una celda específica.
Hoja.Cells(i, j).value = x
'Las tres líneas siguientes cambian las propiedades Nombre
'Negrita y tamaño de la fuente de una celda.
Hoja.Cells(i, j).Font.Name = "Arial"
Hoja.Cells(i, j).Font.Bold = True
Hoja.Cells(i, j).Font.Size = 12
'Utilizando el método column podemos hacer referencia a una
'columna de una hoja, y con la propiedad HorizontalAlignment,
'podemos cambiar la alineación horizontal de la misma.
Hoja.Columns(j).HorizontalAlignment = 3
'Las siguientes líneas guardan la hoja y cierran la comunicación
'con Excel. Para poder guardar la hoja es necesario activarla
'con la propiedad visible, aunque el usuario no verá ninguna
'sesión de Excel.
Hoja.Application.windows("ole.xls").visible = True
Hoja.Application.ActiveWorkbook.Save
Hoja.Application.[Quit]
End Function

Supongamos que tenemos un formulario que contiene 3 campos donde aparecen

el
Mostrar la cita

dato que queremos insertar en la hoja de cálculo, la columna y la fila,
llamados "Dato", "Fila" y "Columna" respectivamente, y queremos pulsar un
botón que ejecute la función anterior, debemos teclear lo siguiente en el
evento "Al hacer click" del botón:


Dim y
y=ole_excel([dato],[Fila],[Columna])

Pues si, creo que tengo algun ejemplo. Donde te lo mando? o donde te lo
pongo?


"Eva Etxebeste" <eetxebesteARROBAhotmail.com> escribió en el mensaje
news:
Mostrar la cita

Jesús, ¿tienes algún ejemplo _creando_ el libro Excel desde Access? Estoy
busca que te busca, prueba que te prueba y no doy con la solución.

Un saludo
Eva Etxebeste
[MS MVP]
"Jesus" escribió en el mensaje
news:
> A ver si te vale esto. Si no, igual encuentras mas cosas en mi pagina:
> http://www.melodysoft.com/cgi-bin/f...=ATPACCESS
>
> Enviar datos a Excel y formatear celdas con OLE
>
> Utilizando automatización OLE en MS Access 2.0 podemos enviar

información
Mostrar la cita

a
> una hoja de cálculo de MS Excel , formatear celdas, imprimir hojas etc.
> Podemos iniciar una comunicación con la otra aplicación que sólo

podremos
Mostrar la cita

> utilizar en nuestro código (durante el proceso, el usuario no vería una
> tarea de MS Excel).
> A continuación veremos un ejemplo que nos permite enviar un dato a una
celda
> de una hoja de Excel 5.0 previamente creada, así como poner fuente Arial
> Negrita 12 a esa celda y alineación centrada a toda la columna.
> A esta función le pasaremos tres parámetros, el dato que queremos mandar

y
Mostrar la cita

> la fila y columna de la celda de la hoja de cálculo donde queremos
insertar
> la información.
> En un módulo nuevo tecleamos lo siguiente:
>
> Function ole_excel (x, i, j)
> Dim Hoja As Object
> 'Con la función GetObject iniciamos la comunicación con la
> 'hoja OLE.XLS de MS Excel 5.0.
> Set Hoja = GetObject("c:\ejemplo\ole.xls", "excel.sheet")
> 'Con la propiedad value del método Cells, podemos insertar
> 'un dato en una celda específica.
> Hoja.Cells(i, j).value = x
> 'Las tres líneas siguientes cambian las propiedades Nombre
> 'Negrita y tamaño de la fuente de una celda.
> Hoja.Cells(i, j).Font.Name = "Arial"
> Hoja.Cells(i, j).Font.Bold = True
> Hoja.Cells(i, j).Font.Size = 12
> 'Utilizando el método column podemos hacer referencia a una
> 'columna de una hoja, y con la propiedad HorizontalAlignment,
> 'podemos cambiar la alineación horizontal de la misma.
> Hoja.Columns(j).HorizontalAlignment = 3
> 'Las siguientes líneas guardan la hoja y cierran la comunicación
> 'con Excel. Para poder guardar la hoja es necesario activarla
> 'con la propiedad visible, aunque el usuario no verá ninguna
> 'sesión de Excel.
> Hoja.Application.windows("ole.xls").visible = True
> Hoja.Application.ActiveWorkbook.Save
> Hoja.Application.[Quit]
> End Function
>
> Supongamos que tenemos un formulario que contiene 3 campos donde

aparecen
Mostrar la cita

el
> dato que queremos insertar en la hoja de cálculo, la columna y la fila,
> llamados "Dato", "Fila" y "Columna" respectivamente, y queremos pulsar

un
Mostrar la cita

> botón que ejecute la función anterior, debemos teclear lo siguiente en

el
Mostrar la cita

> evento "Al hacer click" del botón:
>
>
> Dim y
> y=ole_excel([dato],[Fila],[Columna])
>
>

He mirado y lo tengo en el almacen. Bajatelo.

http://www.melodysoft.com/cgi-bin/f...=ATPACCESS



"Eva Etxebeste" <eetxebesteARROBAhotmail.com> escribió en el mensaje
news:
Mostrar la cita

Jesús, ¿tienes algún ejemplo _creando_ el libro Excel desde Access? Estoy
busca que te busca, prueba que te prueba y no doy con la solución.

Un saludo
Eva Etxebeste
[MS MVP]
"Jesus" escribió en el mensaje
news:
> A ver si te vale esto. Si no, igual encuentras mas cosas en mi pagina:
> http://www.melodysoft.com/cgi-bin/f...=ATPACCESS
>
> Enviar datos a Excel y formatear celdas con OLE
>
> Utilizando automatización OLE en MS Access 2.0 podemos enviar

información
Mostrar la cita

a
> una hoja de cálculo de MS Excel , formatear celdas, imprimir hojas etc.
> Podemos iniciar una comunicación con la otra aplicación que sólo

podremos
Mostrar la cita

> utilizar en nuestro código (durante el proceso, el usuario no vería una
> tarea de MS Excel).
> A continuación veremos un ejemplo que nos permite enviar un dato a una
celda
> de una hoja de Excel 5.0 previamente creada, así como poner fuente Arial
> Negrita 12 a esa celda y alineación centrada a toda la columna.
> A esta función le pasaremos tres parámetros, el dato que queremos mandar

y
Mostrar la cita

> la fila y columna de la celda de la hoja de cálculo donde queremos
insertar
> la información.
> En un módulo nuevo tecleamos lo siguiente:
>
> Function ole_excel (x, i, j)
> Dim Hoja As Object
> 'Con la función GetObject iniciamos la comunicación con la
> 'hoja OLE.XLS de MS Excel 5.0.
> Set Hoja = GetObject("c:\ejemplo\ole.xls", "excel.sheet")
> 'Con la propiedad value del método Cells, podemos insertar
> 'un dato en una celda específica.
> Hoja.Cells(i, j).value = x
> 'Las tres líneas siguientes cambian las propiedades Nombre
> 'Negrita y tamaño de la fuente de una celda.
> Hoja.Cells(i, j).Font.Name = "Arial"
> Hoja.Cells(i, j).Font.Bold = True
> Hoja.Cells(i, j).Font.Size = 12
> 'Utilizando el método column podemos hacer referencia a una
> 'columna de una hoja, y con la propiedad HorizontalAlignment,
> 'podemos cambiar la alineación horizontal de la misma.
> Hoja.Columns(j).HorizontalAlignment = 3
> 'Las siguientes líneas guardan la hoja y cierran la comunicación
> 'con Excel. Para poder guardar la hoja es necesario activarla
> 'con la propiedad visible, aunque el usuario no verá ninguna
> 'sesión de Excel.
> Hoja.Application.windows("ole.xls").visible = True
> Hoja.Application.ActiveWorkbook.Save
> Hoja.Application.[Quit]
> End Function
>
> Supongamos que tenemos un formulario que contiene 3 campos donde

aparecen
Mostrar la cita

el
> dato que queremos insertar en la hoja de cálculo, la columna y la fila,
> llamados "Dato", "Fila" y "Columna" respectivamente, y queremos pulsar

un
Mostrar la cita

> botón que ejecute la función anterior, debemos teclear lo siguiente en

el
Mostrar la cita

> evento "Al hacer click" del botón:
>
>
> Dim y
> y=ole_excel([dato],[Fila],[Columna])
>
>

Jesus, pero se requiere de usuario y password para entrar al almacen?

Victor Delgadillo MS-MVP Access
Miami, Florida

Mensajes a los grupos de noticia, asi todos nos beneficiamos!



"Jesus" wrote in message
news:
Mostrar la cita

He mirado y lo tengo en el almacen. Bajatelo.

http://www.melodysoft.com/cgi-bin/f...=ATPACCESS



"Eva Etxebeste" <eetxebesteARROBAhotmail.com> escribió en el mensaje
news:
> Jesús, ¿tienes algún ejemplo _creando_ el libro Excel desde Access?

Estoy
Mostrar la cita

> busca que te busca, prueba que te prueba y no doy con la solución.
>
> Un saludo
> Eva Etxebeste
> [MS MVP]
> "Jesus" escribió en el mensaje
> news:
> > A ver si te vale esto. Si no, igual encuentras mas cosas en mi pagina:
> > http://www.melodysoft.com/cgi-bin/f...=ATPACCESS
> >
> > Enviar datos a Excel y formatear celdas con OLE
> >
> > Utilizando automatización OLE en MS Access 2.0 podemos enviar
información
> a
> > una hoja de cálculo de MS Excel , formatear celdas, imprimir hojas

etc.
Mostrar la cita

> > Podemos iniciar una comunicación con la otra aplicación que sólo
podremos
> > utilizar en nuestro código (durante el proceso, el usuario no vería

una
Mostrar la cita

> > tarea de MS Excel).
> > A continuación veremos un ejemplo que nos permite enviar un dato a una
> celda
> > de una hoja de Excel 5.0 previamente creada, así como poner fuente

Arial
Mostrar la cita

> > Negrita 12 a esa celda y alineación centrada a toda la columna.
> > A esta función le pasaremos tres parámetros, el dato que queremos

mandar
Mostrar la cita

y
> > la fila y columna de la celda de la hoja de cálculo donde queremos
> insertar
> > la información.
> > En un módulo nuevo tecleamos lo siguiente:
> >
> > Function ole_excel (x, i, j)
> > Dim Hoja As Object
> > 'Con la función GetObject iniciamos la comunicación con la
> > 'hoja OLE.XLS de MS Excel 5.0.
> > Set Hoja = GetObject("c:\ejemplo\ole.xls", "excel.sheet")
> > 'Con la propiedad value del método Cells, podemos insertar
> > 'un dato en una celda específica.
> > Hoja.Cells(i, j).value = x
> > 'Las tres líneas siguientes cambian las propiedades Nombre
> > 'Negrita y tamaño de la fuente de una celda.
> > Hoja.Cells(i, j).Font.Name = "Arial"
> > Hoja.Cells(i, j).Font.Bold = True
> > Hoja.Cells(i, j).Font.Size = 12
> > 'Utilizando el método column podemos hacer referencia a una
> > 'columna de una hoja, y con la propiedad HorizontalAlignment,
> > 'podemos cambiar la alineación horizontal de la misma.
> > Hoja.Columns(j).HorizontalAlignment = 3
> > 'Las siguientes líneas guardan la hoja y cierran la comunicación
> > 'con Excel. Para poder guardar la hoja es necesario activarla
> > 'con la propiedad visible, aunque el usuario no verá ninguna
> > 'sesión de Excel.
> > Hoja.Application.windows("ole.xls").visible = True
> > Hoja.Application.ActiveWorkbook.Save
> > Hoja.Application.[Quit]
> > End Function
> >
> > Supongamos que tenemos un formulario que contiene 3 campos donde
aparecen
> el
> > dato que queremos insertar en la hoja de cálculo, la columna y la

fila,
Mostrar la cita

> > llamados "Dato", "Fila" y "Columna" respectivamente, y queremos pulsar
un
> > botón que ejecute la función anterior, debemos teclear lo siguiente en
el
> > evento "Al hacer click" del botón:
> >
> >
> > Dim y
> > y=ole_excel([dato],[Fila],[Columna])
> >
> >
>
>