Excel VB Shell Command Help!!

G

gman1979

New Member
Joined
Oct 12, 2007
Messages
35
Howdy,

I'm in the process of building a user form that required the user to brows for a file, the path of the file that they select is then displayed in the textbox next to the "browse" button in my form. I also have another button next to this which when selected will open the file that is displayed in the textbox previously mentioned.

I’ve been trying the shell command but with no success, I can get the user form to open adobe reader but whenever I try to include that file path for which to open the file I keep getting runtime errors, can anyone help.

Below are a couple of examples that I’ve tried (you'll prob be able to guess from the code that I’m very new to VB in excel).

For additional info the value in the textbox would be something like, "H:\My Documents\PDF Files\myfile.pdf"

Dim GetFile As String
Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe", vbNormalFocus
'this opens adobe reader but I'm trying to open a specific file

Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe" & textbox9.value, vbNormalFocus
This produces the runtime error again

Dim GetFile As String
GetFile = TextBox9.Value
Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe" & GetFile, vbNormalFocus
'this produced a runtime error - to be honest this was an attempt born out of frustration.

Any help would be greatly appreciated.

Thanks in advance

G
 

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.
Sort by date Sort by votes
hi

try this:

Code: 
Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe " & GetFile, vbNormalFocus

There is a space inserted after your application location in the string passed to Shell.
 
Upvote 0
Cheers, I feel like a total idiot for not noticing that!!

Adobe reader is now opening and it is trying to open the file, however it's displaying a message that the file cannot be found, will this be down to format of the path being returned by the textbox9 as the file is there and opens no bother separately.

Thanks again

G
 
Upvote 0
It’s the full file path to the PDF file including the file itself. I’ve worked out why it won’t open though. All the folders and sub folders, including some of the file name all have spaces in them; once I removed the spaces it opened no bother.

Thing is.... (You knew it was coming!)

There a huge volume of files that I want this thing to reference to, is there anyway of getting it to work with the spaced in the path??

otherwise the whole thing is scuppered (nnnnNNNNNNOOOOOOooooo)

Cheers Again

G
 
Upvote 0
Pass it like this:

Code: 
GetFile = """" & TextBox9.Value & """"
Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe " & GetFile, vbNormalFocus
 
Upvote 0
If Adobe is associated, then you can use CMD /C. The Quote function would add quotes if needed.

Code: 
Sub Test()
  Dim myFile As String
  myFile = Quote("w:\kenpdf.pdf")
  Shell "CMD /c " & myFile
End Sub

Function Quote(str As String) As String
  If Left(str, 1) = """" Then
    Quote = str
    Else: Quote = """" & str & """"
  End If
End Function
 
Upvote 0
Magic!!

Thanks for that, would I also be able to apply the above to open windows explorer in the folder that the file was in (as this would be stored in textbox10 as below.

Private Sub OpenFolder_Click()
Dim GetFolder As String
GetFoder = """" & TextBox10.Value & """"
Shell "C:\WINDOWS\explorer " & GetFolder, vbNormalFocus
End Sub

Sorry for the sneaky 2nd question but I’ve been wracking my brain all day with this and you've solved it in a matter of minutes!!!

Thanks again!

G
 
Upvote 0
You must log in or register to reply here.

Similar threads

R
  • Question
Left over instance of Adobe.
Replies
0
Views
241
rjtaylor
R
R
  • Question
Paste Method Failed on PDF to Excel
Replies
2
Views
796
rex759
R
O
  • Question
Convert a bulk of PDFs into different text files (same names)
Replies
0
Views
436
Oxirrinko
O
T
  • Question
Workbook not visible by VBA
Replies
5
Views
151
Artik
Artik
H
  • Question
How to login with username and password via Microsoft Edge in VBA code
Replies
1
Views
262
healeydm
H

Forum statistics

Threads
1,214,614
Messages
6,120,530
Members
448,969
Latest member
mirek8991

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top