delphi 导入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
excelapp : variant ;
oldcursor: tcursor;
begin
oldcursor := screen.cursor;
//保存鼠标指针状态
screen.cursor := crhourglass;
try
coinitializeex(nil, 0);
excelapp := createoleobject(\\\’excel.application\\\’);
excelapp.visible := true;
try
excelapp.workbooks.open(afilename);
//打开源文件
excelapp.worksheets[1].activate;
excelapp.visible := false; //隐藏excel窗体
if assigned(func) then //执行导入函数
func(excelapp.activesheet); //传递sheet给函数进行导入
finally
excelapp.workbooks.close ;
excelapp.quit ;
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 frmbuyingitemsp;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs,embeddableformu, dxskinscore, dxskinoffice2010black,
dxskinoffice2010blue, dxskinoffice2010silver, dxskinsdefaultpainters,
dxskinsdxbarpainter, dxbar, cxclasses, cxgraphics, cxcontrols, cxlookandfeels,
cxlookandfeelpainters, cxstyles, dxskinscxpcpainter, cxcustomdata, cxfilter,
cxdata, cxdatastorage, cxedit, db, cxdbdata, cxgridlevel, cxgridcustomview,
cxgridcustomtableview, cxgridtableview, cxgriddbtableview, cxgrid, extctrls,
rzpanel, stdctrls,cxcheckbox, dbclient, adodb, comctrls;
type
tcheckboxclickevent=procedure(sender: tobject) of object;
type
tcheckboxclick = class(tobject)
private
foncheckboxclick:tcheckboxclickevent; //定义一个内部事件，private里的只能在类内部调用
public
property view_upcheckboxcolumnpropertieschange:tcheckboxclickevent read foncheckboxclick write foncheckboxclick; //定义一个外部的事件
end;
type
tfrmbuyingitems = class(tembeddableform)
dxbarmanager1: tdxbarmanager;
dxbarmanager1bar1: tdxbar;
barsearch: tdxbarbutton;
barexport: tdxbarbutton;
barimport: tdxbarbutton;
baradd: tdxbarbutton;
barmodify: tdxbarbutton;
barclose: tdxbarbutton;
rzgroupbox1: trzgroupbox;
cxitems: tcxgriddbtableview;
cxgrid1level1: tcxgridlevel;
cxgrid1: tcxgrid;
barsave: tdxbarbutton;
edtno: tlabelededit;
cxitemscolumn1: tcxgriddbcolumn;
cxitemscolumn2: tcxgriddbcolumn;
cxitemscolumn3: tcxgriddbcolumn;
cxitemscolumn4: tcxgriddbcolumn;
cxitemscolumn5: tcxgriddbcolumn;
cxitemscolumn6: tcxgriddbcolumn;
cxitemscolumn7: tcxgriddbcolumn;
cxitemscolumn8: tcxgriddbcolumn;
cxitemscolumn9: tcxgriddbcolumn;
cxitemscolumn10: tcxgriddbcolumn;
cxitemscolumn11: tcxgriddbcolumn;
cxitemscolumn12: tcxgriddbcolumn;
cxitemscolumn13: tcxgriddbcolumn;
cxitemscolumn14: tcxgriddbcolumn;
cxitemscolumn15: tcxgriddbcolumn;
cxitemscolumn16: tcxgriddbcolumn;
cxitemscolumn17: tcxgriddbcolumn;
cxitemscolumn18: tcxgriddbcolumn;
cxitemscolumn19: tcxgriddbcolumn;
cxitemscolumn20: tcxgriddbcolumn;
cxitemscolumn21: tcxgriddbcolumn;
cxitemscolumn22: tcxgriddbcolumn;
cxitemscolumn23: tcxgriddbcolumn;
cxitemscolumn24: tcxgriddbcolumn;
cxitemscolumn25: tcxgriddbcolumn;
cxitemscolumn26: tcxgriddbcolumn;
cxitemscolumn27: tcxgriddbcolumn;
cxitemscolumn28: tcxgriddbcolumn;
cxitemscolumn29: tcxgriddbcolumn;
cxitemscolumn30: tcxgriddbcolumn;
cxitemscolumn31: tcxgriddbcolumn;
cxitemscolumn32: tcxgriddbcolumn;
cxitems

购买云服务器5折是什么
阿里云3月高配服务器促销
为你详解电脑综合诊治之内存故障
网站登陆不上去-云服务器问题
什么是whois查询？whois查询可以干什么?
怎么查看网站虚拟主机情况
云服务器能挂40个吗
云服务器使用费用高吗