procedure Texcelfrm.Button1Click(Sender: TObject);
var
oe:variant;
n1:string;
i,j:integer;
begin
oe:=CreateOleObject('Excel.Application');
oe.visible:=true;
oe.workbooks.open(FileListBox1.FileName);
j:=2; //假定标题在第一行
try
with adoQuery1 do
begin
n1:='insert into tablename(fieldslist) values(:fieldslist)';
close;
sql.Clear;
sql.Add(n);
while oe.worksheets[sheetname].cells[j,1].text<>'' do
begin
for i:=1 to 列数 do
Parameters.Items[i-1].Value:=oe.worksheets[sheetname].cells[j,i].text;
execsql;
j:=j+1;
end;
oe.visible:=false;
showmessage('导入完毕');
end;
except
oe.visible:=false;
showmessage('数据库错误或有重复编号,请检查');
end;
end;