Hi I have some text code below which runs on clicking a
button on a form in VB6.

However, the user is prompted to save the file on the
interface.

I want to save the file and have no save message
displayed. How do I do this?

#############################

Dim xlsApp As excel.Application          
Set xlsApp = excel.Application

With xlsApp
   '.Visible = True
   .Workbooks.Open ("C:\Test.xls")
   .Range("A1").Value = "Cell1"
   .Range("B1").Value = "Cell2"

End With

xlsApp.Workbooks.Close
xlsApp.Quit
######################

Hi CG,

Add the DisplayAlerts before the close statement:

    xlsApp.DisplayAlerts = False
    xlsApp.Workbooks.Close
    xlsApp.Quit

Written this way the Close method defaults to not saving the workbook.  Add
True after the close if you want to save it.

HTH,

Simon

You can set the DisplayAlerts property of the Excel application to False.  This
will disable the Save As dialog generated by Excel.  However, make sure you
enable it before you unload your app.

Ryan Block