如何取得Excel的ActiveCell?

jqmoab 2003-08-31 10:50:44

本人在使用CB操纵时Excel2000时，参考了如下Dephi资料，但在CB中却不能通过。请高手不吝赐教如何将如下语句Delphi变成相应CB语句。

RangeE:Excel97.Range;
RangeE:=ExcelApplication1.ActiveCell;

尝试用过用
RangeE=ExcelApplication1.OlePropertyGet("ActiveCell");
以及RangeE=ExcelApplication1->ActiveCell;
均不成功。

另外查头文件excel_2k.h，也不知excel97.Range在2000版如何定义。
谢谢。

...全文

205 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

Behard 2003-09-02

打赏
举报

回复

MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("ActiveCell")

Excel Application对象应用大全 [完美Excel]本文以MSDN中的技术文章《Developers Guide to the Excel 2007 Application Object》为线条，参考了一系列相关技术文章和图书资料，全面整理和总结了Application对象应用知识。 Application对象是Excel对象模型中最高层级的对象，代表Excel应用程序自身，也包含组成工作簿的许多部分，包括工作簿、工作表、单元格集合以及它们包含的数据。 Application对象包含： • 应用程序设置和选项，许多选项与“选项”对话框中的选项相同。 • 返回顶级对象的方法，例如ActiveCell、ActiveSheet，等等。本文使用VBA代码示例简要介绍了与Application对象相关的经常使用的对象、方法和属性，其中一些成员能够改变用户与Excel应用程序交互的方式，还能够改变应用程序的外观和式样。熟悉Application对象能够让您扩展和调整Excel的功能，以满足自已的需求。本文主要介绍的内容如下：从Application对象中引用对象 Application对象相关的集合 • AddIns集合 • Columns集合和Rows集合 • Dialogs集合 • Sheets集合 Application对象相关的属性 • ActiveCell属性 • ActiveChart属性 • ActiveSheet属性 • ActiveWindow属性 • ActiveWorkbook属性 • RangeSelection属性 • ScreenUpdating属性 • Selection属性 • StatusBar属性 • ThisWorkbook属性 Application对象相关的方法 • FindFile方法和Dialogs集合 • GetOpenFilename方法 • GetSaveAsFilename方法 • InputBox方法 • Run方法 Application对象相关的事件 • 激活Application事件监视使用Application对象执行其它任务 • 删除工作表而显示提示信息（DisplayAlerts属性） • 无须提示用户而保存工作表（DisplayAlerts属性） • 使用SendKeys方法发送信息到记事本 • 安排宏在指定的时间和间隔运行（OnTime方法） Application对象的其它一些属性和方法 • Caller属性 • CutCopyMode属性 • Evaluate方法 • OnKey方法 • ThisCell属性 • WorksheetFunction属性 • 改变光标显示（Cursor属性） • 获取或改变Excel窗口的状态或大小（WindowState属性） • 获取系统信息 • 自动隐藏公式栏（DisplayFormulaBar属性） • 将Excel全屏显示（DisplayFullScreen属性） • 获取Excel启动文件夹的路径（StartupPath属性） • 检测Excel的版本（Version属性） • 打开最近使用过的文档（RecentFiles属性） • 文件对话框操作（FileDialog属性） • 改变Excel工作簿的名称（Caption属性） • 调用Windows的计算器（ActivateMicrosoftApp方法） • 暂时停止宏运行（Wait方法） • 重新计算工作簿（Calculate方法） • 控制函数重新计算（Volatile方法） • 获取重叠区域（Intersect方法） • 获取路径分隔符（PathSeparator属性） • 快速移至指定位置（Goto方法） • 关闭Excel（Quit方法）

excel vba 实例 ActiveWorkbook.Worksheets("使用记录").Activate ActiveSheet.Range("a1").Activate Selection.End(xlDown).Select Selection.End(xlToLeft).Select ActiveCell.Offset(1, 0).Range("A1") = Date ActiveCell.Offset(1, 0).Range("b1") = zzc ActiveCell.Offset(1, 0).Range("c1") = dmt ActiveCell.Offset(1, 0).Range("d1") = xqj ActiveCell.Offset(1, 0).Range("e1") = sybj ActiveCell.Offset(1, 0).Range("f1") = bz

