REPARAR FICHERO EXCEL

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

xlWorkBook = xlApp.Workbooks.Open("C:\mifichero.xlsx",, CorruptLoad:=XlCorruptLoad.xlRepairFile)

       

xlWorkBook.SaveAs("C:\mifichero_reparado.xlsx")

xlWorkBook.Close()