求高手相助：在Delphi中怎么按照Excel某个单元格的别名访问值，我在Excel中录的宏怎么在Delphi中不能用-CSDN论坛

求高手相助：在Delphi中怎么按照Excel某个单元格的别名访问值，我在Excel中录的宏怎么在Delphi中不能用

Delphi > 语言基础/算法/系统设计

收藏回复

[问题点数：100分，结帖人hcj2002]

⋅Oracle启动提示下面问题，请高人指点 ⋅求高手相助：在Delphi中怎么按照Excel某个单元格的别名访问值，我在Excel中录的宏怎么在Delphi中不能用 ⋅Sql-Server or Access ?? 更多帖子 关注私信空间博客 hcj2002 等级 本版专家分：38 结帖率 100%: VBA代码：
activeworkbook.Names("tt").RefersToRange.Value = 100

怎么转换为Delphi代码，谢谢！

2007-04-04 22:03:39

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅在线等待，关于存储过程、自定义函数方面的问题！ ⋅关于label.caption属性简单又复杂的问题 ⋅fastreport 主从表分组问题 更多帖子 关注私信空间博客 idwb 等级 本版专家分：8200: 我的代码不知道对你有没有用
procedure Ttcjl.dcClick(Sender: TObject);
var ExcelApp: Variant;
begin
if DBGrid1.DataSource.DataSet.IsEmpty then
begin
showmessage('没有数据可以导出！');
exit;
end;
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.Visible := True;
ExcelApp.WorkBooks.Add(1);
ExcelApp.Workbooks[1].WorkSheets[1].Name := 'sheet页的名称';
exlDC(ExcelApp);
end;

procedure Ttcjl.exlDC(XLApp: Variant);
var
  x,i: Integer;
  ExcelSheet: Variant;
