MsgBoxes Warnings

[tuktuk]

for some reason i recieve msgbox asking if i'd like to save the following file when i run this code listed below.

would my setwarning stop this? what cahgnes are needed to have them save without the msgboses to pop up?

Private Sub SaveExportGenericOB()
Const FILE_PATH As String = "G:\Path\"
Dim strFullPath As String
strFullPath = FILE_PATH

DoCmd.SetWarnings False
Call DeleteXLSReport

Set objXl = CreateObject("Excel.Application")
With objXl.Application
.Visible = False
'This is the file to run the code on
.Workbooks.Open "G:\ PricingExportCURRENT.xls"
'This is the file that contains the macros
.Workbooks.Open "G: \CalcSummaryCreator.xls"
'Set the file to run the macro on as active
.Workbooks("PricingExportCURRENT.xls").Activate
'Call the macro
.Run "CalcSummaryCreator.xls!combo"
'Save the newly altered file
'.ActiveWorkbook.SaveAs (strFullPath & "PhaseTWOFlatBandPricingExport")
.ActiveWorkbook.SaveAs (strFullPath & "PhaseTWOFB")
.Quit
End With

Call DeleteXLSCURRENT
DoCmd.SetWarnings True

Set objXl = Nothing
End Sub

 

[Will_B]

In the Excel macro "CalcSummaryCreator.xls!combo", do you have a SetWarnings = False at the end? How about DeleteXLSReport and DeleteXLSCURRENT? If they do, your warning messages are being turned back on before you return to the procedure in question.

There may be reasons against changing any warnings settings in these other procedures, so the simplest solution I think is to add to your procedure a "SetWarnings = False" statement after each call made to another procedure.

 

[boblarson]

In the Excel macro "CalcSummaryCreator.xls!combo", do you have a SetWarnings = False at the end? How about DeleteXLSReport and DeleteXLSCURRENT? If they do, your warning messages are being turned back on before you return to the procedure in question.

That should say DoCmd.SetWarnings TRUE (not false) which would turn them back on.

There may be reasons against changing any warnings settings in these other procedures, so the simplest solution I think is to add to your procedure a "SetWarnings = False" statement after each call made to another procedure.

This could be dangerous if you lose track of where you are with them. Also, whenever using SetWarnings, each procedure that uses them should have an Error Handler and the first line in the Error Handler should be
DoCmd.SetWarnings True
to reset them in case something "glitches" before the normal reset can be run.

 

[boblarson]

I believe you are trying to save to an invalid file name too:

.ActiveWorkbook.SaveAs (strFullPath & "PhaseTWOFB")

Should be

.ActiveWorkbook.SaveAs (strFullPath & "PhaseTWOFB.xls")

or
.ActiveWorkbook.SaveAs (strFullPath & "PhaseTWOFB.xlsx")

depending on the version.