说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用VB5直接控制Excel 97

HTML文档下载 WORD文档下载 PDF文档下载
用VB5直接控制Excel 97

  用VB5可编写直接控制Excel操作的程序,方法是用VB的OLE自动化 技术获取Excel 97 的控制句柄,从而直接控制Excel 97的一系列操作 。与用VBA语言编写的Excel控制程序相比,两者主要有如下差异:
  1. 实现VB5对Excel的直接控制后,可在用户所编的程序中调用Ex cel,即从控制界面直接调入Excel,且退出Excel后又回到控制界面,使 人看起来就如Excel是依附于用户程序上。这给既想获取Excel的强大 支持,又想编写"傻瓜"软件交给不熟悉计算机的用户使用的程序员来 说,其好处是不言而喻的。VBA则必须依附于特定的Excel环境,且只有 先进入确定的Excel环境后,才能运行VBA程序。
  2. 用VB5实现Excel的控制后,所有程序可编译成完整的EXE执行 文件,直接在Win 95 /NT平台上执行,运行环境更为简洁明了,程序更 易加密。不会因为有多个程序指令块带来管理麻烦,也不易因用户的 不小心使用而出现程序丢失,造成功能短缺。VBA编写的程序最大的不 方便是不能编译成执行文件,不能脱离其主应用程序独立运行。
  3. VBA在Excel环境中,几乎是一个万能的工具,可通过建立功能 强大的宏指令来扩展或模拟Excel的全部功能。而VB的OLE自动技术目 前还不能实现Excel所有功能的模拟与控制。
  操作步骤
  用VB5控制Excel 97的操作步骤如下:
  1. 引用Microsoft Excel类型库:
  *从"工程"菜单中选择"引用"栏;
  *选择Microsoft Excel 8.0 Object Library;
  *选择"确定"。
  2. 声明显式数据类型:
  Dim x1 as Excel.Application
  3. 创建新实例,获取Excel的控制句柄:
  Set x1=CreatObject("Excel.Application")
  4. 由于Excel 97启动为不可见,调用后需使其显示出来:
  x1.Visible=True
  5. 交还Excel控制句柄:
  Set x1=Nothing
  同理,用此方法也可直接控制Word、Access等Microsoft Office 97的其他应用软件,享受其便利和支持。
  操作程序
  Private Sub Contral_Excel_97()
  {
  Dim x1 as Excel.Application '声明显式数据类型
  Set x1=CreateObject("Excel.Application")
   '创建新实例
  x1.Workbooks.Add
  ’添加新工作簿
  x1.Range("A1").Value=5 ’A1格赋值
  x1.Range("A2").Value=8 ’A2格赋值
  x1.Range("A3").Value=16 ’A3格赋值
  x1.Range("A4").Value=7 ’A4格赋值
  x1.Charts.Add
  ’插入图形
  x1.ActiveChart.ChartType=x1ColumnClustered
  ’柱状图
  x1.ActiveChart.SetSourceData Source:=x1.Sheets("Sheet1") .Range("A1:A4")
  PlotBy:=x1Columns
  ’图形数据来源
  With x1.ActiveChart
  ’图标题
  .HasTitle=False  ’没有总标题
  .Axes(x1Category,x1Primary).HasTitle=False
  .Axes(x1Value,x1Primary).HasTitle=True
  ’有Y轴标题
  .Axes(x1Value,x1Primary).AxisTitle.Characters
  .Text="销售电视机(台)"
  End With
  With x1.ActiveChart.PageSetup ’图形页面设置
  .CenterHeader="&28" & ListSTNM(Combo2. ListIndex)&"逐日 电视机销售"
  ’标题
  .CenterFooter="&12x x x 商场" ’下边落款
  .RightFooter=Format(Now,"yyyy-m-d-h:n")
  ’右下角显示时间
  .Orientation=x1Landscape  ’打印纸页面横向
  End With
  x1.ActiveChart.PlotArea.Interior.ColorIndex=x1None
  ’无背景色
  x1.ActiveWindow.SelectedSheets.PrintPreview
  ’打印预览
  x1.Visible=True
  ’显示图形
  Set x1=Nothing
  ’交还控制句柄
  }
  杭州大学计算中心 冯宗文 浙江省水文勘测局 茅程
