delphi将excel转换为dbf文件

Question

各位大牛，请问如何将excel转换为dbf文件?
想通过下面的语句进行处理
var
  MyExcel,sheet:Variant;
begin
    try 
        MyExcel:=CreateOLEObject( 'Excel.Application ');
        MyExcel.WorkBooks.Open( 'E:\Test.xls '); 
        MyExcel.Visible:=False; 
        //MyExcel.WorkSheets[1].Activate;
        MyExcel.WorkSheets[1].SaveAs( 'E:\Test.dbf ',xldbf4);
        MyExcel.WorkBooks[1].Saved   :=   True; 
    finally 
        MyExcel.ActiveWorkBook.Close; 
        MyExcel.Quit; 
        MyExcel:=UnAssigned; 
    end;
end;结果提示undeclared identifier xldbf4
请问有什么方法可以实现吗?非常感谢

Answer 1

没定义的xldbf4 ,出错提示是不是先解决掉!再来调试你的代码是否可行。

Answer 2

请问该怎么定义?我就是不清楚怎么定义xldbf4，谢谢

Answer 3

有个dbf的控件可以直接 操作dbf

Answer 4

dbf 和excel都需要安装三方支持,delphi才能访问。如果是只是转换工作，用excel打开后另存为dbf即可，不要这样麻烦了。