Excel表格中第1行为建立Dbf的字段，从第2行开始为Dbf的记录，如何用编程形式将Excel表格转换为Dbf数据表，谢谢！
如表：

运行环境：WINXP+EXCEL2003+VFP9 7.423

cFileName = SYS(5) + SYS(2003) + "\Excel导入Dbf测试数据.xls"
oExcel = CreateObject("Excel.Application") 
WITH oExcel
    .WorkBooks.Open(cFileName)
    .ActiveSheet.UsedRange.Columns.AutoFit
    nCols = .ActiveSheet.UsedRange.Columns.Count
    cStru = ""
    FOR ii = 1 TO nCols
        nWidth = INT(.ActiveSheet.Columns(ii).ColumnWidth)
        cStru = cStru + IIF(EMPTY(cStru), "", ",") + .ActiveSheet.Cells(1, ii).Text + " C(" + TRANSFORM(nWidth) + ")"
    ENDFOR
    .DisplayAlerts = .F.
    .ActiveWorkbook.SaveAs(cFileName, 39)
    .DisplayAlerts = .T.
    .QUIT 
    RELEASE oExcel
ENDWITH 

CREATE CURSOR Cssj (&cStru)
APPEND FROM Excel导入Dbf测试数据 TYPE XL5
SELECT * FROM Cssj WHERE RECNO() > 1

[此贴子已经被作者于2019-1-5 14:32编辑过]

将ＥＸＣＥＬ另存为：

然后再追加

cFileName = SYS(5) + SYS(2003) + "\Excel导入Dbf测试数据.xlsx"
cOutFileName = SYS(5) + SYS(2003) + "\Excel导入Dbf测试数据.xls"
oExcel = CreateObject("Excel.Application")
WITH oExcel
    .WorkBooks.Open(cFileName)
    .ActiveSheet.UsedRange.Columns.AutoFit
    nCols = .ActiveSheet.UsedRange.Columns.Count
    cStru = ""
    FOR ii = 1 TO nCols
        nWidth = INT(.ActiveSheet.Columns(ii).ColumnWidth)
        cStru = cStru + IIF(EMPTY(cStru), "", ",") + .ActiveSheet.Cells(1, ii).Text + " C(" + TRANSFORM(nWidth) + ")"
    ENDFOR
    .DisplayAlerts = .F.
    .ActiveWorkbook.SaveAs(cOutFileName, 39)
    .DisplayAlerts = .T.
    .QUIT
    RELEASE oExcel
ENDWITH

CREATE CURSOR Cssj (&cStru)
APPEND FROM Excel导入Dbf测试数据 TYPE XL5
SELECT * FROM Cssj WHERE RECNO() > 1

抖胆把版主的代码小小修改了一下，应该是可以运行了。

[此贴子已经被作者于2019-1-5 18:36编辑过]

如果你电脑上安装有ＥＸＣＥＬ２００７，可以将扩展名改为.XLSX

感谢2位老师！经测试，4楼程序在WIN10（64位专业版）+EXCEL2016+VFP9 7.423环境下可运行！！
再次感谢，谢谢！！！

有点高兴得太早，运行一次成功后，就.........

路径问题

利用VF直接另存为……

EXCEL字段名不可以超过5个汉字——因为另存为DBF是自由表。

[此贴子已经被作者于2019-1-7 12:42编辑过]