Explorador de Windows

Héctor Miguel

siguiendo tu idea intente abrir un archivo ".doc" con el shell asi :

Sub con_word() 'no funciona?
MiRuta = ThisWorkbook.Path & "\prueba.doc"
Shell "winword.exe " & MiRuta
End Sub

pero me manda un mensaje:(aunque si me abre word,perono el archivo)
"Word detecto un erro al intentar abrir el archivo,compruebe los
permisos del documento o la unidad"
-al ahcer cilck en el boton de ayuda dice:
"1.-no se encontro el archivo aue ha intentado abrir"
"2.-puede que falte o se encuentre en una ubicacion diferente.

ahora bien el mismo archivo lo abri con esto sin problemas:

Sub Con_Explorer()
MiRuta = ThisWorkbook.Path & "\prueba.doc"
Shell "explorer.exe " & MiRuta
End Sub

pero pensando que la plicacion adecuda es Word intente con
"winword.exe".
por otra parte no tengo idea para verificar los "famosos" permisos

gracias anticipadas :-)

hola, ?

1) [hasta donde se]... cuando usas el 'Shell' [que es una ventana de comandos D.O.S.]
si la ruta 'completa' al archivo contiene espacios es necesario 'delimitarla' por comillas dobles
lo cual, si es a traves de vba, a veces se convierte en dobles/triples/... comillas dobles :))

2) si existe la posibilidad de que el 'ThisWorkbook.Path' y/o el nombre 'real' del archivo contenga espacios...
prueba a dejar preparadas las comillas dobles inmediatamente despues del ejecutable [winword.exe] +/- como sigue:
Sub Con_Shell()
Shell "winword.exe """ & ThisWorkbook.Path & "\prueba.doc""", vbNormalFocus
End Sub

=> el argumento final del shell [vbNormalFocus o su valor constante de 1]
es para que la aplicacion se convierta en la ventana activa de windows ;)

3) o puedes 'optar' por la forma 'clasica' de interactuar con otras aplicaciones por vba [p.e.] +/- como sigue:
Sub Con_word()
With CreateObject("Word.Application")
.Documents.Open ThisWorkbook.Path & "\prueba.doc"
.Visible = True
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __

siguiendo tu idea intente abrir un archivo ".doc" con el shell asi :
Sub con_word() 'no funciona?
MiRuta = ThisWorkbook.Path & "\prueba.doc"
Shell "winword.exe " & MiRuta
End Sub
pero me manda un mensaje:(aunque si me abre word, pero no el archivo)
"Word detecto un erro al intentar abrir el archivo,compruebe los permisos del documento o la unidad"
-al ahcer cilck en el boton de ayuda dice:
"1.-no se encontro el archivo aue ha intentado abrir"
"2.-puede que falte o se encuentre en una ubicacion diferente.
ahora bien el mismo archivo lo abri con esto sin problemas:
Sub Con_Explorer()
MiRuta = ThisWorkbook.Path & "\prueba.doc"
Shell "explorer.exe " & MiRuta
End Sub
pero pensando que la plicacion adecuda es Word intente con "winword.exe".
por otra parte no tengo idea para verificar los "famosos" permisos

1000 gracias Héctor Miguel el asunto efectivamente estaba en las
comillas
en cuanto a tu otra sugerencia ya la conocia pero queria tener otra
forma de abrir los archivos,asi ya tengo 4 opciones distintas :-)
1.-el tradicional
2.-con el shell (que amablemente me explicaste)
3.-con el explorer
4.-con followhyperlink

salu2

ST