请问在程序中如何将Excel直接转换为DBF

Question

同上

Answer 1

with dm.ADOConnection1  do
       begin
        Sqlstr:='select yszc into [dBase III;DataBase=' + ExtractFileDir(SaveDialog.FileName) + '].' + ExtractFileName(SaveDialog.FileName)+ ' from '+trim(comboxtable.Text)+'ysdata';
        try
        Execute(sqlstr);
        except
        application.MessageBox(pchar('导出 '+SaveDialog.FileName +' 文件失败！,请检查是否装有dbase驱动程序！'),'提示信息',64);
        exit;
        end;
       end;
给你超一段吧。是以前写的.没问题.

Answer 2

不好意思，看错了，我还以为将显示的数据转为DBF呢.呵呵~~如果是excel 可以用excel本身的导出功能啊。如果用程序写，还没写过。

Answer 3

delphi從入門到精通ADOConnection1.Execute ('SELECT * INTO Customer IN "' +
  CurrentFolder + '" "Paradox 7.x;" FROM CUSTOMER');

Answer 4

ADO指向DBF文件：
adoquery:
select * into dbffile from [sheet1$] in "d:\temp\123.xls" "excel 8.0;"

Answer 5

谢谢各位
我的问题已解决
再次谢谢各位的援手
  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;