VBA - How to Save and Close without prompt

[luporiman]

Hello,

I have the following line of VBA code within one of my macros.


ActiveWorkbook.SaveAs Filename:="C:\LH1\" & flname, _
FileFormat:=xlCSV, CreateBackup:=False

ActiveWorkbook.Close



The macro opens up a new file, copies data into it, saves it as a .CSV, and then closes the .CSV. This is the only command in the macro that saves a file.

I can't get it to stop prompting the user with a "Do you want to save the changes to xxx.csv".

Is there a way to answer that question within the macro so the user is not prompted?

 

[schielrn]

Maybe try:

ActiveWorkbook.SaveAs Filename:="C:\LH1\" & flname, _
FileFormat:=xlCSV, CreateBackup:=False
 
ActiveWorkbook.Close true

Or maybe:

ActiveWorkbook.SaveAs Filename:="C:\LH1\" & flname, _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.saved = true
ActiveWorkbook.Close

Hope that helps.

 

[luporiman]

That worked perfectly!

Many thanks for the help!

Code:

ActiveWorkbook.SaveAs Filename:="C:\LH1\" & flname, _FileFormat:=xlCSV, CreateBackup:=FalseActiveWorkbook.saved = trueActiveWorkbook.Close</PRE>

 

[joy730]

Hi,

I tried the code, but the saveas prompt still come out, can you please help me out? thanks a lot!
here is my code:
New_file_name = Application.GetSaveAsFilename(CellCodeFind, "Microsoft Excel Workbook (*.xls), *.xls")
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveSheet.Copy
ActiveWorkbook.SaveAs filename:=New_file_name, FileFormat:=xlNormal, CreateBackup:=False
ActiveWorkbook.Saved = True
ActiveWindow.Close