Creating a path to save a file

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to save a file to a users file on a server I can't get the path
right

Dim username As String
username = Application.username
NUMBERSAVE = Range("AB2")

If Application.username = "jauld" Then

QUOTENUMBER1 = InputBox("Please enter QUOTE file name to save to
Server3", "The Company", "\\server3\jobs\ username\" & NUMBERSAVE)

QUOTE = QUOTENUMBER1 & ".XLS"
ActiveWorkbook.SaveAs Filename:=QUOTE

How do a specify the correct path?

oldjay
 
I am trying to save a file to a users file on a server I can't get the path
right

Dim username As String
username = Application.username
NUMBERSAVE = Range("AB2")

If Application.username = "jauld" Then

QUOTENUMBER1 = InputBox("Please enter QUOTE file name to save to
Server3", "The Company", "\\server3\jobs\ username\" & NUMBERSAVE)

QUOTE = QUOTENUMBER1 & ".XLS"
ActiveWorkbook.SaveAs Filename:=QUOTE

How do a specify the correct path?
Click to expand...

You have the variable 'username' inside the quote marks... VB thinks that is
a bunch of characters just like the rest of the characters between the quote
marks. You need to concatenate the username to the rest of the text so that
VB can substitute what you assigned to it. Try it this way...

"\\server3\jobs\" & username & "\" & NUMBERSAVE

Rick
 
in addition, his string has a space in front of username: \ username\

Personally, if I were OldJay, I'd choose another name for variable username
- to prevent confusion when reading the code. I don't know about you, but I
shy away from using anything closely resembling a property or method name for
any of my own variables or constants.

Hey, OldJay! how ya' doin'??
 
Hi - I want to thank you again for all the work you did for me. I copied the
code to my program as follows

QUOTENUMBER1 = InputBox("Please enter QUOTE file name to save to Server3",
"The Company", "\\server3\jobs\" & username & "\" & NUMBERSAVE

and get a compile error
 
Hi - I want to thank you again for all the work you did for me. I copied
the
code to my program as follows

QUOTENUMBER1 = InputBox("Please enter QUOTE file name to save to Server3",
"The Company", "\\server3\jobs\" & username & "\" & NUMBERSAVE

and get a compile error
Click to expand...

Did you copy it as it is shown (on 2 lines)? If so, make it one line or use
this properly "continued" statement...

QUOTENUMBER1=InputBox("Please enter QUOTE file name to save to Server3", _
"The Company", "\\server3\jobs\" & UserName & "\" & NUMBERSAVE)

And while it is probably just a typo on your part, you left out the closing
parenthesis on your posted line of code.

If this does not solve the problem... Are any lines being highlighted, or
any error numbers being displayed, when the compile error is generated? If
so, tell us what they are.

Rick
 
Thanks Every thing is working correctly

oldjay

Rick Rothstein (MVP - VB) said:
Did you copy it as it is shown (on 2 lines)? If so, make it one line or use
this properly "continued" statement...

QUOTENUMBER1=InputBox("Please enter QUOTE file name to save to Server3", _
"The Company", "\\server3\jobs\" & UserName & "\" & NUMBERSAVE)

And while it is probably just a typo on your part, you left out the closing
parenthesis on your posted line of code.

If this does not solve the problem... Are any lines being highlighted, or
any error numbers being displayed, when the compile error is generated? If
so, tell us what they are.

Rick
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Ehandler 1
ehandler 2
Can't activate an existing workbook 6
Finding a file 6
Placing cursor in message box 1
On Error 6
Error Message 3
Saving a String as an html File 3

Back
Top