Saving a file from a command button with user input

[Owen]

'Try This...

Sub SaveName()

Dim strPath As String
Dim strFile As String
Dim strDate As String

strPath = "C:\Temp"
strFile = Sheet1.Range("I3")
strDate = Format(Now(), "mm-dd-yyyy")

ActiveWorkbook.SaveAs FileName:=strPath & "\" & strFile &
strDate & ".xls"


End Sub

-----Original Message-----
An easy one for excel experts!

1. I need to save a file from a command button with the

current date attached at the end? Command Button is
written part is already complete.

2. I would like the name the file to be entered into a

cell, say I3. I want the button to use the name in the
cell, (I3), and then add the date proir to saving the
file.

 

[Guest]

Owen: Not working: Let me show you what I have: First part is no longer being used
'Dim pname As String
'Dim fname As String
'pname = "C:\Network_2000\Current_Projects\"
'fname = Worksheets("General info").Range("C47").Value & "#" & Range("I3").Value
'fname = "" 'this is to set the value to null'
'fname = Worksheets("Road Editor").Range("I3").Value
'& Format(Now, "mm-dd-yyyy")
'ActiveWorkbook.SaveAs Filename:="" & pname & fname & ""

Dim strPath As String
Dim strFile As String
Dim strDate As String

'path exists
strPath = "C:\Network_2000\Current_Projects"
strFile = Sheet1.Range("I3")
' returns correct value from the cell'
strDate = Format(Now, "mm-dd-yyyy")
'returns correct date
'ActiveWorkbook.SaveAs Filename:="" & strPath & strFile & strDate
'ActiveWorkbook.SaveAs Filename:="" & strPath & strFile & strDate & ""
ActiveWorkbook.SaveAs Filename:=strPath & "\" & strFile & strDate & ".xls"
'this last line above will not complile, still yellow color.

As you can see, I have tried several different approaches, I still cannot get it to work! I have included everything. I used the ' to eliminate the old code as it were.
Can you see the problem? Please help!

 

[Owen]

I'm not sure what to say...I tested the code I sent you in
a blank workbook and it compiled fine. My guess is the
path you defined, or the filename your specifying is not
valid. You may want to try recording a macro using
the 'save as' function to verify the path is correct.
HTH

-----Original Message-----
Owen: Not working: Let me show you what I have: First part is no longer being used
'Dim pname As String
'Dim fname As String
'pname = "C:\Network_2000\Current_Projects\"
'fname = Worksheets("General info").Range

("C47").Value & "#" & Range("I3").Value

'fname = "" 'this is to set the value to null'
'fname = Worksheets("Road Editor").Range("I3").Value
'& Format(Now, "mm-dd-yyyy")
'ActiveWorkbook.SaveAs Filename:="" & pname & fname & ""

Dim strPath As String
Dim strFile As String
Dim strDate As String

'path exists
strPath = "C:\Network_2000\Current_Projects"
strFile = Sheet1.Range("I3")
' returns correct value from the cell'
strDate = Format(Now, "mm-dd-yyyy")
'returns correct date
'ActiveWorkbook.SaveAs Filename:="" & strPath & strFile & strDate
'ActiveWorkbook.SaveAs Filename:="" & strPath & strFile & strDate & ""
ActiveWorkbook.SaveAs Filename:=strPath & "\" & strFile & strDate & ".xls"
'this last line above will not complile, still yellow color.

As you can see, I have tried several different

approaches, I still cannot get it to work! I have included
everything. I used the ' to eliminate the old code as it
were.