Foros del Web » Programación para mayores de 30 ;) » Bases de Datos General »

Enlazar ficheros con Access

Estas en el tema de Enlazar ficheros con Access en el foro de Bases de Datos General en Foros del Web. Hola a Tod@s: Lo primero decir que no se si será el lugar para la pregunta, sino lo es, por favor, movedlo a donde corresponda, ...
  #1 (permalink)  
Antiguo 30/05/2005, 09:27
Avatar de mendietar  
Fecha de Ingreso: julio-2002
Ubicación: España
Mensajes: 46
Antigüedad: 21 años, 9 meses
Puntos: 0
Enlazar ficheros con Access

Hola a Tod@s:

Lo primero decir que no se si será el lugar para la pregunta, sino lo es, por favor, movedlo a donde corresponda, gracias.

Tengo un formulario de Access y quiero que, pulsando un boton, me abra ficheros de Word, Excel, etc que estén por el PC o por una Red Local.

Gracias
__________________
Asi empezó todo: El señor y la señora Dursley, que vivían en el número 4 de Privet Drive ...
  #2 (permalink)  
Antiguo 30/05/2005, 10:27
 
Fecha de Ingreso: mayo-2005
Mensajes: 12
Antigüedad: 19 años
Puntos: 0
En el cuadro de herramientas activa el boton ASISTENTE PARA CONTROLES y luego inserta en el formulario un BOTON DE COMANDO, automaticamente te aparecera un cuadro de dialogo y selecciona la CATEGORIA: APLICACION y tendras las aplicaciones con las que gustes enlazar.
Suerte!
  #3 (permalink)  
Antiguo 31/05/2005, 02:37
Avatar de mendietar  
Fecha de Ingreso: julio-2002
Ubicación: España
Mensajes: 46
Antigüedad: 21 años, 9 meses
Puntos: 0
Un nuevo Reto

Gracias CMSP. Lo cierto es que no completé el mensaje anterior.

Mi intención es que abra un determinado documento de Excel cuando pulse sobre un nodo de un TreeView. Para Word ya lo he conseguido, pero excell se me resiste.

Aqui os dejo el código que uso para Word a ver si os inspira:

Sub OpenWordDoc(strDocName As String)
Dim objApp As Object

Set objApp = CreateObject("Word.Application")
objApp.Visible = True
objApp.Documents.Open strDocName
End Sub


Con Excel uso el siguiente pero cuando lo ejecuto es como si lo abriese y cerrase muy rápido:

Sub OpenExcelDoc(strExcelName As String)
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
End Sub



UN SALUDO
__________________
Asi empezó todo: El señor y la señora Dursley, que vivían en el número 4 de Privet Drive ...
  #4 (permalink)  
Antiguo 31/05/2005, 03:40
Avatar de mendietar  
Fecha de Ingreso: julio-2002
Ubicación: España
Mensajes: 46
Antigüedad: 21 años, 9 meses
Puntos: 0
Bueno, sólo decirles que al final YA LO SOLUCIONE !!

El código que usé para abrir un documento de Excel es:

Sub Instancia_Con_New(strExcelName As String)
Dim Ins_Excel As New Excel.Application
Ins_Excel.workbooks.Open strExcelName
Ins_Excel.Visible = True
End Sub


Donde strExcelName es la URL del fichero que queremos abrir.

Muchas Gracias a todos y en especial a CMSP
__________________
Asi empezó todo: El señor y la señora Dursley, que vivían en el número 4 de Privet Drive ...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 19:11.