| nestor |  |
|
2007-11-07 20:27 - Respuestas: 37 - Tema nº: 2478159
Hola...
Coloque el codigo asi:
Private Sub Report_Open(Cancel As Integer)
Dim objWorkBook As Object
Dim xls As Object
Dim txtlibro As String
txtlibro = "C:\Documents and Settings\compucopiasok\Mis documentos\BD COMPUCOPIAS\foto.xls"
Set xls = CreateObject("Excel.Application")
Set objWorkBook = xls.Workbooks.Open(txtlibro)
'Si por ejemplo quieres poner el texto de la celda A10
Me.Texto28 = objWorkBook.worksheets("Informe Noviembre").Range("AB36")
'Si por ejemplo quieres poner el texto de la celda B10
Me.Texto26 = objWorkBook.worksheets("Informe Noviembre").Range("V36")
End Sub
Pero me sale el siguiente error:
Microsoft Visual Basic
Error de compilación
No se encontro el metodo o dato miembro
Aceptar Ayuda
Los valores que estan en las celdas AB36 Y V36 en la hoja de Excel estan como tipo: moneda
Gracias...
| |
|
|
| ebolo |  |
|
Re: Combinar Access y Excel - 2007-11-07 20:33 - Respuesta 17
¿en que línea te marca el error? | |
|
|
| nestor | |
|
Re: Combinar Access y Excel - 2007-11-07 20:39 - Respuesta 18
En esta linea:
Me.Texto28 = objWorkBook.worksheets("Informe Noviembre").Range("AB36")
y me selecciona la palabra Texto28 | |
|
|
| ebolo | |
|
Re: Combinar Access y Excel - 2007-11-07 20:50 - Respuesta 19
El código no lo pongas en el evento 'Al abrir el informe' si no en otro, por ejemplo 'Al dar formato' del detalle si los cuadros de texto están en el detalle.
Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
Dim objWorkBook As Object
Dim xls As Object
Dim txtlibro As String
txtlibro = "C:\Documents and Settings\Miguel\Mis documentos\Libro2.xls"
'txtlibro = "C:\Documents and Settings\compucopiasok\Mis documentos\BD COMPUCOPIAS\foto.xls"
Set xls = CreateObject("Excel.Application")
Set objWorkBook = xls.Workbooks.Open(txtlibro)
'Si por ejemplo quieres poner el texto de la celda A10
Me.Texto28 = objWorkBook.worksheets("Informe Noviembre").Range("AB36")
'Si por ejemplo quieres poner el texto de la celda B10
Me.Texto26 = objWorkBook.worksheets("Informe Noviembre").Range("V36")
objWorkBook.Close
Set xls = Nothing
Set objWorkBook = Nothing
End Sub
Casi seguro que el error te dé por estar en el evento REport_open; es fácil también que se te haya quedado una instancia de excel abierta, aunque no tengas el excel abierto porque faltaba cerrar el Objeto 'objWorkBook'; míralo en el administrador de tarea - Procesos y termina la tarea con el botón del administrador de tareas.
| |
|
|
| nestor | |
|
Re: Combinar Access y Excel - 2007-11-09 16:53 - Respuesta 20
Hola ebolo, me funciono perfecto pero 2 inconvenientes:.
1. es que se me demora unos 8 segundos en generarme el informe como puedo hacer para que lo genera un poco mas rapido ?
2. Los datos los saco del archivo de excel llamado foto.xls, pero tambien necesito sacar datos de otro archivo llamado play.xls, Intente hacerlo siguiendo el codigo que me enviaste pero entonces me muestra los datos del archivo de play.xls y los de foto.xls no...... como hago para que me los muestre en el mismo informe ?
Gracias por la ayuda | |
|
|
|
