delphi excel保存到数据库

uses
  ComObj;

var
  ExcelApp: Variant;
  Workbook: Variant;
  Range: Variant;
  Data: TStringList;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  Workbook := ExcelApp.Workbooks.Open('C:\path\to\your\file.xlsx');
  Range := Workbook.Sheets[1].Range['A1:D10'];
  Data := TStringList.Create;
  try
    Data.Text := Range.Value;
    // 处理数据并保存到数据库
  finally
    Data.Free;
    Workbook.Close;
    ExcelApp.Quit;
  end;
end;

// 假设数据库表结构如下：
// CREATE TABLE MyTable (ID INT, Name VARCHAR(50), Age INT)

procedure ImportData(Data: TStringList);
var
  Query: TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := YourDatabaseConnection;
    Query.SQL.Text := 'INSERT INTO MyTable (ID, Name, Age) VALUES (:ID, :Name, :Age)';
    while Data.Count > 0 do
    begin
      Query.Parameters.ParamByName('ID').Value := StrToInt(Data.Values['ID']);
      Query.Parameters.ParamByName('Name').Value := Data.Values['Name'];
      Query.Parameters.ParamByName('Age').Value := StrToInt(Data.Values['Age']);
      Query.ExecSQL;
      Data.Delete(0);
    end;
  finally
    Query.Free;
  end;
end;

procedure BatchInsertData(Data: TStringList);
var
  Query: TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := YourDatabaseConnection;
    Query.SQL.Text := 'INSERT INTO MyTable (ID, Name, Age) VALUES (:ID, :Name, :Age)';
    Query.Prepared := True;
    while Data.Count > 0 do
    begin
      Query.Parameters.ParamByName('ID').Value := StrToInt(Data.Values['ID']);
      Query.Parameters.ParamByName('Name').Value := Data.Values['Name'];
      Query.Parameters.ParamByName('Age').Value := StrToInt(Data.Values['Age']);
      Query.AddBatch;
      if Data.Count mod 1000 = 0 then
      begin
        Query.ExecuteBatch;
        Query.ClearBatch;
      end;
      Data.Delete(0);
    end;
    Query.ExecuteBatch;
  finally
    Query.Free;
  end;
end;