捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
delphi下的Excel操作
关键字:excel delphi
来 自:原创
平 台:Win2K/2003/NT/XP 下载所需:0 火柴
深浅度:初级 完成时间:2014/7/6
发布者:chzhpi (奖励50火柴) 发布时间:2014/10/6
编辑器:Delphi7 语  种:简体中文
分 类:数据库 下载浏览:703/14221
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  sheetCount,i:Integer;
begin
  if Not OpenDialog1.Execute then Exit;
    eclApp:=CreateOleObject('Excel.Application');
    WorkBook:=eclApp.workBooks.Open(Trim(OpenDialog1.FileName));
    sheetCount := workbook.Worksheets.Count;
    MLblComboBox1.Items.Clear;
    for i:=1 to sheetCount do
      MLblComboBox1.Items.Add(eclApp.sheets[i].Name);
   MLblComboBox1.Text:=eclApp.sheets[sheetCount].Name;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if Trim(MLblComboBox1.Text)=' then Exit;
    Sheet:=WorkBook.Sheets[MLblComboBox1.Text];
    Sheet.Activate;
    eclApp.Visible:=True;
end;
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论3条 当前显示最后3条评论
yangli57678 2014/10/8 13:53:15
等待更新!
rongxingdelphi 2014/10/10 8:44:43
哇,这代码值50?
jamike 2015/11/15 13:12:59
现在验证码的提示框弹不出来,任何东西都无法下载了
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表