?? 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 + -