son - reparar archivos de excel dañados gratis

¿Es posible reparar automáticamente libros de trabajo corruptos de Excel?

Question

Estoy usando SPSS 15 para crear varios informes de Excel que luego estoy consolidando usando una macro de Excel. Lamentablemente, esa versión particular de SPSS produce archivos .xls que no son fáciles de leer para Excel 2007 y posteriores. Excel 2003 engulla esos archivos muy bien, pero las versiones más recientes de Excel muestran dos mensajes de error. Primero está "Excel encontró contenido ilegible en filename.xls. ¿Desea recuperar el contenido de este libro de trabajo?". Después de hacer clic en Sí, esto es seguido por "Error de archivo: los datos pueden haberse perdido". Desafortunadamente, estos mensajes de error hacen que mi macro se cierre en el primer archivo con el código de error 1004. Este es el código que estoy usando para abrir mis archivos de Excel:

If Len(Dir(ThisWorkbook.Path + "/filename.xls")) <> 0 Then
Workbooks.Open Filename:=ThisWorkbook.Path + "/filename.xls"
End If

Comprobé con IBM (proveedores de SPSS) y me dijeron que este problema en particular está solucionado en SPSS 16, pero debido a razones de negocios, no se tiene en cuenta una actualización. Ahora hay una solución manual que consiste en abrir los archivos y guardar de nuevo, pero con docenas de archivos que obviamente no son divertidos. Por lo tanto, estoy buscando una forma de reparar automáticamente esos libros corruptos en mi macro.

Más información: estamos utilizando Excel 2010 en el trabajo, Excel 2003 no está disponible. Un archivo de muestra está disponible aquí: https://onedrive.live.com/?cid=52106BC267261CBF&id=52106BC267261CBF!292

Answer 1

Ese archivo parece bastante jodido, la herramienta de validación BIFF informa un encabezado BOF incorrecto por lo que su impresionante Excel 2003 puede abrirlo en absoluto.

Puedo leer su archivo como una base de datos ISAM a través del proveedor Jet OLEDB, por lo que puede elegir leer el archivo de esta manera (o utilizar este enfoque para generar un archivo CSV para su procesamiento)

Dim cn As Object, rs As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=MICROSOFT.JET.OLEDB.4.0;Data Source=C:/temp/DebugFile.xls;Extended Properties=""Excel 8.0;HDR=Yes;"""
Set rs = cn.Execute("SELECT * FROM [DebugFile$]")
Do While Not rs.EOF
Debug.Print rs.Fields(0).Value
rs.MoveNext
Loop