Check file format before opening Excel file

Hi there, guys... I'm running a macro to loop through Excel files in a folder, open them, explore data to extract available info, and finally create a PDF from explored workbook.

The code deals with corrupt files by repairing, or otherwise, skipping them ("On Error Goto" Statement). Still, there's a problem with format / extension error message prompting (see image below), even though DisplayAlerts and EnableEvents are set to False.

I've checked for FileFormat from file (by opening with CorrupLoad:=xlExtractData argument) and it returns 56, meaning it's an xlExcel8 file (97-2003 format in Excel 2007-2013, xls).

Warning.png


Is there any VBA code to skip this file(s) before opening, if they are to prompt this message.


Thanks in advance!

Can't you just recognize them by the extension of the file and skip them?

Case "xls": FileFormatValue = 56
Case "xlsx": FileFormatValue = 51
Case "xlsm": FileFormatValue = 52
Case "xlsb": FileFormatValue = 50