设为首页收藏本站

Delphi乐园 开发者的家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 222|回复: 3

菜鸟提问!急!在线等!送分++++++++++++++++++在线等如何将 de [复制链接]

Rank: 4

该用户从未签到

金钱
66600
12512
0
在线时间
626 小时
阅读权限
10
精华
0
积分
0
UID
412
发表于 2016-9-7 20:52:26 |显示全部楼层
分享到:
是否是要用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;
请你在你的单位上放上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;//你要在电子表显示的内容
我是一楼的,现对我的答复做一些弥补:

须要SERVER中的控件:ExcelApplication。代码中的ExcelApp1为该控件的实例:

     ExcelApp1:TExcelApplication;

    后面的'ExcelApplication1'是写错了,应为ExcelApp1.

如不雅是要将label中的值存入Excel表中则应用如下语句:

     ExcelApp1.Cells.Item[x,y].Value:=label1.Caption;

Rank: 4

该用户从未签到

金钱
61463
11718
0
在线时间
119 小时
阅读权限
10
精华
0
积分
0
UID
814
发表于 2016-9-7 21:04:27 |显示全部楼层
是否是要用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;

使用道具 举报

Rank: 16Rank: 16Rank: 16Rank: 16

  • TA的每日心情
    开心
    2013-10-25 20:05:00
  • 签到天数: 1 天

    [LV.1]初来乍到

    金钱
    60645
    12034
    0
    在线时间
    0 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    27
    发表于 2016-9-7 21:08:28 |显示全部楼层
    请你在你的单元上放上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;//你要在电子表显示的内容

    使用道具 举报

    yqz 企业用户 

    Rank: 4

  • TA的每日心情
    擦汗
    2014-12-17 08:43:45
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    金钱
    61387
    12274
    4
    在线时间
    19 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    2
    发表于 2016-9-7 21:13:28 |显示全部楼层
    我是一楼的,现对我的回答做一些补充:

    需要SERVER中的控件:ExcelApplication。代码中的ExcelApp1为该控件的实例:

         ExcelApp1:TExcelApplication;

        后面的'ExcelApplication1'是写错了,应为ExcelApp1.

    如果是要将label中的值存入Excel表中则应用如下语句:

         ExcelApp1.Cells.Item[x,y].Value:=label1.Caption;

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    空间、域名、优惠稳定。香港空间1元,美国2元。

    手机版|Delphi乐园 ( 冀ICP备11023363号-7 )    

    GMT+8, 2016-10-23 02:18

    Powered by Discuz! X2

    © 2001-2011 Comsenz Inc.

    公网安备 14090202000504号

    回顶部