【文件属性】:
文件名称:读取excel的基本操作。
文件大小:697KB
文件格式:RAR
更新时间:2023-01-03 04:36:53
Delphi excel 对吧
读取excel到dbgrid并进行比较,熟悉excel读取操作用。
rocedure TForm1.openxls(MyTable:TADOTable;mytabelname:string);
var Col,Row:Integer;
stemp:string;
begin
if self.OpenDialog1.Execute then
begin
MyTable.Close;
stemp:='delete from '+mytabelname;
with self.ADOQuerytemp do
begin
close;
sql.Clear;
sql.Add(stemp);
ExecSQL;
end;
MyTable.Open;
XLS1.Clear;
XLS1.LoadFromFile(self.OpenDialog1.FileName);
for Row := XLS1.Sheets[0].FirstRow to XLS1.Sheets[0].LastRow do
begin
MyTable.Append;
for Col := XLS1.Sheets[0].FirstCol to XLS1.Sheets[0].LastCol do
begin
stemp:=XLS1.Sheets[0].AsFmtString[Col,Row];
MyTable.Fields[Col+1].AsString:=stemp;
end;
MyTable.Post;
end;
end;
end;
【文件预览】:
Unit1.ddp
db.mdb
M2.xlsx
Project1.res
Unit1.dcu
Unit1.~ddp
Unit1.dfm
Project1.cfg
Project1.dpr
Unit1.~dfm
Project1.exe
M1.xlsx
Project1.dof
Unit1.~pas
Unit1.pas