[Excel][VB6] Ejecutar archivo Excel.Solucionado

Iniciado por FranciskoAsdf, 15 Julio 2014, 01:25 AM

0 Miembros y 1 Visitante están viendo este tema.

FranciskoAsdf

Hola! :D, he vuelto, con mas preguntas xD.

Directo al grano a ver si alguien me puede ayudar T_T,

Tengo un formulario en donde proceso un archivo Excel (esto me sabe a Déjà vu xD), todo bien, pero quiero que al terminar todo el proceso se abra el archivo para poder seguir usándolo, pero (siempre un pero ¬¬) no me resulta abrirlo, me aparecen una serie de errores antes de abrir el primero archivo Excel de la carpeta y NO el que estoy procesando.

Este es el código que uso para abrir el archivo:

Código (vb) [Seleccionar]

Shell(RutaExcelExe & " " & InvFilePath)

Donde:

RutaExcelExe contiene la ruta donde esta instalado MSExcel.


C:\Archivos de Programa\Microsoft Office\Office12\Excel.exe


InvFilePath contiene la ruta completa del archivo que estoy procesando. La ruta que contendrá esta variable puede variar (valga la redundancia) ya que el archivo puede ser tomando desde cualquier parte desde un CommonDialog.

Los errores que obtengo son los siguientes

No se encontró "C:\Documents.xlsx" bla bla bla
No se encontro "and.xlsx"
No se encontro "Settings\panxin\escritorio\ProyectoAsdf\XLSX's\.xlsx"
No se encontro "TEST\Copia.xls"
No se encontro "(2).xlsx"


Lo intente cambiando el comando de la siguiente forma, pero  con comillas ya no toma las variables como variables y si como la ruta y el nombre del archivo, obteniendo el error
Código (vb) [Seleccionar]

Shell("RutaExcelExe" & " " & "InvFilePath")



"No se encuentra el archivo "InvFilePath"" ¬¬


Así es que es por esto que vengo a solicitar vuestra ayuda a ver si alguien me puede guiar :D!

Saludos y gracias de ante mano :D!


Asdf debería ser algún tipo de función.

79137913

HOLA!!!

Tu problema surje por no usar comillas dobles en una ruta de archivo con espacios, para hacer eso haz lo siguiente:

Shell(RutaExcelExe & " " & chr(34) &  InvFilePath & chr(34))

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

FranciskoAsdf

Hola!,

Funcionó MUCHAS GRACIAS!, por una tontera no me funcionaba xD. Hasta había usado API para hacerlo, pero mejor asi ya que es mas rápido y fácil :D!

Gracias de nuevo y saludos!!
Asdf debería ser algún tipo de función.