Export to exce-suppress save message

[gg80]

I am using Office 2003. I can successfully export some data to excel, but after the export, I always get a message "Do you want to save the changes etc.". How can I suppress the message and still save the exported data in excel. Any help much appreciated.

[ranman256]

I have never seen this message.
are you using TransferSpreadsheet?

[gg80]

I have never seen this message.
are you using TransferSpreadsheet?

This is the code. It sends the data fine. I just want to get rid of the message after export: "Do you want to save changes etc."

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range

On Error GoTo Err_Handler

' Start Excel and get Application object.
Set oXL = CreateObject("Excel.Application")
oXL.Visible = False

Set oWB = oXL.Workbooks.Open(Application.CurrentProject.Path & "\PHDW_DB_Jim_070318_TEST") '

Set oSheet = oWB.Sheets("database") ' export to a specific sheet

oSheet.Cells(2, 1).Value = Me.IDboat
oSheet.Cells(2, 2).Value = Me.BOAT_NAME
oSheet.Cells(2, 3).Value = Me.I
etc.

'

[June7]

Do you have code to close the workbook, like:

oWB.Close savechanges:=True

[gg80]

Do you have code to close the workbook, like:

oWB.Close savechanges:=True

I should have shown you the closing code. Sorry. Here it is.

oXL.Quit
Set oRng = Nothing
Set oSheet = Nothing
Set oWB = Nothing
Set oXL = Nothing



Exit Sub

[June7]

Did you try suggestion?

[gg80]

Did you try suggestion?

Yes. When I make oWB.close savechanges=False, the excel file doesn't show the export data.. If make it =True, Access locks up and excel file stays open and I have to close excel with Task Manager.

I did modify an excel file with VBA to get rid of the "Do you want to Save etc.message. the disadvantage of that is that the excel user may make some changes and may lose them. Puzzling. I have some old files without this problem.

[June7]

Well, the code works for me so without examining your code and/or files, really can't determine cause of issue.

[gg80]

Well, the code works for me so without examining your code and/or files, really can't determine cause of issue.

Thanks for help, much appreciate it. . I will set up a new file and try again.

[gg80]

Best way is to suppress message in Excel file. Se https://support.microsoft.com/en-us/...kbook-in-excel