Run DOS command via VBA

[vjs2445]

HI,

I hava a utility which convert the csv file to xml.

I run via DOSS Command Prompt with following steps:

Click Start, Run and then type cmd to run DOSS, there I type

fullpathUtility.exe fullpathCSVFile.csv fullpathGenerateXMLFile.xml

I want to do it via vba using shell.

Is there any way do it or what is the syntex can somebody help me out on this?

Regards,

 

[poolhall]

Sub test()
Dim Param As String
Dim RetVal

Param = "fullpathUtility.exe fullpathCSVFile.csv fullpathGenerateXMLFile.xml"
RetVal = Shell(Param)

End Sub

 

[vjs2445]

Hi Poolhall,

The I made it working is creating a bat file and run using shell() function. The bat file looks like following:

cd PathAllFilesLocated
fullpathUtility.exe fullpathCSVFile.csv fullpathGenerateXMLFile.xml


Is there anyway I can bypass the bat file and use the above two lines directly in shell function?

Thanks for your help and regards,

 

[poolhall]

I think if you need more than one command you need to use a batch file. But you can control that file from VBA:

Sub test()
Dim RetVal, A, fs

Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.CreateTextFile("path\to\urbatfile.bat", True)
A.writeline "cd PathAllFilesLocated"
A.writeline "fullpathUtility.exe fullpathCSVFile.csv fullpathGenerateXMLFile.xml"
A.close

RetVal = Shell("path\to\urbatfile.bat", 1)

End Sub

 

[vjs2445]

Poolhall,

Thanks for your valuable comments.

Regards,

 

[PhantomOak]

I think if you need more than one command you need to use a batch file. But you can control that file from VBA:

Sub test()
Dim RetVal, A, fs

Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.CreateTextFile("path\to\urbatfile.bat", True)
A.writeline "cd PathAllFilesLocated"
A.writeline "fullpathUtility.exe fullpathCSVFile.csv fullpathGenerateXMLFile.xml"
A.close

RetVal = Shell("path\to\urbatfile.bat", 1)

End Sub

I have been looking for this for **** close to a week (off and on). Just saying THANK YOU.