目录 '1.函数作用：返回 Column 英文字........................9 '2.函数作用：查询某一值第num次出现的值................9 '3.函数作用：返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额.............................10 '4.函数作用：从形如"123545ABCDE"的字符串中取出数字....11 '5.函数作用：从形如"ABCD12455EDF"的字符串中取出数字...11 '6.函数作用：按SplitType取得RangeName串值中的起始位置12 '7.函数作用:将金额数字转成中文大写....................13 '8.函数作用:计算某种税金..............................18 '9.函数作用:人民币大、小写转换........................19 '10.函数作用:查汉字区位码.............................20 '11.函数作用:把公元年转为农历.........................21 '12.函数作用:返回指定列数的列标.......................42 '13.函数作用:用指定字符替换某字符.....................43 '14.函数作用:从右边开始查找指定字符在字符串中的位置...43 '15.函数作用:从右边开始查找指定字符在字符串中的位置...44 '16.函数作用:计算工龄.................................44 '17.函数作用:计算日期差，除去星期六、星期日...........45 '18.函数作用:将英文字反转的自定函数...................46 '19.函数作用:计算个人所得税...........................46 '20.函数作用:一个能计算是否有重复单元的函数...........47 '21.数字金额转中文大写................................48 '22.函数作用:将数字转成英文...........................49 '23.函数作用:人民币大小写转换.........................52 '24.函数作用:获取区域颜色值...........................53 '25.函数作用:获取活动工作表名.........................53 '26.函数作用:获取最后一行行数.........................54 '27.函数作用:判断是否连接在线.........................54 '28.函数作用:币种转换.................................54 '29.函数作用:检验工作表是否有可打印内容...............55 '30.函数作用:查找一字符串(withinstr)在另一字符串中(findstr1)中某一次(startnum)出现时的位置，返回零表示没找到。..................................................57 '31.函数作用:增加文件路径最后的“\”符号..............58 '32.函数作用:计算所得税...............................58 '33.函数作用:从工作表第一行的标题文字以数字形式返回所在列号..................................................58 '34.函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和..........................59 '35.函数作用:返回 Column 英文字.......................60 '36.函数作用:查找指定列名的列数.......................60 '37.函数作用:文字格式的时间(分:秒)转化为数字格式(秒)..61 '38.函数作用:将"hh:mm:ss"格式的时分秒数转换成秒数.....62 '39.函数作用:金额中文大写转数字.......................62 '40.函数作用:把角度转为度秒分、弧度等显示.............63 '41.函数作用:身份证号码侦测...........................64 '42.函数作用:显示公式.................................65 '43.函数作用:方便财务人员理帐查找.....................66 '44.函数作用:数值转换为字符地址.......................68 '45.函数作用:字符地址转换为数值.......................69 '46.函数作用:等待时间（以秒计算）.....................69 '47.函数作用:得到字符串实际的长度（以单字节记）.......70 '48.函数作用:18位身份证最后一位有效性验证............70 '49.函数作用:计算符合maturity condition的拆解金额....72 '50.函数作用:对多个用同一分隔符分隔的待查找元素，逐一在表区域首列内搜索，将返回选定单元格的值相加，............72 '51.函数作用:根据个人所得税（工资）反算工资数.........73 '52.函数作用:判断表是否存在...........................74 '53.函数作用:角度转弧.................................74 '54.函数作用:比较相同的字符串.........................75 '55.函数作用:对选定的数组进行排序.....................76 '56.函数作用:取得指定月份天数.........................77 '57.函数作用:排序工作表活页薄.........................77 '58.函数作用:统计数组中非重复数据个数.................78 '59.函数作用:摘取子字符串.............................79 '60.函数作用:计算20000余个汉字的笔画.................79 '61.函数作用:删除当前工作表中的全部超连接.............80 '62.函数作用:取得相近数据.............................81 '63.函数作用:提取定串中汉字...........................81 '64.函数作用:搜索重复数据(选定范围)...................81 '65.函数作用:字符型转数字型...........................82 '66.函数作用:小写人民币转大写人民币...................83 '67.函数作用:取得指定月份人星期天个数.................84 '68.函数作用:侦测档案是否包含宏.......................84 '69.函数作用:获取循环参照单元格.......................85 '70.函数作用:创建桌面快捷方式.........................86 '71.函数作用:自动建立多级目录.........................86 '72.函数作用:统计经筛选后符合条件的记录条数...........87 '73.函数作用:复制单元格列高与栏宽.....................87 '74.函数作用:取消隐藏工作表（包括vba Project工程保护的)88 '75.函数作用:删除单元格自定义名称.....................88 '76.函数作用:从文件路径中取得文件名...................89 '77.函数作用:取得一个文件的扩展名.....................89 '78.函数作用:取得一个文件的路径.......................90 '79.函数作用:十进制转二进制...........................90 '80.函数作用:检查一个数组是否为空.....................90 '81.函数作用:字母栏名转数字栏名.......................91 '82.函数作用:数字栏名转文字栏名.......................91 '83.函数作用:判断一件活页夹中是否还有子目录...........92 '84.函数作用:判断一个文件是否在使用中.................92 '85.函数作用:列出档案详细摘要信息.....................93 '86.函数作用:获取菜单ID编号及名称列表................93 '87.函数作用:状态列动态显示文字.......................94 '88.函数作用:取得一个文件的路径2.....................94 '89.函数作用:取得一个文件的路径3.....................95 '90.函数作用:取得Activecell的栏名....................95 '91.函数作用:取得单元格中指定字符前的字符.............95 '92.函数作用:前单元格指定字符前的字符颜色改成红色.....95 '93.函数作用:根据数字返回对应的字母列号...............96 '94.函数作用:取工作表名字.............................96 '95.函数作用:取消所有隐藏的宏表.......................97 '96.函数作用:导出VBA Project代码.....................97 '97.函数作用:导入VBA Project代码.....................97 '98.函数作用:取得汉字拼音的第一个字母.................98 '99.函数作用:获取两栏中相同的数据....................100 '100.函数作用:选取当前工作表中公式出错的单元格﹐关返回出错个数...............................................101 '101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾101 '102.函数作用:获取vbproject引用项目.................102 '103.函数作用:移除Excel工作表中的外部数据连接.......103 '104.函数作用:将选择定单元格作成镜像图片.............103 '105.函数作用:反选择单元格中的数.....................105 '106.函数作用:在Excel中加入一个量度尺(以厘米为单位).106 '107.函数作用:在Excel中加入一个量度尺(以寸为单位)...109 '108.函数作用:取得一个短文件名的长文件名.............111 '109.函数作用:取得临时文件名.........................112 '110.函数作用:等用Shell调用的程序执行完成后再执行其它程序...................................................112 '111.函数作用:将Mouse显示成动画.....................113 '112.函数作用:限制Mouse移动范围.....................114 '113.函数作用:取得当前激活窗品句柄及标题.............114 '114.函数作用:取得屏幕分辨率.........................115 '115.函数作用:自动建立多级目录.......................115 '116.函数作用:将文件长度置零.........................116 '117.函数作用:读取WIN9X / Me共享文件夹密码..........116 '118.函数作用:取得预设的打印机及设置预设的打印机.....119 '119.函数作用:获得当前操作系统的打印机个数及检测打印是否存在.................................................120 '120.函数作用:枚举打印机名称清单.....................120 '121.函数作用:读取网络服务器当前时间.................122 '122.函数作用:下载文件到指定目录.....................123 '123.函数作用:自动映射网络驱动器.....................124 '124.函数作用:自动断开网络驱动器.....................125 '125.函数作用:连接选定单元格中的内容.................125 '126.函数作用:获取一个单元格中有指定字体颜色部份数据.126 '127.函数作用:对指定文件加XLS加密...................126 '128.函数作用:选择指定范围内使用了填充颜色的单元格...127 '129.函数作用:在特定的区域内查找文本,返回值是包含查找文本的单元格...........................................127 '130.函数作用:返回特定区域中最大值的地址.............128 '131.函数作用:删除表格中使用范围内的所有空白单元格...129 '132.函数作用:返回数组中有多少个指定的字符串.........129 '133.函数作用:返回当前工作表中引用了指定的单元的地址.130 '134.函数作用:获取Excel中字型列表...................131 '135.函数作用:获取一个字符串中有多少个数字字符.......131 '136.函数作用:在Excel中对多列进行填充...............131 '137.函数作用:对选定的范围进行数据填充（忽略单元格格式）132 '138.函数作用:VBA Project加密及解密.................132 '139.函数作用:列出收藏夹中的网址.....................133 '140.函数作用:计算两个日期之间相隔的年份,比如年龄,工龄等.可计算从1000年01月01日起的日期....................134 '141.函数作用:从字符串提取纯数字.....................135 '142.函数作用:将一个数组按升序排列...................136 '143.函数作用:将一个数组按降序排列...................137 '144.函数作用:删除空白列.............................137 '145.函数作用:判断工作表是否为空白...................138 '146.函数作用:将数据按类分到不同工作薄...............138 '147.函数作用:单元格内数据排序.......................139 '148.函数作用:对多栏排序.............................140 '149.函数作用:返回计算公式的值 [,值的计算公式].......140 '150.函数作用:把第一列=某个值对应的第二列的内容连在一起，并用、隔开...........................................141 '151.函数作用:取得系统使用模式.......................142 '152.函数作用:计算机注销/关机/重启...................142 '153.函数作用:更改计算机名称.........................143 '154.函数作用:从n位开始取出字符串中的汉字、英文字母、数字...................................................143 '155.函数作用:在指定列中寻找含有指定字符串的单元格，并将符合条件的单元格标为红色，并将对应的下一列单元格赋值为1。.....................................................144 '156.函数作用:清除字符串中的空格.....................145 '157.函数作用:查找合并单元格位置.....................145 '158.函数作用:阴阳历转换和阴阳历生日.................145 '159.函数作用:利用数组和Substitute来替换某字符......149 '160.函数作用:一键创建斜线表头.......................150 '161.函数作用:自动获取指定月的工作日.................151

