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 __
... abrir una serie de planos... de AutoCAD... nombres... guardados en... Acces, y escogidos bajo condiciones... en una aplicacion de Excel.
En el momento de abrir dichos archivos coloco el siguiente codigo 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 aplicacion AutoCAD
RetVal = Shell(StrAcad & StrFitxer, 1)
[/Codigo]
... se abre correctamente AutoCAD con el archivo definido en la variable "StrFitxer".
El problema es cuando intento abrir 20 planos (o mas) a traves de una rutina en una macro.
Con este codigo se ejecutan 20 sesiones (o mas) de AutoCAD, consumiendo todos los recursos del PC.
Hay alguna manera de abrir esos 20 planos (o mas) en una misma sesion de AutoCAD a traves de una macro de Office?

Preguntas similares