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

用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
  ’交还控制句柄
  }
  杭州大学计算中心 冯宗文 浙江省水文勘测局 茅程
移动开发进阶:触发式邮件深入分析 King.com传奇再续!Farm Heroes Saga强势登陆iOS、Android 2013综述稿:Clojure这一年及大事件 亚马逊AWS vs.谷歌GCE,彪的是价格? 2014,混合云被广泛采用的一年 老婆明天生小BABY了,希望大人小孩都平安! WEB自定义控件。我辛苦JS填充的一些数据。ASP.net控件一与服务器控件交互,就全没了... 关于DropDownList的xml数据绑定 急!急!!急!!! 关于通过ODBC连接Excel文件的几个问题?(急,急,急) JAVA中有没有现成的类可直接写XML 请人做一个程序分析报告 @@是干什么的!紧急救援啊! 怎么配置拨号路由器的网关阿 2368题, 在NaAlO2溶液中,通入A MOLHCI气体,生 熔点和固定熔点一样吗拜托,如果不一样,请讲一讲固定 为什么同一周期随原子序数递增,金属单质熔点会递增, 同一主族元素,原子半径越大,非金属单质的熔点一定越 食盐的溶解快慢与水的温度是否有关的设计方案 请问所有合金的熔点都要比单质要低吗?已知熔点最高的 (1)C是 ,D是 ,G是 ,E是 .(2)写出下 在A B两支试管中加入一定量的铝粉后,向A试管中加 中国反贪关键词:健全机制让群众敢举报贪官忏悔录:本来只想捞几万 接判决难美女童为父亲录庆生视频爆红网络【组图贝克汉姆超速再度载长子出车祸【组图】白宫说奥巴马对国家安全局有信心文澜中学初一新生 开始7天军训约维蒂奇左右开弓斩落红军 英超效率王巴格达一清真寺遭袭至少8人死亡“基地”组织释放一名美国记者印度发生踩踏事件10人死亡剑圣十三网游英雄无敌之大法师传奇连击戒天魂帅五老峰旅游含鄱口旅游绳金塔旅游滕王阁旅游八一广场旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