Modificar extension de archivo Excel desde Access
Publicado por David (15 intervenciones) el 13/08/2015 15:28:36
Saludos a todos, os planteo un problema que me trae de cabeza, a ver si algun experto me lo pudiera resolver.
Necesito, desde Access, abrir tres archivos de extension slk, en Excel, para cambiarlos a extension xlsx y poderlos importar a Access. La función a la que llamo tres veces seguidas es esta:
Private Sub ConvierteArchivoSLKenXLSX(strArchivoXLSX As String, strArchivoSLK As String)
Dim xls As Excel.Application
Dim strN As String
'MsgBox "Borramos el archivo existente, si existe"
'If CreateObject("Scripting.FileSystemObject").FileExists(strArchivoXLSX) Then Kill (strArchivoXLSX)
'MsgBox "Abrimos el archivo de Excel"
Set xls = CreateObject("Excel.Application")
xls.Application.Workbooks.Open strArchivoSLK, , True, , , , True
ActiveWorkbook.SaveAs strArchivoXLSX, xlWorkbookDefault
Workbooks.Close
xls.Quit
End Sub
Dode strArchivoXLSX y strArchivoSLK son las variables string que dan el nombre completo del archivo, incluido el path.
Funciona bien cuando la llamo la primera vez, pero luego en la segunda llamada, dentro del mismo programa, siempre da error:
Variable objeto o bloque with no establecido. En la linea:
ActiveWorkbook.SaveAs strArchivoXLSX, xlWorkbookDefault
Gracias y saludos de nuevo.
Necesito, desde Access, abrir tres archivos de extension slk, en Excel, para cambiarlos a extension xlsx y poderlos importar a Access. La función a la que llamo tres veces seguidas es esta:
Private Sub ConvierteArchivoSLKenXLSX(strArchivoXLSX As String, strArchivoSLK As String)
Dim xls As Excel.Application
Dim strN As String
'MsgBox "Borramos el archivo existente, si existe"
'If CreateObject("Scripting.FileSystemObject").FileExists(strArchivoXLSX) Then Kill (strArchivoXLSX)
'MsgBox "Abrimos el archivo de Excel"
Set xls = CreateObject("Excel.Application")
xls.Application.Workbooks.Open strArchivoSLK, , True, , , , True
ActiveWorkbook.SaveAs strArchivoXLSX, xlWorkbookDefault
Workbooks.Close
xls.Quit
End Sub
Dode strArchivoXLSX y strArchivoSLK son las variables string que dan el nombre completo del archivo, incluido el path.
Funciona bien cuando la llamo la primera vez, pero luego en la segunda llamada, dentro del mismo programa, siempre da error:
Variable objeto o bloque with no establecido. En la linea:
ActiveWorkbook.SaveAs strArchivoXLSX, xlWorkbookDefault
Gracias y saludos de nuevo.
Valora esta pregunta


0