RUTA EN ACCESS

20/04/2010 - 16:47 por ANADENAVARRA | Informe spam
hHola de nuevo:

Alguien sabe por qué no accedo al archivo que especifico en un comando.

Tengo en un informe un botón desde el que quiero abrir una hoja de cálculo
excel, pongo Excel.exe C:\mis documentos etc etc etc, y no encuentra el
archivo.

=Qué error tengo en la instrucción ?

Gracias

Preguntas similare

Leer las respuestas

#6 Patxi Sanz
21/04/2010 - 18:12 | Informe spam
Entonces, habrá que ver cómo lo estás intentando abrir, porque a mí me
funciona tal y como te puse en el otro mensaje.

Un saludo,


Patxi Sanz
Tudela (NA)
http://www.pasa.es.tt/
Respuesta Responder a este mensaje
#7 ANADENAVARRA
21/04/2010 - 18:51 | Informe spam
Abro formulario, inserto comando, abrir aplicación, ruta: "excel.exe
c:\Documents_and_settings\etc_etc\etc_etc\archivo.xls
No lo encuentra.

La instrucción es la siguiente
Private Sub Comando23_Click()
On Error GoTo Err_Comando23_Click

Dim stappname As String
Dim stappname As objet
GetObject = ("c:\Documents and Settings\ANA MARÍA\Mis
documentos\Archivos ANA\Excel\mi fichero.xls")

Call Shell(stappname, 1)

Exit_Comando23_Click:
Exit Sub

Err_Comando23_Click:
MsgBox Err.Description
Resume Exit_Comando23_Click

¿Qué está mal?

Disculpad la insistencia, y gracias por leer mis súplicas.
Respuesta Responder a este mensaje
#8 Patxi Sanz
21/04/2010 - 20:30 | Informe spam
Si empezamos por lo que está bien, igual acabamos antes :-(

1.- Declaras 2 variables, de distinto tipo, pero con el mismo nombre: 2
variables distintas deben tener nombre distinto.

2.- Intentas usar GetObject para recoger la instancia de Excel, pero todavía
no la has abierto. Y además no la usas correctamente, ya que la ruta y
nombre del archivo debe ser un parámetro de la función, no una igualdad o
asignación.

3.- Usas Shell para intentar abrir lo que hay en la variable, pero no le has
dado ningún valor a esa variable.

Vamos a empezar poco a poco:

Lo primero, sólo una variable, y usar Shell para abrir el fichero:

Private Sub Comando23_Click()
On Error GoTo Err_Comando23_Click

Dim stappname As String

stappname = "c:\Documents and Settings\ANA MARÍA\Mis documentos\Archivos
ANA\Excel\mi fichero.xls"

Call Shell(stappname, 1)

Exit_Comando23_Click:
Exit Sub

Err_Comando23_Click:
MsgBox Err.Description
Resume Exit_Comando23_Click
End Sub

Lo segundo, o pregunta del millón, es: ¿necesitas automatizar Excel, o sólo
precisas abrir el archivo? Según tu respuesta, bastará el código anterior, o
tendremos que usar GetObject (o CreateObject), para recuperar la instancia
de Excel y trabajar con ella.

Un saludo,


Patxi Sanz
Tudela (NA)
http://www.pasa.es.tt/
Respuesta Responder a este mensaje
#9 ANADENAVARRA
23/04/2010 - 22:08 | Informe spam
bien por Patxi, mil gracias, consegui que fuera la ruta, tienes
razón que hay que poner comillas en cada parte de la ruta.

Gracias paisano
Respuesta Responder a este mensaje
#10 Patxi Sanz
25/04/2010 - 09:14 | Informe spam
De nada :-)

Un saludo,


Patxi Sanz
Tudela (NA)
http://www.pasa.es.tt/
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida