VBA Save As Function

[alex_read]

Just got home David, try this under the button_click() event :

With CommonDialog1
    .ShowSave
    .Filter = "*.xls"
    .DialogTitle = "save as example"
End With
getfiletosave = CommonDialog1.FileName
Excel.Workbooks(0).Item.SaveAs getfiletosave

hope this helps.
Alex

[alex_read]

For your one, try

ThisWorkbook.SaveAs CommonDialog1.FileName

instead of the last line.

checked 3 ms sites for the filter bit, and just realised the above is c**p, maybe someone else can shed some light on this part, but the above will save your files.

[davidgottlieb]

This is the code I have. This works too.

Private Sub CommandButton1_Click()
CommondDialog1.ShowSave
ActiveWorkbook.SaveAs FileName:=CommonDialog1.FileName
End Sub

Private Sub UserForm_Intitialize()
CommonDialog1.Filter = "Excel Spreadsheet(*.xls)|*.xls|"
CommonDialog1.FilterIndex = 1
End Sub

This works. Now, when the Save As dialog comes up, and I hit cancel, it comes up with a debug error message. Why is that?

[alex_read]

You have a line :

CommonDialog1.CancelError = False

which you can add in your CommandButton1_Click() part, or you an do a..

If CommonDialog1.Cancel = True Then
   'code to cancel here
End if

statement. Note I have tried this before posting this time!

Alex Read