Importar tabla de dBase IV a Excel
dBase IV es una base de datos de los años 80, que todavía se utiliza. En caso de necesitar importarla a Excel, podemos utilizar el siguiente marcado. Conectar a traves de ADO etc es bastante complicado. Hay otra manera mucho más fácil; abrirla como libro Excel.
El código
Sub Importar_dBaseIV()
Dim dBase As String
Dim strMacro As String
strMacro = ActiveWindow.Caption
Dim dBase As String
Dim strMacro As String
strMacro = ActiveWindow.Caption
'abrir el archivo .dbf como archivo Excel
Workbooks.Open Filename:="C:\dbase.dbf"
'copiar contenido
dBase = ActiveWindow.Caption
Windows(dBase).Activate
Cells.Copy
'pegar contenido en archivo Excel
Windows(strMacro).Activate
Range("A1").Select: ActiveSheet.Paste
'cerrar archivo .dbf
Windows(dBase).Activate
Application.DisplayAlerts = False
Windows(dBase).Close
Application.DisplayAlerts = True
'aparcar en la nueva lista
Windows(strMacro).Activate
Columns.AutoFit
End Sub
