SaveAs

[brownti via OfficeKB.com]

Here is my code. The problem is with the saveas command. It doesnt work.
When i click the button i want it to ask where to save as, with the initial
file name to be "proj". Any ideas?

Private Sub CommandButton1_Click()
Dim est As String, mgr As String, sls As String, build As String, _
proj As String, file As Variant
build = builder
mgr = manager
sls = sales
est = estimator
proj = project
file = proj & ".xls"
Range("est") = UCase(est)
Range("o_est") = UCase(est)
Range("mgr") = UCase(mgr)
Range("o_mgr") = UCase(mgr)
Range("sales") = UCase(sls)
Range("o_sales") = UCase(sls)
Range("builder") = UCase(build)
Range("o_builder") = UCase(build)
If Residential = True Then
Call reset_species
End If
Application.GetSaveAsFilename (file)
Unload Me
End Sub

 

[Guest]

GetSaveAsFilename allows you to get a filename from the user, but it does not
actually save the file. Replace this line:

Application.GetSaveAsFilename (file)

with these 2 lines:

file = Application.GetSaveAsFilename (file)
if file<>"False" then application.saveas file

 

[brownti via OfficeKB.com]

That didnt quite work. It doesnt like the last part of it, application.
saveas file

GetSaveAsFilename allows you to get a filename from the user, but it does not
actually save the file. Replace this line:

Application.GetSaveAsFilename (file)

with these 2 lines:

file = Application.GetSaveAsFilename (file)

Here is my code. The problem is with the saveas command. It doesnt work.
When i click the button i want it to ask where to save as, with the initial

[quoted text clipped - 23 lines]

Unload Me
End Sub

 

[Andrew Taylor]

SaveAs is a method of the Workbook class, so it should be

ActiveWorkbook.SaveAs file

That didnt quite work. It doesnt like the last part of it, application.
saveas file

GetSaveAsFilename allows you to get a filename from the user, but it does not
actually save the file. Replace this line:

Application.GetSaveAsFilename (file)

with these 2 lines:

file = Application.GetSaveAsFilename (file)
if file<>"False" then application.saveas file

Here is my code. The problem is with the saveas command. It doesnt work.
When i click the button i want it to ask where to save as, with the initial

[quoted text clipped - 23 lines]

Unload Me
End Sub