SaveAs with a twist

  • Thread starter Thread starter michele
  • Start date Start date
M

michele

Hi All,

My code gets the save as filename, but now the client wants to add a
bit of text in the filename. So I've made the code stop before the
actual save with the filename showing and I can update the filename,
but when it saves the filename doesn't update. Here is the code. Any
ideas on what I need to do to fix it? I think I have to chenge the
savename somehow.

savename = qrPath & ActiveCell.Value & " - " &
ActiveCell.Offset(-3, 2).Value & " Quote.xls"
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = savename
.Show
End With

ActiveWorkbook.SaveAs filename:= _
savename, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

I'd really appreciate some advice.

Thanks,

Michele
 
You have one response at your other post.

Hi All,

My code gets the save as filename, but now the client wants to add a
bit of text in the filename. So I've made the code stop before the
actual save with the filename showing and I can update the filename,
but when it saves the filename doesn't update. Here is the code. Any
ideas on what I need to do to fix it? I think I have to chenge the
savename somehow.

savename = qrPath & ActiveCell.Value & " - " &
ActiveCell.Offset(-3, 2).Value & " Quote.xls"
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = savename
.Show
End With

ActiveWorkbook.SaveAs filename:= _
savename, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

I'd really appreciate some advice.

Thanks,

Michele
Click to expand...
 
Back
Top