导入excel

unit ExcelProUnit;

interface
type
  TExcelFunction = procedure(asheet: OleVariant); //声明导入函数

  {访问单元格：sheet.cells[row,col]

转为string：vartostr(sheet.cells[row,col])

转为datetime：vartodatetime(sheet.cells[row,col])

}
  //afilename为数据源文件名，func为执行导入的函数
procedure RunExcelApplication(afilename: string; func: TExcelFunction);

implementation
uses Controls, Forms, ComObj, windows, sysutils;

procedure RunExcelApplication(afilename: string;
  func: TExcelFunction);
var
  app: OleVariant;
  oldCursor: TCurSor;
begin
  oldCursor := Screen.Cursor;
 //保存鼠标指针状态
  Screen.Cursor := crHourGlass;
  try
    CoInitializeEx(nil, 0);
    app := CreateOleObject('Excel.Application');
    try
      app.DisplayAlerts := False;
      app.WorkBooks.open(afilename);
//打开源文件
      app.WorkSheets[1].Activate;
      app.visible := False; //隐藏excel窗体
      if Assigned(func) then //执行导入函数
        func(app.ActiveSheet); //传递sheet给函数进行导入
    finally
      app.WorkBooks.close;
      app.quit; //关闭推出excel
      Screen.Cursor := oldCursor;
    end;
  except on e: Exception do
    begin
      MessageBox(GetActiveWindow, pchar(e.message), '提示', MB_OK + MB_ICONINFORMATION);
      Screen.Cursor := OldCursor;
      Exit;
    end;
  end;
end;

end.

--------------------------------------------------------------------------

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBGridEhGrouping, DB, ADODB, GridsEh, DBGridEh, StdCtrls, RzButton;

type
  TForm2 = class(TForm)
    Button1: TButton;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    RzButton1: TRzButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    adodata: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
    procedure exesql(str_sql:string);

  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
uses ExcelProUnit;
var
  sl: tStrings;
  pubsql:string;

procedure TForm2.Button1Click(Sender: TObject);
var
  str_sql:string;
begin
  str_sql := 'SELECT * FROM nameyp3';
  with ADOQuery1 do
  begin
    close;
    sql.Clear;
    SQL.Add(str_sql);
    open;
  end;
  DataSource1.DataSet := ADOQuery1;
  DBGridEh1.DataSource := DataSource1;

end;

procedure GetFromExcel(asheet: OleVariant);
var
  s, rs: string;
  row: integer;
  compute_00,ylxmmc,jsxmbh,lb,code,content,py,sxzfbl,jxbm,jxmc,spec,gssxzfbl,sysxzfbl:string;
  adodata:TADOQuery;
begin
  row := 1;
  s := trim(vartostr(aSheet.cells[row, 1]));
  pubsql := '';
  while s <> '' do
  begin
    compute_00 := trim(vartostr(aSheet.cells[row, 1]));
    ylxmmc := trim(vartostr(aSheet.cells[row, 2]));
    jsxmbh := trim(vartostr(aSheet.cells[row, 3]));
    lb := trim(vartostr(aSheet.cells[row, 4]));
    code := trim(vartostr(aSheet.cells[row, 5]));
    content := trim(vartostr(aSheet.cells[row, 6]));
    py := trim(vartostr(aSheet.cells[row, 7]));
    sxzfbl := trim(vartostr(aSheet.cells[row, 8]));
    if sxzfbl = '' then
      sxzfbl := '0';
    jxbm := trim(vartostr(aSheet.cells[row, 9]));
    jxmc := trim(vartostr(aSheet.cells[row, 10]));
    spec := trim(vartostr(aSheet.cells[row, 11]));
    gssxzfbl := trim(vartostr(aSheet.cells[row, 12]));
    if (gssxzfbl = '') or (gssxzfbl = 'NULL') then
      gssxzfbl := '0';
    sysxzfbl := trim(vartostr(aSheet.cells[row, 13]));
    if (sysxzfbl = '') or (sysxzfbl = 'NULL') then
      sysxzfbl := '0';
    pubsql := pubsql + ' insert into nameyp3(compute_00,ylxmmc,jsxmbh,lb,code,content,py,sxzfbl,jxbm,jxmc,spec,gssxzfbl,sysxzfbl)';
    pubsql := pubsql + 'select ' + QuotedStr(compute_00) + ',' + QuotedStr(ylxmmc) + ',' + QuotedStr(jsxmbh)
      + ',' + QuotedStr(lb) + ',' + QuotedStr(code) + ',' + QuotedStr(content) + ',' + QuotedStr(py) + ',' + QuotedStr(sxzfbl)
      + ',' + QuotedStr(jxbm) + ',' + QuotedStr(jxmc) + ',' + QuotedStr(spec) + ',' + QuotedStr(gssxzfbl) + ',' + QuotedStr(sysxzfbl);
    inc(row);
    sl.Add(rs);
    s := trim(vartostr(aSheet.cells[row, 1]));
  end;
end;



procedure TForm2.exesql(str_sql: string);
begin
  with adodata do
  begin
    Close;
    SQL.Clear;
    SQL.Add(str_sql);
    ExecSQL;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
   sl := TStringList.Create;
end;
procedure TForm2.RzButton1Click(Sender: TObject);
begin

  OpenDialog1.Title := '请选择正确的excel文件';
  OpenDialog1.Filter := 'Excel(*.xls)|*.xls'; 

  if OpenDialog1.Execute then
  begin
  //  RunExcelApplication(ExtractFilePath(application.ExeName) + 'success.xls', GetFromExcel);
    RunExcelApplication(OpenDialog1.FileName, GetFromExcel);
    exesql(pubsql);
    //memo1.Lines.AddStrings(sl);
  end;
  {
    RunExcelApplication(ExtractFilePath(application.ExeName) + 'success.xlsx', GetFromExcel);
  memo1.Lines.AddStrings(sl);
  }
end;

end.