Turning off Message Boxes on Excel files opened in VB Access

[redshark63]

Hi.

Wasn't sure whether to post this in the Excel/VBA or the Access folder.

Here is my situation,

I am coding a VBA module in MS Access to retrieve a complete directory of Excel files. Unfortunately, each of the xls files has a macro in it that creates a popup/msgbox which interrupts/hinders the load of the Excel data into my Access DB. I have to click on each msgbox as it pops up in order to get through my load.

Is there a way in VBA to turn off the msgbox macro for each or all of the Excel files?

My Access VBA code so far (partial):

Set f = CurrentDb.OpenRecordset("Folder Maintenance")
sfol = f.incomingfolder ' change to match the source folder path
Set xlApp = CreateObject("Excel.Application")
strFile = Dir(sfol & "*.xls")
xlApp.Displayalerts = False
Do While Len(strFile) > 0
Set wkbCurr = xlApp.Workbooks.Open(sfol & strFile)
Set wksCurr = wkbCurr.Sheets(1)
With wksCurr
...field assignments
EndWith

I tried the Displayalerts = False without success.


Any help is greatly appreciated

 

[Norie]

What is it you are actually trying to do?

Why do you need to open the workbooks to get the data from them?

 

[Norie]

What is it you are actually trying to do?

Why do you need to open the workbooks to get the data from them?

 

[redshark63]

What is it you are actually trying to do?

Why do you need to open the workbooks to get the data from them?

As stated, I am taking a directory of Excel files that have data that I need to load into one of my Access application's tables. I am opening each Excel file/worksheet and assigning various field values to variables and then taking those variables and loading them into my Access table using a INSERT command.

My issue is with the Excel files - that is that they have an msgbox automatically pop up when they are opened.

I am looking for a VBA-programmatic way to eliminate or disable the msgbox popping up in the Excel workbooks.