begin
  ExcelSheet := XLApp.Workbooks[1].WorkSheets[1];
  for i:=1 to DBGrid1.Columns.Count do
   with DBGrid1.Columns[i-1] do
   begin
    ExcelSheet.Columns[i].ColumnWidth:=DBGrid1.DataSource.DataSet.FindField(FieldName).DisplayWidth;
    ExcelSheet.Cells(3, i):=Title.Caption;
   end;
    ExcelSheet.Cells(1, 2):='第1行第2格的内容';
    ExcelSheet.Cells(2, 2):= '第2行第2格的内容';
  x:= 4;
  with DBgrid1.DataSource.DataSet do
  begin
   first;
   While Not EOF do
    begin
     for i:=1 to DBGrid1.Columns.Count do
      with DBGrid1.Columns[i-1] do
       begin
        ExcelSheet.Cells(x, i):=''''+FindField(FieldName).AsString;
       end;
      Next;
      x:= x + 1 ;
    end;
  end;
  ExcelSheet.Cells(x, 1):= '合计';
  ExcelSheet.Cells(x, 2):= '共'+'条记录';
  ExcelSheet.Cells(x, 3):= '用户数量：';
  ExcelSheet.Cells(x, 5):= '设备数量：';
  x:=x+1;
  ExcelSheet.Cells(x, 4):= '统计人：'+ CZYxm;
  ExcelSheet.Cells(x, 6):= '统计时间'+DateToStr(now);

end;

2007-04-04 22:12:15

点赞只看TA 引用举报 #1得分 80

⋅急，在线等。。。。。。 ⋅菜鸟求助,窗体设计器中怎样添加按钮、文本框等控件 ⋅ReadFile函数参数意义 更多帖子 关注私信空间博客 xiaocai800322 等级 本版专家分：3093: 关注

2007-04-05 07:36:01

点赞只看TA 引用举报 #2得分 0

⋅【求助】那里脑科医院最好？？？ ⋅【真实事情】我的女同事告诉我她想怀孕，老没怀上，问我有什么办法？ ⋅人生的第一堂课，同学们还记的它吗？ 更多帖子 关注私信空间博客 yi10000 等级 本版专家分：6069: Var
Aname : Excel2000.Name;
begin
……
Aname := wkBook.Names.Add('通讯录','=Sheet1!$A$3:$D$7',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
Aname.RefersToRange.Value=100;

2007-04-05 10:16:42

点赞只看TA 引用举报 #3得分 20

收起

收藏回复

hcj2002

等级：

关注私信 TA的帖子

读取个Excel文档，再根据条件输出到txt里，用Java写，求大神相助: 读取个Excel文档，再根据条件输出到txt里，怎么控制输出格式呢，希望大神帮忙，了啦啦啦啦啦！

excel公式出现错误，实在是找不到错在什么地方，请高手相助: [图片说明](https://img-ask.csdn.net/upload/201512/14/1450105556_196916.png)我想设置单价乘以配送数量等于总金额，但是公式显示错误，（单价如中已经设有公式）。![图片说明]...

求高手相助，java数据结构中使用链栈编程实现两个大数相减: 求高手相助，急交作业的，java数据结构中使用链栈编程实现两个大数相减,感激不尽。

oracle细节之字符串排序问题记录: 过程是这样的，在跟一个bug，涉及到一张中间表，然后这张中间表的主键是自增的，不过因为对接其它系统，出现了主键唯一性冲突，所以我就只好改数据了，原本认为既然是一张中间表，那我不改关联表就好，我改中间表的...

令人作呕的OpenSSL: 在OpenSSL心脏出血之后，我相信很多人都出了血，并且流了泪...网上瞬间出现了大量吐嘈OpenSSL的文章或段子，仿佛内心的窝火一瞬间被释放了出来，跟着这场疯闹，我也吐一下嘈，以雪这些年被OpenSSL蹂躏之辱，也许可以...

Android中获取手机IMEI，IMSI, MAC（Android 6.0、支持4G环境获取）工具类(标识用户唯一): 最近项目中用到获取手机IMEI，IMSI以及MAC，在此记录一下，方便你我他。。。那么什么时候会用到这些东西呢？ LZ 个人认为，如果项目当中需要对当前使用用户设备做唯一标识时(证明这个是你用的)可以使用这种方式...

说出我的故事，献给正在迷茫的你: 于是放下本来亟待今日开发的项目任务，牺牲了每日常规做晚饭的时间，花了整整一天，思如泉涌，行云流水般一气呵成，写下了我的故事，希望能略尽绵薄之力，鼓励正在十字路口的你。如果你正在迷茫，请一定要看；如果...

求高手相助！huffman编码: huffman编码运行输出的不是一个字符的完整编码，只是第一个编码，不知该怎么弄求高手相助！！！不胜感激！！！初学数据结构，希望各位高手帮帮忙！ #include#include#define MAX 654321 //定义权值最大的上界...

新手入门 求高手相助 最好是提点意见或是建议: 有什么经验快告诉我

急求asp.net求高手相助！: 我想通过一个按钮打开一个新的网页，在button_click实践中添加了如下代码： Response.Write("<script language=\"javascript\">window.open('aaa.aspx','新窗口,\"toolbar=yes,location=no,directories=yes,...

EXT，求高手相助！: 现在想实现一个功能如图所示，弹出窗体时得到可以登录的客户机列表和所有的客户机列表，当在所有的客户机列表中选择一个，单击添加按钮，添加到可以登录的客户机列表中，当选择一个可以登录的客户机时，单击删除把它...

服务端用idhttpserver来接收xml数据包: 多个客户端同时向一个服务端发送xml数据包服务端用idhttpserver来接收xml数据包，现在发现服务端程序经常莫名其妙死掉！没有任何错误提示，直接关闭！接收数据量比较大！ idhttpserver的commandget方法是这样写的...

成长记录 | 两个月内有目共睹的成长: 一、关于英语学习在订阅专栏之前，我大概坚持学习了半年...在跟着专栏践行之后，才逐渐意识到我之前半年的英语学习时，注意力并不是放在英语学习上，而是放在了自我安慰上----看吧，我每天都会坚持一个小时的英语...

如果你也23岁: 分享一下这篇文章： 23 岁那年你正处在哪个状态？现在呢？我，23岁，应届毕业生。生活，工作，爱情都处于人生的低谷，一穷二白，一无所有，一事无成。...在我23岁那年四月，当我深爱的女孩（在这之

程序员编程艺术第二十六章：基于给定的文档生成倒排索引（含源码下载）: 实现过程中，寻找资料，结果发现找份资料诸多不易：1、网上搜倒排索引实现，结果千篇一律，例子都是那几个同样的单词；2、到谷歌学术上想找点稍微有价值水平的资料，结果下篇论文还收费或者要求注册之类；3、大部分...

Oracle EBS OM处理销售挑库卡在待定事务处理和保留中: Oracle EBS OM 销售订单挑库，搬运单分配以后就被卡在待定事务处理和保留中

微信小程序转发功能实例讲解: 最近在开发小程序过程中，需要设计一个“好友代付”的功能，目的就是点击按钮，引导微信用户转发此...1.要拥有转发功能，必须要在当前页面的js代码中，定义onShareAppMessage()函数 2.要知道转发功能的使用有两种方...

老实人的摸索与反思——写在高考七年后: 因此在今天这篇文章中我将详细讲一下这些年来发生的事情以及自己的一些思考，本文句句事实，不说一句大话、假话、空话，不贩卖焦虑，不灌任何鸡汤和毒鸡汤。我也不讳言自己身上出现的问题，曾经的生活充满...

仿.designer.cs，求高手相助。: 在我们编辑.aspx页面的时候，比如：User.aspx ,它会自动生成一个User.designer.cs , User.designer.cs 文件是如何生成的？靠哪个类生成的？我查阅了IVsSingleFileGenerator的使用的相关文章，都只能将User.aspx...

SAP成都研究院C4C光明左使：SAP Cloud for Customer 使用SAP UI5的独特之处: 大家好，今天的文章来自我的同事，Yang Joey。 2017年7月，SAP成都研究院C4C开发团队刚刚建立。某个周一早晨的Scrum meeting，新出现一位眉清目秀的小伙子，向大家自我介绍：“大家好，我叫杨xiao”。我一听，...

数学实验周--matlab下载: 在大一的寒假就想着要下载来学，但因为网上资料繁多，下载方式也不一定步步有效，加上内存很大，下载了三四次后还是以失败告终。这次作为课内要求的内容，不得不直面这个困难。感谢班上的大佬相助。 ...

为什么很多大学生甚至研究生抛弃专业去做码农呢？: 广州市对2017年全市劳动者工资统计中，互联网制造业从业者与化工类制造业从业者的工资对比如下：绘制成图表，更加明显：看到了吗，什么叫做差距？这就叫差距。图中蓝条和橙条的分界线为低位数，橙条和灰条的...

当我们老了，又会怎样: 最近在看《我们仨》，一本杨绛先生的散文集。这本书分为了三部分。第一部分算是个引子，就杨绛先生晚年的一个梦开始，以梦中“钟书大概是记着‘我’的埋怨，叫‘我’做了一个长达万里的梦”拉开全文序幕；第二部分...

这位创造Github冠军项目的老男人，堪称10倍程序员本尊: 7月12日一款叫做TDengine的时序数据库项目在Github上开源了，这个项目一经发布就稳稳占据了Github排行榜的C位，目前...C语言无巧可取，虽见功夫，但是代码比较难读，能引发如此的关注绝对堪称奇迹，在我印象中即使是...

最短路径——Floyd算法HDU Today（hdu2112）: 最短路径问题是图论研究中的一个经典算法问题，旨在寻找图(由结点和路径组成的)中两结点之间的最短路径。算法具体的形式包括: 确定起点的最短路径问题 - 即已知起始结点，求最短路径的问题。确定终点的最短路径...

小仙女讲JVM（1）—综述: 大家好，自从上次讲了软考课程之后，本仙女受到了社会各界的一致好评。本仙女怀着用毕生所学回报社会的热忱，打算花大手笔进行JVM的讲解。 1、首先，对以上的四部分进行解释。（1）自动内存管理讲的是java运行时...

阿里专家：工程师快速成长的10个简单技巧: 阿里有句非常经典的土话，“今天的最好表现，是明天的最低要求。”如何挖掘潜能、发现更... 在碎片化的时间中，每次读完一段内容。最重要的是每次做到只字不差的阅读，然后停下，带着批判性思维从本文中提取出你觉...

python2 操作uiautomator2 init时提示runpy.py中的mod_name错误，求大神相助: 前提条件：电脑是win10，安装了python2.7和python3，并做了区分，cmd命令行输入Pthon2时，运行的是python2.7，输入python3时运行的是python3,均可以正常查看版本运行步骤： ...求大神指点一二

【算法】2 由股票收益问题再看分治算法和递归式: 如前所述，分治算法有3步，在上一篇中已有介绍，它们对应的英文名分别是：divide、conquer、combine。接下来我们通过多个小算法来深化对分治算法的理解。二分查找算法问题描述：在已排序的数组A

【目录】从苏宁电器到卡巴斯基: 本系列文章的大标题为《从苏宁电器到卡巴斯基》，还有个小标题《讲讲我从一个营业员转变成一个病毒分析师的故事》。其实关于苏宁电器与卡巴斯基这两家...而我在这一系列的文章中所讲的，就是我的真实经历，给大家详细讲

相关热词 c# directx 关闭进程时执行c# c#工业应用 c#状态栏控件 c#窗体调颜色 c# 设置listbox c#窗口实现好友列表 c# orm 框架哪个好 c# 字符串转变量名 c# float 赋值