procedure Texcelfrm.Button1Click(Sender: TObject);
var
oe:variant;
n,n1,n2:string;
i,j:integer;
begin
oe:=CreateOleObject('Excel.Application');
oe.workbooks.open(FileName);
j:=2; //假定标题栏在第一行
try
with TestDataModule.Querytest do
begin
n1:='insert into 表名(字段列表)';
n1:=n1+' values('+'''A';
while oe.worksheets[工作表名].cells[j,1].text<>'' do
begin
n:=n1;
for i:=1 to 字段数 do
begin
n:=n+''','''+oe.worksheets[工作表名].cells[j,i].text;
end;
n:=n+''')';
close;
sql.Clear;
sql.Add(n);
execsql;
j:=j+1;
end;
showmessage('导入完毕');
end;
except
showmessage('数据库错误或有重复编号,请检查');
end;