| Pregunta: | 11972 - CÓMO EXPORTAR *.DBF A EXCEL |
| Autor: | Mauricio Varela |
| Tengo una sistema contable que trabaja como muchos con bases de datos (dbf), y quisiera saber si se pueden tomar con otra aplicación. Específicamente con Planilla Excel, ya que es ideal para mí. Ojala al exportar queden los campos separadamente, para poder trabajar sobre ellos. Agradeciendo a los amigos | |
| Respuesta: | JOAQUIN CERVANTES CASTRO |
| copy to c:\inv\tmpdbf\artanalisis xl5 FIELDS ** AQUI PUEDES ESCOJER LOS CAMPOS QUE QUIERAS ** CODIGO,DESCRIP_,EXISTMAX,EXISTMIN,PROP_180,PROP_90,PROME_30,EXIST,CUBMES,CANTPROP,COSTPROM,BSCOMPRA ExcelSheet = CreateObject("Excel.application") nuevo = ExcelSheet.workbooks.open ("c:\inv\tmpdbf\artanalisis.xls") hoja_activa = ExcelSheet.ActiveSheet ventana_activa = ExcelSheet.activewindow ExcelSheet.application.Visible = .t. INSERTAR = ExcelSheet.Range("A1:A4").Select INSERTAR1 = ExcelSheet.Selection.EntireRow.Insert ExcelSheet.Range("b2:b3").Font.Bold = .T. ExcelSheet.Range("b2:b3").Font.Size = 14 ExcelSheet.Range("a5:l5").Font.Bold = .T. ExcelSheet.Range("a2:g3").Font.Size = 12 ExcelSheet.cells(2, 2).Value = "ANÁLISIS DE REQUISICIÓN TITULO A COLOCAR" ExcelSheet.cells(3, 2).Value = "SEGUNDO TITULO GERENCIA DE ___" ubica =ExcelSheet.Range("A5").Select GROSOR =ExcelSheet.Selection.Columns("A5").EntireColumn.AutoFit ubica =ExcelSheet.Range("B5").Select | |
| Respuesta: | gilberto de campos |
| si estas usando foxpro abre l la tabla luego escribe copy to "nombredelarchivodeexcelqiuequieres.xls" type XLS y ya ... | |
| Respuesta: | gilberto de campos |
| si estas usando foxpro abre l la tabla luego escribe copy to "nombredelarchivodeexcelqiuequieres.xls" type XLS y ya ... | |
| Respuesta: | Adrian |
| En excel anda a archivo abrir, donde dice tipo de archivo pone todos los archvivos o archivos dbase , despues busca el archivo dbf y acepta tendria que abrirlo sin problemas. Avisa si pudiste. Suerte Adrian | |