Excel导入informix库中

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp,WorkBook: OleVariant;
  excelx,excely,ExcelFileNames: string;
  sheet,UsedRange:variant;
  ExcelRowCount: Integer;
begin
  try
    OpenDialog.DefaultExt := 'xls';
    OpenDialog.Filter := 'Microsoft Excel文件 (*.xls)|*.xls';
    OpenDialog.Execute;
    ExcelFileNames := OpenDialog.FileName;
    if OpenDialog.FileName<>'' then
      begin
        ExcelApp := CreateOleObject('Excel.Application');
        WorkBook := ExcelApp.WorkBooks.Open(ExcelFileNames);//使用opendialog对话框指定excel档路径
        ExcelApp.Visible := false;
        //ExcelApp.WorkSheets[1].Activate;
        ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;//这里的行数不显示，不知道为啥
        .
        .
        .
      end;
  finally
    WorkBook.Close;
    ExcelApp.Quit;
    ExcelApp := Unassigned;
    WorkBook := Unassigned;
  end;
end;我窗体上就放个button1，与ExcelApplication。如何 实现呢。请帮忙。

Answer 1

先用ADO指向Informix数据库：   
然后用  ADOQUERY导入EXCEL表格到数据库中
  select   *   into   TABLENAME   from   [SHEET1$] in   "d:\TEMP\123.xls"   "excel   8.0;"