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

Question

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

Answer 1

是否是要用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;

Answer 2

请你在你的单元上放上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;//你要在电子表显示的内容

Answer 3

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