Running CMD from VBA

[Dmack21]

Good day,

Hoping to get some advice with the below.

When I paste the path below into CMD it operates.

"C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe" /i "Z:\TEST\FILENAME TEXT\DD-C-0001.dwg" /s "Z:\TEST\FILENAME TEXT/PLOT.scr"

Battling to run this through VBA. The below seems to be doing half the command correctly.

VBA.Shell "C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe /i ""Z:\TEST\FILENAME TEXT\DD-C-0001.dwg""", vbNormalFocus

When attempting the full command below. It is not operating.

VBA.Shell "C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe /i ""Z:\TEST\FILENAME TEXT\DD-C-0001.dwg /s """"Z:\TEST\FILENAME TEXT/PLOT.scr""""""", vbNormalFocus

I understand this would traditionally be run through a batch file which I am attempting to avoid so I can add variables down the line.

Any advice would be highly appreciated.

Thank You

 

[Rick Rothstein]

Untested but I think this should work...

Shell "C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe"" /i ""Z:\TEST\FILENAME TEXT\DD-C-0001.dwg"" /s ""Z:\TEST\FILENAME TEXT/PLOT.scr", vbNormalFocus

 

[6StringJazzer]

Seems like the quotes are not correct. I would try this:

VBA.Shell """C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe"" /i ""Z:\TEST\FILENAME TEXT\DD-C-0001.dwg"" /s ""Z:\TEST\FILENAME TEXT/PLOT.scr"""

 

[6StringJazzer]

Shell "C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe"" /i ""Z:\TEST\FILENAME TEXT\DD-C-0001.dwg"" /s ""Z:\TEST\FILENAME TEXT/PLOT.scr", vbNormalFocus

Rick, I think the quotes to match the ones I highlighted are missing at the beginning and end of the string. Please compare to the one I posted and let's see if we can figure out the correct version.

 

[Dmack21]

Seems like the quotes are not correct. I would try this:

VBA.Shell """C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe"" /i ""Z:\TEST\FILENAME TEXT\DD-C-0001.dwg"" /s ""Z:\TEST\FILENAME TEXT/PLOT.scr"""

The above did the job! Thank you so much for the input. Saved me hours no doubt!

 

[Dmack21]

Hi All,

I've introduced a variable and loop to the code and the shell command cannot locate the "FullPath". Any ideas of why this may be? Updated Code below. Any advice would be appreciated.

Thank You.



Sub acadupdate()

Dim fileName As Variant
Dim myfilePath As Variant
Dim FullPath As Variant


If IsEmpty(Range("B8").Value) = True Then
myfilePath = ThisWorkbook.Path & "\"
ElseIf IsEmpty(Range("B8").Value) = False Then
myfilePath = Range("B8").Value & "\"
End If

fileName = Dir(myfilePath & "\*.dwg")

While fileName <> ""

FullPath = myfilePath & fileName
MsgBox FullPath

VBA.Shell """C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe"" /i "" FullPath "" /s ""Z:\TEST\FILENAME TEXT/PLOT.scr""", vbNormalFocus

fileName = Dir
Wend

End Sub

 

[Rick Rothstein]

FullPath is a VBA variable... in order to get its value into the text string, you have to concatenate it in.

 

[Dmack21]

FullPath is a VBA variable... in order to get its value into the text string, you have to concatenate it in.

Hi Rick,

A bit unsure how to do this. I attempted adding the & as below. Still doesn't seem to be doing the trick.

VBA.Shell """C:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe"" /i "" & FullPath & "" /s ""Z:\TEST\FILENAME TEXT/PLOT.scr""", vbNormalFocus

Thank You

 

[Dmack21]

Thanks Rick, Solved with /i " & FullPath & " /s

Appreciate the input.

FullPath is a VBA variable... in order to get its value into the text string, you have to concatenate it i