Vbscript and VBA

[Office_Novice]

Greetings, Is it possible to launch a script from vba?

 

[Joel]

Use shell function

Shell(pathname[,windowstyle])

 

[Office_Novice]

Tryied that it threw a Run Time Error: Invaild procedure

Use shell function

Shell(pathname[,windowstyle])

Greetings, Is it possible to launch a script from vba?

 

[Joel]

How do you normally run the script?

You provbably have to run the VB and pass the VB apllication the script in a
command line option.

shell("c:\program files\Vb\vb.exe c:\user\myscript")
something like the line above where vb.exe is the application. You need
tospecify in the command line the option for a script input.

Tryied that it threw a Run Time Error: Invaild procedure

Use shell function

Shell(pathname[,windowstyle])

Greetings, Is it possible to launch a script from vba?

 

[Office_Novice]

Any idea how to pass the script's path from VBA to the command line?

How do you normally run the script?

You provbably have to run the VB and pass the VB apllication the script in a
command line option.

shell("c:\program files\Vb\vb.exe c:\user\myscript")
something like the line above where vb.exe is the application. You need
tospecify in the command line the option for a script input.

Tryied that it threw a Run Time Error: Invaild procedure

Use shell function

Shell(pathname[,windowstyle])



:

Greetings, Is it possible to launch a script from vba?

 

[Joel]

A VBA main subroutine (SUB) in VBA cannot have any parameters. The main VBA
sub can call other subroutine and functions passing parameters. The path
must come use other methods then passing parameters

1) You may want to put the script name on the worksheet
2) You can browse for the script using getfilenameopen method
3) You can hard code the filename in the VBA code.
4) You can search for a file name using the DIR() method using a wildcard

Folder = "c:\temp\"
FName = dir(Folder & "*.txt")
do while FName <> ""
'enter you code here
FName = dir()
loop

Any idea how to pass the script's path from VBA to the command line?

How do you normally run the script?

You provbably have to run the VB and pass the VB apllication the script in a
command line option.

shell("c:\program files\Vb\vb.exe c:\user\myscript")
something like the line above where vb.exe is the application. You need
tospecify in the command line the option for a script input.

Tryied that it threw a Run Time Error: Invaild procedure


:

Use shell function

Shell(pathname[,windowstyle])



:

Greetings, Is it possible to launch a script from vba?

 

[Office_Novice]

Thanks for the Help Joel. Here was my solution, I created a .bat file with
the full path of the script. Then i uesd the Shell function in VBA to launch
the batch file thus running the script.

A VBA main subroutine (SUB) in VBA cannot have any parameters. The main VBA
sub can call other subroutine and functions passing parameters. The path
must come use other methods then passing parameters

1) You may want to put the script name on the worksheet
2) You can browse for the script using getfilenameopen method
3) You can hard code the filename in the VBA code.
4) You can search for a file name using the DIR() method using a wildcard

Folder = "c:\temp\"
FName = dir(Folder & "*.txt")
do while FName <> ""
'enter you code here
FName = dir()
loop

Any idea how to pass the script's path from VBA to the command line?

How do you normally run the script?

You provbably have to run the VB and pass the VB apllication the script in a
command line option.

shell("c:\program files\Vb\vb.exe c:\user\myscript")
something like the line above where vb.exe is the application. You need
tospecify in the command line the option for a script input.

:

Tryied that it threw a Run Time Error: Invaild procedure


:

Use shell function

Shell(pathname[,windowstyle])



:

Greetings, Is it possible to launch a script from vba?

 

[Joel]

the shell command doesn't execute the exe or bat file in the user
environment. the shell doesn't search for the user file usingf the windows
PATH property. The code below will find any executable in the user path

Sub FindMyFile()

Filename = "excel.exe"
Path = Environ("Path")
splitPath = Split(Path, ";")
Found = False
For Each Folder In splitPath
FName = Dir(Folder & "\" & Filename)
If FName <> "" Then
MsgBox ("File found in Folder : " & Folder)
Found = True
End If

Next Folder

End Sub

Thanks for the Help Joel. Here was my solution, I created a .bat file with
the full path of the script. Then i uesd the Shell function in VBA to launch
the batch file thus running the script.

A VBA main subroutine (SUB) in VBA cannot have any parameters. The main VBA
sub can call other subroutine and functions passing parameters. The path
must come use other methods then passing parameters

1) You may want to put the script name on the worksheet
2) You can browse for the script using getfilenameopen method
3) You can hard code the filename in the VBA code.
4) You can search for a file name using the DIR() method using a wildcard

Folder = "c:\temp\"
FName = dir(Folder & "*.txt")
do while FName <> ""
'enter you code here
FName = dir()
loop

Any idea how to pass the script's path from VBA to the command line?

:

How do you normally run the script?

You provbably have to run the VB and pass the VB apllication the script in a
command line option.

shell("c:\program files\Vb\vb.exe c:\user\myscript")
something like the line above where vb.exe is the application. You need
tospecify in the command line the option for a script input.

:

Tryied that it threw a Run Time Error: Invaild procedure


:

Use shell function

Shell(pathname[,windowstyle])



:

Greetings, Is it possible to launch a script from vba?