oExcel = CreateObject("Excel.Application")
oExcel.WorkBooks.Add
With oExcel
.DisplayAlerts = .F.
.Range("A1").Select
.ActiveCell.FormulaR1C1 = "JOSEFA"
.Range("B1").Select
.ActiveCell.FormulaR1C1 = "8754"
.Range("C1").Select
.ActiveCell.FormulaR1C1 = "A"
.Range("A2").Select
.ActiveCell.FormulaR1C1 = "MARIA"
.Range("B2").Select
.ActiveCell.FormulaR1C1 = "6955"
.Range("C2").Select
.ActiveCell.FormulaR1C1 = "A"
.Range("A3").Select
.ActiveCell.FormulaR1C1 = "PETRONA"
.Range("B3").Select
.ActiveCell.FormulaR1C1 = "4522"
.Range("C3").Select
.ActiveCell.FormulaR1C1 = "A"
.Range("A4").Select
.ActiveCell.FormulaR1C1 = "LUISA"
.Range("B4").Select
.ActiveCell.FormulaR1C1 = "96956"
.Range("C4").Select
.ActiveCell.FormulaR1C1 = "B"
.Range("A5").Select
.ActiveCell.FormulaR1C1 = "GABRIELA"
.Range("B5").Select
.ActiveCell.FormulaR1C1 = "741"
.Range("C5").Select
.ActiveCell.FormulaR1C1 = "B"
.Range("A6").Select
.ActiveCell.FormulaR1C1 = "MARGARITA"
.Range("B6").Select
.ActiveCell.FormulaR1C1 = "6556"
.Range("C6").Select
.ActiveCell.FormulaR1C1 = "A"
.Range("A7").Select
.ActiveCell.FormulaR1C1 = "MARTHA"
.Range("B7").Select
.ActiveCell.FormulaR1C1 = "112"
.Range("C7").Select
.ActiveCell.FormulaR1C1 = "B"
.Range("A8").Select
.ActiveCell.FormulaR1C1 = "TANIA"
.Range("B8").Select
.ActiveCell.FormulaR1C1 = "664"
.Range("C8").Select
.ActiveCell.FormulaR1C1 = "C"
.Range("A9").Select
.ActiveCell.FormulaR1C1 = "TERESA"
.Range("B9").Select
.ActiveCell.FormulaR1C1 = "6998"
.Range("C9").Select
.ActiveCell.FormulaR1C1 = "D"
.ActiveWorkbook.SaveAs("C:\MiTabla.Dbf", 11)
EndWith
oExcel.Quit
Release oExcel
Use c:\Mitabla