excel中应用vba的实例(点击一个按钮就将e盘目录打印出来) 具体代码： Private Sub CommandButton1_Click() Dim i%, strFileName$, strDirectory$ i = 3 '从第3行开始 strDirectory = "E:\" strFileName = Dir(strDirectory, vbDirectory) Do While strFileName <> "" If strFileName <> "." And strFileName <> ".." Then If (GetAttr(strDirectory & strFileName) And vbDirectory) = vbDirectory Then Range("A" & i).Select i = i + 1 ActiveCell.FormulaR1C1 = strFileName End If End If strFileName = Dir Loop End Sub 打开该excel文件时可能会提示是否启用宏，点击启用，进去后点击里面的按钮开始执行上面代码。有些机器可能需要降低安全性，方法：工具 - 安全性 - 选择“低” - 确定，然后重新打开该excel文件。

为Excel编个智能输入器ExcelPrivate Sub CommandButton1_Click() Range("A1").Select '选中A1单元格 Selection.End(xlDown).Select '将光标定位到最后一行第一个单元格中 ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text '将相应的数据输入到表格下一行的相应单元格中 ActiveCell.Offset(1, 0).Range("B1") = TextBox2.Text ActiveCell.Offset(1, 0).Range("C1") = TextBox3.Text ActiveCell.Offset(1, 0).Range("D1") = TextBox4.Text ActiveCell.Offset(1, 0).Range("E1") = TextBox5.Text ActiveCell.Offset(1, 0).Range("F1") = TextBox6.Text ActiveCell.Offset(1, 0).Range("G1") = TextBox7.Text ActiveCell.Offset(1, 0).Range("H1") = TextBox8.Text ActiveCell.Offset(1, 0).Range("I1") = ComboBox1.Text ActiveCell.Offset(1, 0).Range("J1") = TextBox9.Text ActiveCell.Offset(1, 0).Range("K1") = TextBox10.Text ActiveCell.Offset(1, 0).Range("L1") = TextBox11.Text ActiveCell.Offset(1, 0).Range("M1") = TextBox12.Text ActiveCell.Offset(1, 0).Range("N1") = TextBox13.Text End Sub

VCL组件使用和开发

604

社区成员

13,460

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章