Ejecutar archivo VBS desde vb6
Publicado por Sah1d Ra (191 intervenciones) el 21/09/2021 21:44:48
Hola a todos tengo el siguiente problema, espero me puedan ayudar a resolverlo
tengo un archivo VBS que después de comprobar que existe Excel instalado en Windows
lo ejecute (el proceso es convertir el contenido del archivo XLSX/XLS a CVS).
Archivo: Ex2Cs.vbs
y me tira error cuando realizo la llamada desde el SHELL
Agradecere mucho su ayuda, saludos y felices líneas de programac10n.
tengo un archivo VBS que después de comprobar que existe Excel instalado en Windows
lo ejecute (el proceso es convertir el contenido del archivo XLSX/XLS a CVS).
Archivo: Ex2Cs.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if WScript.Arguments.Count < 2 Then
WScript.Echo "Por favor especifica la fuente y destino. USO Ex2Cs <archivo xls/xlsx> <archivo csv>"
Wscript.QuitEnd If
csv_format = 6Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)
oBook.SaveAs dest_file, csv_format
oBook.Close FalseoExcel.Quity me tira error cuando realizo la llamada desde el SHELL
1
2
3
4
sXlsx = Environ("Tmp") + "\Catalogo.xlsx"
sCsv = Environ("Tmp") + "\Catalogo.csv"
sShell = Environ ("Tmp") + "\Ex2Cs.vbs """ + sXlsx + """ """ + sCsv + """"
Tempo = Shell(sShell)
Agradecere mucho su ayuda, saludos y felices líneas de programac10n.
Valora esta pregunta
0