Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: FranciskoAsdf en 15 Julio 2014, 01:25 am



Título: [Excel][VB6] Ejecutar archivo Excel.Solucionado
Publicado por: FranciskoAsdf en 15 Julio 2014, 01:25 am
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
  1. Shell(RutaExcelExe & " " & InvFilePath)
Donde:

RutaExcelExe contiene la ruta donde esta instalado MSExcel.

Código:
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
Código:
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
  1. Shell("RutaExcelExe" & " " & "InvFilePath")

Código:
"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!




Título: Re: [Excel][VB6] Ejecutar archivo Excel.
Publicado por: 79137913 en 15 Julio 2014, 02:39 am
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!!!


Título: Re: [Excel][VB6] Ejecutar archivo Excel.
Publicado por: FranciskoAsdf en 15 Julio 2014, 04:33 am
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!!