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 '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 |
RSS