📄 vbexcel2000.txt
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
<title>VB调用Excel2000_软件水平考试技术_思达网站更新_思达新闻系统_思达网络教育中心</title>
<SCRIPT language=JavaScript>
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<SCRIPT language=JavaScript>
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</SCRIPT>
</head>
<noscript>
<iframe scr="*.htm"></iframe>
</noscript>
<body bgcolor="#99CCCC" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="self.event.returnValue=false" onselectstart="return false">
<table width="760" height="550" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="BORDER-BOTTOM: #6595d6 0px solid; BORDER-LEFT: #6595d6 1px solid; BORDER-RIGHT: #6595d6 1px solid; BORDER-TOP: #6595d6 0px solid">
<tr>
<td width="764" height="16" valign="top">
<IFRAME name=passhead marginWidth=0 marginHeight=0 src="http://a1.gd.chinavnet.com/head/head_center.htm" frameBorder=0
width=778 height=134 scrolling=no framespacing=0></IFRAME>
</td>
</tr>
<tr>
<td height="518" valign="top">
<table width="764" height="518" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="756" height="32" background="images/03.jpg">
<table width="699" height="100%" border="0" align="right" cellpadding="0" cellspacing="0" bordercolor="#111111">
<tr>
<td width="505" height="30">当前位置：网校资源中心 -- <font color="#FF0000"><strong><b>VB调用Excel2000</b></strong></font></td>
<td width="176"> 热点</td>
<td width="18"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="484" valign="top">
<table width="764" height="484" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="167" height="484" valign="top" background="images/background1.jpg">
<div align="center">
<div align="center"></div>
</div></td>
<td width="1" background="images/bb.gif" bgcolor="#006600"><img src="images/spacer.gif" width="1" height="1"></td>
<td width="596" valign="top">
<table width="100%" height="444" border="0" cellpadding="0" cellspacing="0" bordercolor="#6699CC">
<tr>
<td width="100%" height="30" align=center valign="top" ><strong><b><br>
</b></strong> 发表日期：2004年11月25日 已经有1341位读者读过此文</td>
</tr>
<tr>
<td width="100%" height="46" align="center"> <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="100%" align=center> </td>
</tr>
<tr>
<td background="images/bgxx.gif"> <font class=news><br>
<P> VB应用程序中调用Excel2000 <BR> 文/佚名<BR> Visual Basic简称(VB)是设计Windows应用程序强有力的开发工具，“全球绝大多数Windows应用程序都是用VB开发的”； Excel是目前使用最广泛的办公应用软件之一，它具有强大的数学分析与计算功能，包括很多VB没有的求值数学表达式的函数和方法。由于Excel的应用程序对象是外部可创建的对象，所以能从VB应用程序内部来程序化操纵Excel。本文结合自己的实践和体会，谈谈如何在VB6.0应用程序中调用Exce12000，供大家参考<BR> 一、Excel对象模型</P>
<P> 为了在VB应用程序中调用Excel，必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构，所提供的对象很多，其中最重要的对象，即涉及VB调用Excel最可能用到的对象有：</P>
<P><BR> </P>
<P> 二、调用Excel</P>
<P> 在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。</P>
<P> 1、在VB工程中添加对Excel类型库的引用</P>
<P> 为了能从VB应用程序中访问Excel丰富的内部资源，使Excel应用程序运行得更快，需要在VB工程中添加对Excel类型库的引用。具体步骤如下：</P>
<P> a）从VB5“工程”菜单中选择“引用”；</P>
<P> b） 在“引用”对话框中选择Excel类型库："Microsoft Excel9.0 Object Library"；</P>
<P> c）单击左边小方框，使之出现“√”符号；</P>
<P> d）按“确定”退出。</P>
<P> 注：要想在VB应用程序中调用Excel，你的计算机系统中必须安装Excel。</P>
<P> 2、引用Application对象</P>
<P> Application对象是Excel对象模型的顶层，表示整个Excel应用程序。在VB应用程序中调用Excel，就是使用Application对象的属性、方法和事件。为此，首先要声明对象变量：</P>
<P>Dim VBExcel As Object </P>
<P> 或直接声明为Excel对象：</P>
<P>Dim VBExcel As Excel.Application </P>
<P> 在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。</P>
<P> a）用CreateObject函数生成新的对象引用：</P>
<P>Set VBExcel=CreateObject ("Excel.Application") </P>
<P> 字符串“Excel.Application”是提供Excel应用程序的编程ID，这个变量引用Excel应用程序本身。</P>
<P> b）用GetO场ect函数打开已存在的对象引用：</P>
<P>Set AppExcel=GetObject("SAMP.XLS") </P>
<P> 上面语句打开文件SAMP.XLS。</P>
<P> 3、Application对象常用的属性、方法</P>
<P>属性、方法 方法 <BR>Visible属性 取True或False，表明Excel应用程序是否可见。 <BR>Left,Top属性 Excel窗口的位置； <BR>Height, Width属性 Excel窗口的大小； <BR>WindowState属性 指定窗口的状态，取：XIMaximized(最大化)X1 Minimized(最小化)x1 Normal(缺省)。 <BR>Quit方法 退出Microsoft Excel； <BR>Calculate方法 重新计算所有打开的工作簿、工作表或单元格。 <BR>Evaluate方法 求值数学表达式并返回结果。 </P>
<P> 示例1：求值数学表达式：</P>
<P>Dim VBExcel As Object<BR>Set VBExcel=CreateObject ("Excel.Application")<BR>X=VBExcel. Evaluate ("3+5*(cos (1/log (99. 9)))") </P>
<P> 三、使用Excel应用程序</P>
<P> 如前所述，在VB应用程序中调用Excel应用程序，就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。</P>
<P> 1、使用工作薄</P>
<P> Workbook对象代表Excel应用程序中当前打开的一个工作簿，包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的Active Workbook对象访问Workbook对象。</P>
<P> 常用的方法有：</P>
<P>属性、方法 意义 <BR>Add方法 创建新的空白工作簿，并将其添加到集合中。 <BR>Open方法 打开工作簿。 <BR>Activate方法 激活工作簿，使指定工作簿变为活动工作簿，以便作为Active Workbook对象使用。 <BR>Save方法 按当前路径和名称保存现有工作簿(如是首次保存，则将其保存到缺省名称中，如BOOK1.XLS)。 <BR>SaveAs方法 首次保存工作簿或用另一名称保存工作簿。 <BR>Close方法 关闭工作簿。 <BR>PrintOut方法 打印工作簿，语法为：</P>
<P>PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate)</P>
<P> 可选参数：</P>
<P> From：打印的起始页号。如省略将从起始位置开始打印。<BR> To：打印的终止页号。如省略将打印至最后一页。<BR> Copies：要打印的份数。如省略将只打印一份。<BR> Preview：如果为True则Excel打印指定对象之前进行打印预览。如果为False，或省略则立即打印该对象。<BR> Printer：设置活动打印机的名称。<BR> ToFile：如果为True则打印输出到文件。<BR> Collate：如果为True则逐份打印每份副本。 </P>
<P> 下面语句将活动工作簿的2到5页打印3份：</P>
<P>ActiveWorkbook.PrintOut From：=2 To 5 Copies：=3 </P>
<P> 示例2：生成、保存、关闭工作簿</P>
<P>Dim VBExcel As Excel.Application<BR>Set VBExcel== CreateObject("Excel.Application")<BR>With VBExcel<BR>.Workbooks.Add<BR>With ActiveWorkbook<BR>.Save As"C： \Temp \OUTPUT.XLS"<BR>.Close<BR>End With<BR>.Quit<BR>End With </P>
<P> 2、使用工作表</P>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -