vb调用外部程序:在VB应用程序中调用Excel2000

　、Excel对象模型

　　为了在VB应用中Excel必须要了解Excel对象模型Excel对象模型描述了Excel理论结构所提供对象很多其中最重要对象即涉及VBExcel最可能用到对象有:

　　 2、Excel

　　在VB应用中Excel实质是将Excel作为个外部对象来引用由Excel对象模型提供能从VB应用内部来化操纵对象以及相关属性、思路方法和事件

　　1、在VB工程中添加对Excel类型库引用

　　为了能从VB应用中访问Excel丰富内部资源使Excel应用运行得更快需要在VB工程中添加对Excel类型库引用具体步骤如下:

　　a)从VB5“工程”菜单中选择“引用”；

　　b) 在“引用”对话框中选择Excel类型库:"Microsoft Excel9.0 Object Library"；

　　c)单击左边小方框使的出现“√”符号；

　　d)按“确定”退出

　　注:要想在VB应用中Excel你计算机系统中必须安装Excel

　　2、引用Application对象

　　Application对象是Excel对象模型顶层表示整个Excel应用在VB应用中Excel就是使用Application对象属性、思路方法和事件为此首先要声明对象变量:

Dim VBExcel As Object

　　或直接声明为Excel对象:

Dim VBExcel As Excel.Application

　　在声明对象变量的后可用CreateObject或GetObject给变量赋值新或已存在Application对象引用

　　a)用CreateObject生成新对象引用:

Set VBExcel=CreateObject ("Excel.Application")

　　串“Excel.Application”是提供Excel应用编程ID这个变量引用Excel应用本身

　　b)用GetO场ect打开已存在对象引用:

Set AppExcel=GetObject("SAMP.XLS")

　　上面语句打开文件SAMP.XLS

　　3、Application对象常用属性、思路方法

属性、思路方法 思路方法
Visible属性 取True或False表明Excel应用是否可见
Left,Top属性 Excel窗口位置；
Height, Width属性 Excel窗口大小；
WindowState属性 指定窗口状态取:XIMaximized(最大化)X1 Minimized(最小化)x1 Normal(缺省)
Quit思路方法 退出Microsoft Excel；
Calculate思路方法 重新计算所有打开工作簿、工作表或单元格
Evaluate思路方法 求值数学表达式并返回结果

　　举例1:求值数学表达式:

Dim VBExcel As Object
Set VBExcel=CreateObject ("Excel.Application")
X=VBExcel. Evaluate ("3+5*(cos (1/log (99. 9)))")
　　 3、使用Excel应用

　　如前所述在VB应用中Excel应用就是使用Application对象属性、思路方法和事件下面分类给出其中常用属性和思路方法

　　1、使用工作薄

　　Workbook对象代表Excel应用中当前打开个工作簿包含在Workbooks集合中可以通过Workbooks集合或表示当前活动工作簿Active Workbook对象访问Workbook对象

　　常用思路方法有:

属性、思路方法 意义
Add思路方法 创建新空白工作簿并将其添加到集合中
Open思路方法 打开工作簿
Activate思路方法 激活工作簿使指定工作簿变为活动工作簿以便作为Active Workbook对象使用
Save思路方法 按当前路径和名称保存现有工作簿(如是首次保存则将其保存到缺省名称中如BOOK1.XLS)
SaveAs思路方法 首次保存工作簿或用另名称保存工作簿
Close思路方法 关闭工作簿
PrOut思路方法 打印工作簿语法为:

PrOut (from, To, Copies, Preview, Prer, ToFile, Collate)

　　可选参数:

　From:打印起始页号如省略将从起始位置开始打印
　To:打印终止页号如省略将打印至最后页
　Copies:要打印份数如省略将只打印份
　Preview:如果为True则Excel打印指定对象的前进行打印预览如果为False或省略则立即打印该对象
　Prer:设置活动打印机名称
　ToFile:如果为True则打印输出到文件
　Collate:如果为True则逐份打印每份副本  

　　下面语句将活动工作簿2到5页打印3份:

ActiveWorkbook.PrOut From:=2 To 5 Copies:=3

　　举例2:生成、保存、关闭工作簿

Dim VBExcel As Excel.Application
Set VBExcel CreateObject("Excel.Application")
With VBExcel
.Workbooks.Add
With ActiveWorkbook
.Save As"C: \Temp \OUTPUT.XLS"
.Close
End With
.Quit
End With

　　2、使用工作表

　　Sheets集合表示工作簿中所有工作表可以通过Sheets集合来访问、激活、增加、更名和删除工作表个Worksheet对象代表个工作表

　　常用属性、思路方法有:

属性、思路方法 意义
Worksheets属性 返回Sheets集合
Name属性 工作表更名
Add思路方法 创建新工作表并将其添加到工作簿中
Select思路方法 选择工作表
Copy思路方法 复制工作表
Move思路方法 将指定工作表移到工作簿另位置
Delete思路方法 删除指定工作表
PrOut思路方法 打印工作表

　　举例3:将C盘工作簿中工作表复制到A盘工作簿中:

