很急的問題﹐大家看看﹐關于delphi+excel

Question

如何用delphi重excel里面取數據出來到數據庫里面。
用ado如何連接到excel﹐我實在不會﹐但馬上要用﹐

Answer 1

论坛上搜索一下，有很多帖子的，大致如下：var
    ExcelApp: OleVariant;
begin
    try
      ExcelApp := CreateOleObject('Excel.Application');
    except
      MessageDlg('读取Excel文件未成功！', mtWarning, [mbOK], 0);
      Exit;
    end;    ExcelApp.WorkSheets[1].Activate;
    ShowMessage(ExcelApp.Cells[18, 4]);
end;

Answer 2

var
    ExcelApp: OleVariant;
begin
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.WorkBooks.Open(myFileName);
    ExcelApp.WorkSheets[1].Activate;
    ShowMessage(ExcelApp.Cells[18, 4]);
end;

Answer 3

用ado+e
adotable name 写 $sheet1
加分呀！

Answer 4

用ado+e
adotable tablename 写 $sheet1
加分呀！

Answer 5

uses comobj;var
filename,sheetname:string;
begin
  sheetname:='sheet1';  ADOConnection2:= TADOConnection.Create(nil);
  ADOConnection2.LoginPrompt := False;
  ADOConnection2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data   Source=' + FileName + ';Extended Properties=Excel 8.0';
    //filename是你EXCEL文件的全路径  importADOQuery := TADOQuery.Create(nil);
  importADOQuery.Connection := ADOConnection2;
  importADOQuery.SQL.Text := 'Select * from [' + SheetName + '$]';
  importADOQuery.Open;
end;

Answer 6

ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ABCCompany.xls;Extended Properties=Excel 8.0;Persist Security Info=False';