DELPHI中的EXCLE导入问题

来源：百度知道 编辑：UC知道 时间：2024/06/27 14:46:14
公司在用DELPHI做一套进销存系统，但客户要求导入的表格（导入功能已实现）至少能实现部分的EXCLE功能，比如，局部的选择粘贴，EXCLE公式计算，等等。网上搜了忆君的控件可以，但收费，DEPHI中自带的EXCLE控件不知道能不能实现，我还是新手，希望能有代码告知，多谢了。
忘记说了，用的是DELPHI7，网上搜了很多，都没实现，刚尝试用Delphi7自带的控件做了，跟想要的不一样只是实现了对EXCLE的控制，点BUTTON把EXCLE调出来做操作。但这不是客户想要的啊，挠头啊~~~~，难道只能找第三方的控件？

不知道你说什么意思.pc装了office后.delphi可以调用其server容器来操作excel

/==========================写excel 开始
if dataset.RecordCount>0 then
begin
try
v:= CreateOleObject('Excel.Application');
//v.Workbooks.Open(OpenDialog1.FileName);
files:=ExtractFilePath(Application.ExeName)+ '20080804客服主管日志与周报(20080416更新).xls';
v.Workbooks.Open(files);
// Sheet := v.Workbooks[1].WorkSheets[1];

//==========add date==================
//showmessage(inttostr(dataset.RecordCount));
for i:=1 to dataset.RecordCount do
begin
Sheet:= v.Workbooks[1].WorkSheets[1];
//Sheet.Cells[i+3,1] :=dataset.Fields.FieldByname('yue').Text;
Sheet.Cells[i+3,1] :=IntToStr(MonthOf(Date)) ;
Sheet.Cells[i+3,2] :=dataset.Fields.FieldByname('zhou').Text;
Sheet.Cells[i+3,3] :=dataset.Fields.FieldByname('riq').Text;
Sheet.Cells[i+3,4] :