制作可移动的分割窗体-Delphi资料 制作用于日期时间型字段的DELPHI数据感知控件 制作主窗口显示前的版权窗口-Delphi资料 状态条插入可视控件-Delphi资料 做动态显示的控件-Delphi资料 做一个OpenGL控件-Delphi资料 Api函数列表——与打印相关-Delphi资料 Delphi 5快速创建控制面板程序 Delphi 编写Windows NT服务 Delphi 的 分 发 工 具 ─ ─InstallShield Delphi 关于系统编程中的技巧 Delphi3如何调用Excel Delphi5.0中的函数调用模式 用Delphi 编 程 时 如 何 利 用 线 程 Delphi的8个技巧 delphi函数参考手册 DELPHI键盘常用快捷键汇总(DEFAULT 和CLASSIC) Delphi实现自动切换输入法 Delphi使用汇编 Delphi系 统 提 示 信 息 的 汉 化 DELPHI下的多线程程序设计 Delphi下汉字输入法的编程及使用 在Delphi与C++之间实现函数与对象共享 DELPHI中处理时间 Delphi中的INI文件编程 DELPHI中的消息处理机制 Delphi中对目录拷贝、删除和搬移的操作 Delphi中任务栏状态区的编程 Delphi中如何处理2000年问题 Delphi中如何实现系统权限的设置 Delphi中异常的截获及其个性化处理 大问题::创建一个DataStore后,怎么写那些Retrieve条件啊?怎么用不了scrolltorow()?? C#鼠标事件的问题,急!!!(在线等待) 怎么样查询 想发布一点东西,什么网站好 关于打印问题:2K下如何能调用到office的打印设置窗口?(在线等,马上结贴,来者有分) 请教一个基本问题 六百里加急!!! 在线等,关于数据报表 菜鸟问题 求职 急!midas问题,高手请进 如何让下拉框只在选中的情况下出现那个三角形的下拉按钮啊?可以吗? 在hp—unix系统编c程序出现下面的错误 快来看啊!刚出炉的求解大送分!!Datagrid事件的问题,不要错过好!!简单!分多!! 哪里可以下载jbuilder9企业版?? 哪里有免费的空间可以申请? 如何获取某个窗体中各个部分的类名??? 我是一个刚刚对计算机感兴趣的人,想问一下大虾几个问题!! 有谁遇到过这样的问题?请大家帮一下忙!谢谢! 请问 jfreechart 怎么使用 ? 100 分请教!!! 数据库日志被删怎么办??? 怎样设置EDIT的长度设题????急!!!!!!!!!! 求职 求职 求职 求职 求职 求职 哪里有“Java Servlet Programming, 2nd Edition”电子书下载? 急,有关读写文本文件的! 北京掌中仙境技术有限公司招聘程序开发人员 在.net中如何获得数据库中的所有用户表的信息,以及......? 在线等!!菜鸟一问:用什么函数使‘空’返回为零,就像foxpro的iif... 如何实现两个form间参数的传递? 一个关于DBCHART的使用问题。 数据机构的一道题!~(队列) 求救高手?active dll的Ftp上传组件的问题?(100) TQuery返回的字段类型信息如何区分numeric还是float? 我感觉VC里最神秘的几块内容(至今也没搞懂) 在这里混了有段日子了 升星 散分!!(请版主别删) 欢迎大家加入我建的QQ群 请问一下各位是如何调用第三方的DLL。例如:华为DLL.清华深资DLL。等等。。。 QRBand能否自动换页的问题。 请问有哪位 有ACCP的的全套资料第一学期第一学年 资料 一个关treeview的问题 sql server有没有办法看一个image类型值是否有无? 嵌入到outlook控件的问题 一个奇怪的问题: 怎么老打不开数据库set db= new notesdatabase("","data.nsf")??? 如何调用DLL啊? JSP怎么样调用sessionbean? 如何在Cell单元格显示数据库中已image类型存放的图片?(急) php有什么好办法把mysql里面枚举型字段的各个项目读出来? easy problem 文件问题 在线等候 北京掌中仙境技术有限公司招聘程序开发人员 请问win2003中如何起用3d? 7.08+8.13×12.9÷(86×40.65) 求20个病句并修改, ‘清荣峻茂’的景色描绘下来 私人可以开自来水公司吗? request.getParameter("username") == null "" :request.getParameter("username") 里的?和:怎么理解 校内的所见所感作文400字 石灰吟的意思是什么 String userName=request.getParameter("userName");什么意思 有什么好办法吗? 自来水属于国家还是私人.近日回了一趟老家,毕竟是农村,肯定不是想居民点哪样集中(其实我们这里也有6家人),挨到的都安装了自来水,“为什么我们这里没按起来”我问父亲.他说:“自来 辛弃疾什么意思 怎样学历史 《石灰吟》的大致意思是什么.急. 稼轩什么意思 请你发挥你的想象力,描绘一下“清荣峻茂”是一幅怎样的景象?50字左右 我想问一下,新建一个自来水厂属于水利水电工程吗 辛弃疾有什么四卷 人的红细胞算是原核细胞还是真核细胞? 已知成等差数列的3个正数的和等于15,且这3个正数依次加9,后,则成等比数列,求这3个正数 辛弃疾号啥 船舶涂料牌子好? 修改病句下面的怎么改,因为这是山区的一个小站,所以站上的工作搞得很出色.汗水慢慢的从他额头上不断的滴下.修改病句?非洲是个多姿多彩的世界.换种句式,意思保持不变. 你们心中的辛弃疾是什么样的!如题 我们为什么学历史? 阅读伟人细胞 如果你是贾里的朋友 会怎么样劝他 100字 :(人和动物成熟的)红细胞是原核细胞嘛,它是特例嘛?》 包公灵签的第十七签,求婚姻的,第十七签上签古人:无,签文:园林晚景见荣华,万紫千红富贵家,世事百年前已定;犹如锦上又添花.解白:男愿成家,女愿荣华,婚姻配合,锦上添花. 求解说签文. 阅读伟人细胞 如果你是贾里的朋友 会怎么样劝他 真核细胞是真核生物的细胞还是有成熟细胞核的细胞?红细胞算么? 如何学历史? 《伟人细胞》中你想对贾里说什么 50个字左右 两个加数都扩大8倍,则和扩大( )倍. 如何描写“夏天” 修改下面的病句急王明被评为我们班的班长. 成败 生死 昼夜 东西 夏的描写 改病句,具体如下!急.弓着腰,撑着四爪,瞪大眼睛盯着面前一顿快到口的美味.真有不吃掉决不罢休的气势.也许好像是激怒了小青蛙,小青蛙的眼睛瞪得更大了. 全自动电脑横机度目,度目1到度目33, 急求描写月亮的诗三首 沐( )而冠 ( )( )撼树 投( )忌器 ( )( )学舌 风声( )( ) ( )占( )巢 这题答案是什么 慧骃国,侍从们的帮助下,作者建造了一艘独木舟,冒险出海,抵达到哪里并希望在哪里安居? 干枯( )( )( )( )秀丽夜不( )( ) 目不转机的机是什么意思 有理数的划分 有理数——正有理数,(),().这三个又分为什么?我只知道正有理数分为正整数和()其他不知道 国画按类型分,分为哪三大类 设a>b>0,A是a,b的等差中项,G是a,b的等比中项,(G>0)且A=2G,则a/b等于 这到题的答案是什么 脱氧核苷酸和脱氧核酸有什么区别? 若两数a,b的等差中项等于这两数的等比中项,则a/b的值多少? 计算图形中阴影部分的面积 请教,真正的素质教育是什么样的大神们帮帮忙理论少点,说点现实的样子 港版苹果5是英文字吗? 求论文英文翻译,急着用,谢谢各位帮忙啦!翻译文如下:激光测距原理摘 要:激光问世后,由于其在振幅、相位、频率、偏振光方向已经传播方向具有非常高的精度,所以给精确测距等开辟了新 非国民素质教育是个啥?这样的本科证有用吗? 微信雷达添加朋友的距离是多少 历史和政治为什么这么难学?及格好难啊,有没有什么方法? 25又9分之五*29+65又9分之5*29+1/9*29 英语改病句 ①This photo often makes me to think of my teacher in Grade Seven②Our team won the team of Class Two③Tow thousands people are watching the rising of our national flag④We are all listening to beautiful music careful ⑤The idea 有没有历史学的好的,方法教一下. 新加坡公共交通“有人味儿”国际新闻早报:美国总统与伊拉克总理谈韩国将重组国军网络司令部 以提高工作克里急赴中东安抚沙特 美沙关系因叙问土耳其4名女议员戴头巾出席会议 打破梅德韦杰夫谈监听丑闻:美国不能这样厚俄“彼得大帝”号核动力巡洋舰进入地中英国检方称《世界新闻报》曾窃听哈里王泰国机长驾照过期在南京被停飞 乘客机黄坤明辞去杭州市人大常委会主任职务 浪漫升级 新加坡7大蜜月旅行地39岁杨采妮今新加坡出嫁 明星闺蜜到朴槿惠首谈“网军干涉选举”梅德韦杰夫:美国窃听外国领导人的行为普京登顶权势榜 只怪奥巴马不争气韩国三四流整形医生赴中国淘金 自称顶韩国三四流整形医生赴中国淘金 自称顶杭州启动最高规格专项督查 严惩公款请今年以来浙江平均雾霾日数历史同期最多美国超级追星族与上万明星合影(图)美正式削减50亿美元食品券 4700祝我最爱的老师节日快乐!老师您辛苦了[儿童成长]想知道你的孩子可能长多高Top5 | 除了数羊,我们还能阅读骁龙820明年亮相小米5或首发 已在雍正是怎么死的?被两个女人谋害而暴毙昂达V989拆机全志A80活的还不如狗??13个怀过孕才懂的事。【Daily Stat】无能管理者不廉颇和蔺相如是战国时哪国人 科举答案家长造吗, 1岁内宝宝睡眠有禁忌培养创新意愿,3招成为创新型领导人你挑着担,我牵马末代皇后婉容怎么过豪华生日宴终于钓上真爱啦~雅虎前CEO亲述:注资阿里幕后故事网贷之家收购腾讯财付通,支付圈已经炸【活动】浙大校友创业赛第二期“求是创3~4个月婴幼儿发育评估,妈妈早知道【无界沙龙五十九期】微信之上的创新性此包很实用,求大神给详解
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