Convertir Excel 2.1 a version mas nueva

"Fussperman" escribió:

Cierto sistema me baja archivos con informacion en Excel 2.1 y tengo que
convertirlos a una version mas moderna, tipo Excel 95, 2000 o 2003. ¿como
puedo hacerlo?

Hola:

Como me imagino que la conversión la desearás hacer mediante programación,
tendrás que recurrir a la propia biblioteca de Microsoft Excel, para abrir
la hoja de cálculo que tiene la versión Excel 2.1, y guardarla indicándole
el formato de archivo que se corresponda con la versión de la biblioteca de
Excel que hayas referenciado en tu proyecto de Visual Basic .net.

Por ejemplo, si en tu solución .net has efectuado una referencia a la
versión «Microsoft Excel 11.0 Object Library», a la hora de guardar el
archivo de Excel, deberás de especificar el valor de la constante
«xlWorkbookNormal», para que el archivo se guarde con el formato
correspondiente a la versión de Excel referenciada, en el ejemplo, la
versión de Microsoft Excel 2003.

Inicia un nuevo proyecto, establece una referencia COM a la biblioteca
«Microsoft Excel 11.0 Object Library» (si tienes instalado en tu equipo
Microsoft Excel 2003, claro está), y ejecuta el siguiente código:


' Espacio de nombres a importar.
'
Imports Microsoft.Office.Interop

Dim excelApp As Excel.Application ' Aplicación Excel
Dim excelWorkBook As Excel.Workbook ' Libro de trabajo

' Creamos una nueva instancia de Excel.
'
excelApp = New Excel.Application

' Abrimos el archivo que tiene el formato Excel 2.1,
' creando un nuevo objeto Workbook.
'
excelWorkBook = excelApp.Workbooks.Open _
(Filename:="C:\Mis documentos\HojaExcel21.xls")

' Si el archivo tiene el formato de Excel 2.1, ...
'
If excelWorkBook.FileFormat = Excel.XlFileFormat.xlExcel2 Then
' ... lo guardamos con el formato de Excel 2003.
'
excelApp.ActiveWorkbook.SaveAs( _
Filename:="C:\Mis documentos\LibroExcel2003.xls", _
FileFormat:=Excel.XlFileFormat.xlWorkbookNormal)
End If

' Cerramos el libro de trabajo.
'
excelWorkBook.Close()
excelWorkBook = Nothing

' Cerramos la aplicación.
'
excelApp.Quit()
excelApp = Nothing

Eso es todo.

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.