Save as question.

  • Thread starter Thread starter Cerberus
  • Start date Start date
C

Cerberus

Is there a way to save a file using a cell's information as the documents
name? I currently have it saving as a set name but now I'm wanting to roll
the project out but I need the documents name to be saved with a new name
everytime.

The code I have now is:

varDoc.ActiveDocument.SaveAs ("s:\Engineering\testWord.doc")

I would like to have the file saved in the same directory (s:\Engineering\)
but have the name reference Cell CONFIG!O220. Is that possible, or do any of
you have a better idea on how the save the file with unique document names.

Thanks for and help in advance.
 
SaveAs "C:\ssheets\" & Range("A1").Value
works fine for me so iguess yours would be
SaveAs "s:\Engineering\" & Range("insert cell address containing save name
here").Value
 
fName = Sheets("CONFIG").Range("O220")
varDoc.ActiveDocument.SaveAs("s:\Engineering\" & fName)
 
Works better:

fName = Sheets("CONFIG").Range("O220").Value
varDoc.ActiveDocument.SaveAs("s:\Engineering\" & fName)
 
Thank you guys. It works great!

JLGWhiz said:
Works better:

fName = Sheets("CONFIG").Range("O220").Value
varDoc.ActiveDocument.SaveAs("s:\Engineering\" & fName)
Click to expand...
 
Cerberus,

Did you want the file path be locked or to give the user the functionality
of being able chose the locaction? is so then I have this code:

Sub saveme()

Application.EnableEvents = False

rtn = Application.Dialogs(xlDialogSaveAs).Show(arg1:=ThisWorkbook.Sheets _
("Put your sheet name here").Range("Your cell ref").Value & ".xls")
If Not rtn Then Cancel = True
Cancel = True

Application.EnableEvents = True

End Sub

If you want to combine the values of more than 1 cell add this code after
..value and before & in the above code

& " " & Range("D7").Value

Hope this helps
 
Back
Top