菜鸟提问!急！在线等！送分++++++++++++++++++在线等如何将 delphi 中的label 导出excel!

[raymondcs]

如题!!!如何将 delphi 中的label 导出excel!!

[lek608]

请你在你的单元上放上SERVER页上的三个EXCEL有关的控件,好像是EXCELCONNECT,EXCELWOOKBOOK,EXCELWOOKSHEET,然后放入以下程序便可,不过要稍修改一下对应的控件名:
try
{找出应用程序所在的目录}
ChDir(ExtractFilePath(Application.ExeName));
ChDir('..');
ExeRootPath := GetCurrentDir;

dp_exapt.Connect;//建立与本机安装的OFFICE连接（EXCELCONNECT控件）
dp_exapt.Visible[0]:=false;//显示我是先不显示到后面再设显示，你可以改为真，则立刻显示
dp_exapt.Workbooks.Add(ExeRootPath+'/config/sjcs.xls',0);//电子表模板所在位置就是自己事先做好一个模板
dp_exwb.ConnectTo(dp_exapt.Workbooks[1]);//EXCELWOOKBOOK控件
dp_exws.ConnectTo(dp_exwb.Sheets[1] as _worksheet);//EXCELWOOKSHEET控件

dp_exws.Cells.Item[行,列]:=LABEL.caption;//你要在电子表显示的内容

[learnning_zhang]

是否是要用label来显示excel表中的信息？
如果是的话似乎一个label只能显示excel表中一个网格的信息（具体的你自己去搞一搞吧，我也是初学者）。
以下是显示一个网格中信息的代码：
var
Label1: TLabel;
........
var
wkBook : _WorkBook; //Excle工作表连接存储变量
LCID:integer; //用于Excel表的参数
Str1:string;
begin
LCID:=GetUserDefaultLCID(); //获得系统默认参数
wkBook:=ExcelApp1.Workbooks.Open(filename,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
LCID);
//Excle表打开函数，参数说明:(1.Excel表 路径;2~~~~15 暂不用管，要想了解的话去看参数说明;16.???不台清楚;)
Str1:=ExcelApplication1.Cells.Item[x,y].Value; //1，5分别代表Excel表的第x行，第y列
label1.Caption:=Str1;
end;

[learnning_zhang]

我是一楼的，现对我的回答做一些补充：
需要SERVER中的控件：ExcelApplication。代码中的ExcelApp1为该控件的实例：
ExcelApp1:TExcelApplication;
后面的'ExcelApplication1'是写错了,应为ExcelApp1.
如果是要将label中的值存入Excel表中则应用如下语句：
ExcelApp1.Cells.Item[x,y].Value:=label1.Caption;