| nestor |  |
|
2007-11-02 22:12 - Respuestas: 37 - Tema nº: 2478159
Listo ebolo ya active la opcion Microsoft Activex Data Objects 2.7 Library. y ya no me sale ningun error...
Pero ahora como hago para que me muestre en un informe diseñado en access todos los valores o totales (son 4 o 5 ) que estan en la hoja de excel ?
Gracias... | |
|
|
| ebolo |  |
|
Re: Combinar Access y Excel - 2007-11-03 09:15 - Respuesta 12
pero se supone que esos valores los llevamos a la bd de access no?.
Me pierdo. Vamos a ver, el informe de access lo vas sacar sólo con datos de excel ó vas a combinar valores tanto de excel como de access. Porque si lo que estamos haciendo es tener actualizada la bd siempre no entiendo bien el planteamiento.
Ahora si todos los datos están en excel y sólo vas a usar el informe de access para mostrar los datos, se podría haber hecho otra cosa.
Intenta explicar un poco como está todo porque si no no me aclaro.
un saludo.
| |
|
|
| nestor | |
|
Re: Combinar Access y Excel - 2007-11-04 00:27 - Respuesta 13
Hay 2 datos o valores que los saco de la Base de Datos de Access los cuales los muestro en un informe(La BD que ya nos funciona) y Ahora los datos que están en excel necesitaria utilizar el informe de access para mostrarlos.
Espero me hayas entendido... Gracias | |
|
|
| ebolo | |
|
Re: Combinar Access y Excel - 2007-11-04 19:06 - Respuesta 14
Hola...;
En el informe de access que diseñes, a parte de los cuadro de texto para los datos de la tabla, debes deponer tantos como datos de celda de excel quieras (xej: textoexcel1, textoexcel2,...); Suponemos que tenemos 2.
Dim objWorkBook As Object
Dim xls As Object
Dim txtlibro As String
txtlibro = "C:\ruta\libro.xls"
Set xls = CreateObject("Excel.Application")
Set objWorkBook = xls.Workbooks.Open(txtlibro)
'Si por ejemplo quieres poner el texto de la celda A10
Me.textoexcel1=objWorkBook.worksheets("nombredelahoja").Range("a10")
'Si por ejemplo quieres poner el texto de la celda B10
Me.textoexcel2=objWorkBook.worksheets("nombredelahoja").Range("B10")
'Si quisieras escribir algo en una celda de excel, por ejemplo poner la fecha y hora en la que sacas el
'informe al lado de las celdas de excel en las que miras el valor. Vamos a escribir en la celda C10.
objWorkBook.worksheets("nombredelahoja").Range("C10")=Now
Este código se debería colocar en función donde pongas los cuadros de texto.
Un saludo.
| |
|
|
| ebolo | |
|
Re: Combinar Access y Excel - 2007-11-04 19:53 - Respuesta 15
Respondiendote anteriormente se me ha ocurrido una cosa que queda bien y no había hecho nunca, que es insertar comentarios a una celda mediante código.
Eso puede resultar práctico para marcar en un momento determinado una celda y ponerle lo que quieras como comentario.
El método es muy fácil y se hace de la siguiente forma, siguiendo el ejemplo anterior:
Private Sub CommandButton1_Click()
On Error GoTo Err_CmdB1
objWorkBook.worksheets("nombredelahoja").Range("A10").Comment.Delete
aquí:
objWorkBook.worksheets("nombredelahoja").Range("A10").AddComment "Current Sales"
objWorkBook.worksheets("nombredelahoja").Range("A10").Comment.Visible = False
salir:
Exit Sub
Err_CmdB1:
If Err.Number = 91 Then GoTo aquí
If Err.Number = 94 Then GoTo salir
MsgBox Err.Number & " " & Err.Des-c-r-i-p-tion
End Sub
Lo he puesto en un botón de comando, pero lo puedes adaptar tu a lo anterior.
Como ves hay que hace un control de errores para evitarlos.
Un saludo. | |
|
|
|
