VBA - Let user save as file and close

[jccnz]

Hi There,
I created a button to allow user on mouse click save as file on their location but I want to close the workbook after save as.
are there any way to close after save as?

Private Sub Image1_Click()
Dim result As Variant
Dim activebook As Workbook
Application.DisplayAlerts = False

ThisWorkbook.Sheets("OpenOrder").Copy
result = Application.GetSaveAsFilename(FileFilter:="Excel File (*.csv), .csv", Title:="Save Excel")

If result <> 0 Then
ActiveWorkbook.SaveAs Filename:=result, FileFormat:=xlCSV
Application.DisplayAlerts = True

'ActiveWorkbook = "result" & ".csv"
'If Workbook_Name <> False Then
'ActiveWorkbook.SaveAs Filename:=Workbook_Name

ActiveWorkbook.Close savechanges:=False
End If
End Sub

 

[mrshl9898]

Like this?

Private Sub Image1_Click()
Dim result As Variant
Dim activebook As Workbook
Application.DisplayAlerts = False

ThisWorkbook.Sheets("OpenOrder").Copy
result = Application.GetSaveAsFilename(FileFilter:="Excel File (*.csv), .csv", Title:="Save Excel")

If result <> 0 Then
ActiveWorkbook.SaveAs Filename:=result, FileFormat:=xlCSV
Application.DisplayAlerts = True

'ActiveWorkbook = "result" & ".csv"
'If Workbook_Name <> False Then
'ActiveWorkbook.SaveAs Filename:=Workbook_Name

ActiveWorkbook.Close savechanges:=False
End If
ThisWorkbook.Close savechanges:=False
End Sub

 

[jccnz]

wooow... perfect thanks so much
Stay save all the way from downunder

 

[mrshl9898]

That's not very far mate haha

 

[jccnz]

cool

 

[jccnz]

Hi, I came across error when user save as same file name, how to avoid this?

 

[mrshl9898]

what do you want to occur when that happens?

 

[jccnz]

Hello again, hope you are well where you are.
when the save as dialogue box pop up, the file usually given name as "Book1.csv", and users will normally save as in repeated location with the same file name.
All I want is letting users to save and replace the old.
Thanks

 

[mrshl9898]

When I save as with the same name the macro just continues and the workbook closes. What's happening there?

 

[jccnz]

I have tested couple of time, yes you are right it closed, I will check w/ the user again.
Many thanks