SoloCodigo

Hola muchachos y muchachas
Mi problema es el siguiente:

Tengo una aplicación en VB que interactua con una base de datos en Acces y unos archivos en excel. Hago conexiones tanto a los archivos en exel como a Acces. y a excel lo hago mediante un objeto adodc.

En el servidor coloco la BD en acces, los archivos de excel y otros archivos que necesito.

En la computadora cliente instalo solamente la aplicación en VB
pero al querer ejecutar la aplicación desde el cliente me dice que no puede crear el objeto ex, entonces no sé si es porque no tienen un exel avanzado los clientes o porque no tienen acces o por qué razón es que me da este error
Si a alguien le ha pasado algo parecido o reconoce el error por favor ayúdenme.
Gracias  

Es bien sencillito ahi te va el codigo:

Dim mac As New Access.Application //mac es el nombre de la variable para este
//ejemplo

mac.OpenCurrentDatabase ("Direccion\nombre de la base.mdb") // aqui abres la  
//base de datos si tiene password solo le quitas los parentesis y le pones , ,
//password.
mac.DoCmd.RunMacro "Nombre del macro" //asi corres el macro
mac.CloseCurrentDatabase // aqui la cierras

Muchas gracias para los que se hayan detenido a leer el problema, ya lo solucioné, el código estaba bien, lo que pasa es que se me había olvidado colocar la referencia de Acces  
Si alguien tenía algún problema parecido espero que pueda usar el código que puse en la pregunta y colocar no se olviden de colocar la referencia.

Hola amigos, yo he trabajado con excel y con acces por separado, pero ahora debo diseñar un programita que tome una hoja de excel y la convierta en una tabla de una base de datos en acces. Solo se me ocurre leyendo campo por campo en el archivo excel y escribiéndolo campo por campo en acces.
Me imagino que debe haber alguna manera más fácil, ya que desde la base de datos de acces si se puede importar un excel.
El caso es que lo debo hacer desde visual basic y no sé si hay alguna sentencia sencilla.
Si conocen alguna o han trabajado en algo parecido, les agradecería mucho que compartieran conmigo su experiencia.
De antemano muchas gracias.

Si lo que quieres hacer es leer o escribir en un archivo que ya existe puedes hacerlo mediante esta forma:
Workbooks.Open App.Path & "\ArchivoExcel.xls"
Workbooks("ArchivoExcel.xls").Activate
Valolor1 = Cells(2, 1).Value
'o viceversa
Workbooks.Close 'Para cerrarlo

Si es un reporte mira  el ejemplo que subí, es uno que me dieron en este foro me sirvió mucho, complementa esto con la generación de macros en excel y podrás hacer cualquier cosa

Hola Jeremy, yo tengo el mismo problema.
Intenté todo lo que recomendó Sujey y no me sirvió
Si hayas la forma de hacerlo por favor súla al foro.

Hola Sujey, tengo el mismo problema que Jeremy. No creo que lo que él quiere es que se le cierre el archivo de excel. Sino el problema es que aunque se cierre no se puede abrir nuevamente un excel hasta que se haya cerrado la aplicación que hizo la conección. Con el ejemplo que mandaste se cirra el excel, pero el problema persiste.
Si tienes otra idea te agradeceremos tu ayuda

Hola lo que debes reajustar en la sentencia squl cuando quieres poner variables es:

sql1="select * from archv where factura=' " & text1.text & "'"

Gracias por tu ayuda Frangel

Tengo algunas dudas:
Me imagino que lo que haces es poner en una variable el valor del conteo y luego colocar el resultado en el Data Report

Si es así, no entiendo como le dices que campo es el que quieres que te cuente y en que cirscunstancias de condición. Por ciento quién es rsA y luego como le dices en que data report debe ir a escribir



Dim mtotal As String
mtotal = "Total de Registros .: " & rsA.RecordCount

With .Sections("TOTALES").Controls
For I = 1 To 2
If TypeOf .Item(I) Is RptLabel Then
.Item(2).Caption = mtotal
End If
Next I
End With

Hola a todos, alguien ha trabajado en Data Report que me pueda ayudar?
Necesito hacer un reporte en Data Report que me muestre algo como:
Nombre_Departamento Numero_Empleados y en la tabla tengo el detalle de departamento, empleado, pero no sé como ponerlo en Data Report
en la sentencia SQl probé: select Nombre_Departamento, Count(Codigo_Empleado) as Numero_Empleados from DETALLEDEPARTAMENTOS
pero no me sirvió, probé también en vez de count con rcnt y tampoco.
Si alguien tiene una pista por favor ayúdenme.

Hola Andy no sé si entendí bien lo que quieres hacer, pero te mando un código que me pasaron para exportar de acces a excel tal vez te sirva. si quires modificar una a una las celdas de un excel ya hecho también puedes hacerlo mediante:
//primero abres el archivo en exel
// el App.Path te devuelve la dirección del directorio en el que está la aplicación
//VentAct.xls es el nombre de tu excel allí lo debes cambiar
Workbooks.Open App.Path & "\VentAct.xls"
Workbooks("VentAct.xls").Activate
//Esta sentencia te devuelve lo que tiene la celda si se lo asignas a una variable
//pero si a esta sentencia tu le asignas un valor estarías escribiendo en ella
 Cells(fila, columna).Value
 //Para cerrar el archivo:
Workbooks.Close

Con estas cosas que te mando creo que aunque sea algo a pata puedes hacer lo que buscas

Te recomiendo que uses funciones de conexión. Si ya puedes recuperar un campo de una BD y colocarlo en una caja de texto. La única diferencia para colocarlo en un combo box es hacerlo mediante la propiedad AddITem  y el for te sirve para recorrer toda la tabla mientras no llegue al final.
Para que se te cargue al principio debes estar conectado en el evento "load" del formulario que estás cargando.  Dentro de ese evento debes colocar la inicialización del combo box. Si tienes que actualizarlo después usa clear y repite el proceso del for.

PDT Si tienes problemas para hacer conexion con tu BD avisa

Gracias, mil gracias a ambos me ayudaron muchísimo.
Por cierto José,    ya puse a trabajar mis neuronas