MACRO: ¿Cómo abrir archivos en otras aplicaciones?

16/08/2006 - 12:56 por Manolo | Informe spam
Dese abrir una serie de plànos, guardados en varios directorios, de AutoCAD,
cuyos nombres están guardados en una base de Acces, y escogidos bajo
condiciones dadas en una aplicación de Excel.
En el momento de abrir dichos archivos coloco el siguiente código en una
macro de Exel:

[Codigo]
Dim StrAcad, StrFitxer As String

StrFitxer = "W:\Planos\Miplano.DWG" 'Ruta del plano
StrAcad = "C:\Archivos de programa\AutoCAD 2005\acad.exe /nologo" 'Ruta de
la aplicación AutoCAD
RetVal = Shell(StrAcad & StrFitxer, 1)
[/Codigo]

Bien, así se abre correctamente AutoCAD con el archivo definido en la
variable "StrFitxer".
El problema es cuando intento abrir 20 planos (o más) a través de una rutina
en una macro. Con este código se ejecutan 20 sesiones (o más) de AutoCAD,
consumiendo todos los recursos del PC.

Mi pregunta:
¿Hay alguna manera de abrir esos 20 planos (o más) en una misma sesión de
AutoCAD a través de una macro de Office?
 

Leer las respuestas

#1 Héctor Miguel
17/08/2006 - 05:28 | Informe spam
hola, Manolo !

[creo que] mientras estes incluyendo ruta y nombre de la aplicacion correspondiente... obtendras una sesion por cada 'llamada' -?-
prueba a 'dejar que el sistema se encargue' de la aplicacion correspondiente [p.e.]

op1: si hablamos de excel, prueba ejecutando un hipervinculo -solo- al archivo que deseas abrir
ThisWorkbook.FollowHyperlink StrFitxer

op2: si necesitas que se ejecute desde otra aplicacion, prueba con un 'Shell' [ojo con las comillas dobles] +/- como sigue:
Shell Environ("comspec") & " /c """ & StrFitxer & """", vbHide

ojo: no tengo instalado autocad [asi que], si lo anterior no funciona como esperas... comentas ?
saludos,
hector.

__ la consulta original __
Mostrar la cita

Preguntas similares