Dim VBExcel As Excel.Application
Set VBExcel=CreateObject("Excel.Application")
With VBExcel
　.Workbooks.Open "C:\Temp\OUTPUT.XLS"
　.Workbooks.Open"A:\OUTPUT1.XLS"
　.Workbooks("OUTPUT.XLS").Sheets ("Sales").Copy
　.Workbooks("OUTPUT1.XLS)
　.Workbooks("OUTPUT1.XLS").Save
　.Workbooks("OUTPUT.XLS").Close
　.Workbooks("OUTPUTI.XLS").Close
　.Quit
End With

　　3、使用单元范围

　　Range对象代表工作表某单元格、某行、某列、某选定区域或者某 3维区域

　　常用属性、思路方法有:

属性、思路方法 意义
Range属性 Range (arg)其中arg为A1--样式符号表示单个单元格或单元格区域
Cells属性 Cells (row, col )(其中row为行号col为列号)表示单个单元格
ColumnWidth属性 指定区域中所有列列宽
Rowl3eight属性 指定区域中所有行行宽
Value属性 指定区域中所有单元格值(缺省属性)
Formula属性 指定单元格公式由A1--样式引用
Select思路方法 选择范围
Copy思路方法 将范围内容复制到剪贴板
C1earContents思路方法 清除范围内容
Delete思路方法 删除指定单元范围

　　4、使用图表

　　Chart对象代表工作簿中图表该图表既可为嵌人式图表(包含于ChartObject对象中)也可为分立图表工作表

　　常用思路方法有:

思路方法 意义

Add思路方法 新建图表工作表返回Chart对象
PrineOut思路方法 打印图表
ChartWizard思路方法 修改给定图表属性其语法为:
　
ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels,
SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)

　　其中:

　　Source:包含新图表源数据区域如省略将修改活动图表工作表或活动工作表中处于选定状态嵌人式图表

　　Gallery:图表类型其值可为下列常量的:xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter, xlCombination, x13DArea, x13DBar、x13DColumn, x13DLine, x13DPie、x13 DSurface、xlDoughnut或xlDefaultAutoFormat

　　Format:内置自动套用格式编号如省略将选择默认值

　　P1otBy:指定系列中数据是来自行(xlRows)还是列(xlColumns)

　　CategoryLabels:表示包含分类标志源区域内行数或列数整数

　　SeriesLabels:表示包含系列标志源区域内行数或列数整数

　　HasLegend:若指定True则图表将具有图例

　　Title:图表标题文字

　　CategoryTitle:分类轴标题文字

　　ValueTitle:数值轴标题文字

　　ExtraTitle: 3维图表系列轴标题或 2维图表第 2数值轴标题

　　可组合使用Add思路方法和ChartWizard思路方法以创建包含工作表中数据图表工作表下例基于工作表“Sheetl”中单元格区域“A1:A20”中数据生成新折线图并打印

With Charts.Add
　.ChartWizard source:=Worksheets ("sheet1").Range ("a1:a20"),gallery:=xlLine, title:=“折线图表”
　.Prout
End With


　　5、使用Excel工作表

　　在VB语句中可使用大部分Excel工作表可通过WorksheetFunction对象Excel工作表下面Sub过程用Min工作表求出指定区域中单元格最小值并通过消息框显示结果值

Sub UseFunction
Dim myRange As Range
Set myRange=Worksheets ("Sheet1").Range("B2:F10")
answer=Application.WorksheetFunction.Min(myRange)
MsgBox answer
End Sub

　　如果使用以区域引用为参数工作表必须指定个Range对象如可用Match工作表对A1:A10区域所有单元格进行搜索

Sub FindFirst
my Var=Application.WorksheetFunction.Match (9, Worksheets( 1).Range("A1:A10")0)
MsgBox myVar
End Sub

　　要在单元格中插人工作表可将该指定为对应于Range对象Formula属性值在以下举例中将当前工作簿Sheetl内A1:B3区域Formula属性指定为RAND工作表(此产生 2个随机数)

Sub InsertFormula
Worksheets ("Sheet1" ).Range("A1:B3").Formula="RAND"
End Sub

　　以上简要介绍了Excel对象模型中部分对象及其属性和思路方法更详细信息可参阅Excel 2000帮助中“Microsoft Excel Visual Basic参考”节内容实际上Microsoft Office家族Word,PowerPo, Access和Project等应用都可以在VB应用中其原理和步骤完全相同只是其对象模型有所区别而已 

延伸阅读

• 2011-6-25-- 调用dll,c#调用DLL
• 2010-12-9-- asp调用dll,ASP 调用dll及封装dll实例
• 2009-9-12-- vb调用dll:Asp中调用VB编写的DLL
• 2009-9-12-- vb调用存储过程:VB实现动态调用含DateTime类型存储过程
• 2009-2-12-- vbdll:用VB创建Windows快捷方式(无需DLL)
• 2008-9-10-- 如何调用dll:.net调用DLL返回不固定“结构”类型数据
• 2009-1-15-- vb调用ie:利用VB实现对IE的调用和控制
• 2009-1-15-- vbdll:使用VB将ASP代码封装生成DLL文件
• 2009-1-15-- delphi调用chm:在VB中调用CHM 帮助的几种思路方法
• 2009-1-15-- vb中如何调用过程:在VB中调用HTMLHELP文件