vb程序调用excel数据

1 EXCEL的对象模型

　　如果一个应用程序支持自动化技术，那么其它的应用就可以通过其暴露的对象，对它进行控制，控制程序称为客户机，而被控制的一方就称为服务器，被控制的对象就是Active对象。VB正是通过EXCEL显露的各级对象来控制EXCEL工作的。每个对象都有各自的方法和属性，通过方法可以实现对对象的控制，而属性则可以改变对象的各种状态。

　　理解EXCEL的对象模型是对其编程的基础。EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素，这些对象元素就是VB可以操纵的。在EXCEL对象的层次结构中，最顶层是Application对象，是Excel本身。从该对象开始往下依次是：

.workbooks对象集，是Application对象的下层，其指的是Excel的工作簿文件。

.worksheets对象集，是Workbooks对象集的下层，它表示的是Excel的一个工作表。

.Cells和Range对象，它们是worksheets对象的下层，它则指向Excel工作表中的一个或多个单元格。 

　　以上介绍的四个对象是Excel中最重要也是用得最多的对象，而且从上面的介绍中也不难看出，要控制Excel中的某个具体对象，如某个工作簿中某一表格中的单元格，就必须从Excel层次结构对象的最上层即Application对象开始遍历。

2 Excel对象的使用

2.1 application对象的使用

如前所述，Application对象位于Excel层次结构对象的最上层，它代表的是Excel自身，我们的应用程序理应从Application对象的建立开始。VB控制Excel的启动方式有几种，在这里我们使用了API调用，可以确保目前系统中只有一个Excel副本在运行，程序代码和说明如下：

Option Explicit

Public xlapp As Object‘Excel对象

Public xlbook As Object‘工作簿

Public xlsheet As Object‘工作表

Declare Function FindWindow Lib "user32" Alias _

"FindWindowA" (ByVal lpClassName As String, _

ByVal lpWindowName As Long) As Long

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

(ByVal hwnd As long,ByVal wMsg As Long, ByVal wParam As Long, lParam_ 

     As Any) As_  Long 

　　以上是公有变量和API函数应在模块中声明。

    Sub GetExcel()

   Dim MyXL As Object  '用于存放Microsoft Excel 引用的变量。

   Dim ExcelWasNotRunning As Boolean '用于最后释放的标记。

   On Error Resume Next  '延迟错误捕获。

   '不带第一个参数调用 Getobject 函数将返回对该应用程序的实例的引用。

    '如果该应用程序不在运行，则会产生错误。

   Set MyXL = GetObject(, "Excel.Application")

   If Err.Number <> 0 Then ExcelWasNotRunning = True

   Err.Clear '如果发生错误则要清除 Err 对象。

   '检测 Microsoft Excel。如果 Microsoft Excel 在运行，则将其加入运行对象表。

  DetectExcel      '该过程检测并登记正在运行的 Excel

   '设置其 Application 属性，显示 Microsoft Excel。

   '然后使用 MyXL 对象引用的 Windows 集合,显示包含该文件的实际窗口。

   MyXL.Application.Visible = True

   MyXL.Parent.Windows(1).Visible = True

   '如果在启动时，Microsoft Excel 的这份副本不在运行中，

   '则使用 Application 属性的 Quit 方法来关闭它。

   '注意，当试图退出 Microsoft Excel 时，

     '标题栏会闪烁，并显示一条消息询问是否保存所加载的文件。

   If ExcelWasNotRunning = True Then

    MyXL.Application.Quit

   End If

    Set MyXL = Nothing  '释放对该应用程序和电子数据表的引用。

End Sub

   '该过程检测并登记正在运行的 Excel。

Sub DetectExcel()

Const WM_USER = 1024

    Dim hwnd As Long

'如果 Excel 在运行，则该 API 调用将返回其句柄。

    hwnd = FindWindow("XLMAIN", 0)

    If hwnd = 0 Then  '0 表示没有 Excel 在运行。

    Exit Sub

    Else

     'Excel 在运行，因此可以使用 SendMessage API'函数将其放入运行对象表。

     SendMessage hwnd, WM_USER + 18, 0, 0

     End If

End Sub

    　　有了Application对象，就可以非常方便地访问Excel应用程序中的其它对象，以及这此对象的属性和方法。

    2.2 workbooks对象的使用

    dim xlbook as object    ‘定义一个指向工作簿变量

set xlbook=xlapp.application.workbooks.add 

　　使用ADD方法新建一个空白的工作簿。

    2.3 worksheets对象的使用

    dim xlsheet as object    ‘定义一个指向工作表的变量

set xlsheet=xlapp.application.workshets.add

或者：set xlsheet=xlapp.application.worksheet(1)   ‘指向当前工作簿的第一页

2.4 Cells和Range对象的应用

    　　引用一个工作表(xlsheet)中的某个单位格用以下代码：

    　　xlsheet.cells(I,j)=100  ‘表示在第I行第J列中写入100这个数。

    　　引用工作表中的多个单位格用以下代码：

    With xlsheet                          '设置边框为是实际上线

.Range(.Cells(7,1),.Cells(28,29)).Borders.LineStyle = xlContinuous

End With

3 应用实例

　　该实例给出怎样运行Excel创建复杂表格以及向表格填充数据的完整过程。在开始应用程序前，我们要做的准备工作是建立一个我们所需格式的Excel模板。模板的作用相信大家都不会陌生。我所做的模板如下(模板文件取名为“土工试验成果表”)：

　　模板可以存在指定的文件夹里，也可以在于Excel存放模板的文件夹里。

　　打开VB编程环境，选择新建一标准工程。要想在VB中很好地调用Excel，首先必须打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel8.0 object library项。然后在窗体中加入一命令按钮，其caption属性为：Excel输出。

　　即command1.caption= Excel输出。

　　以下是代码，其中模块中的代码和上面介绍的application使用代码是一样的，不再列出。

    Private Sub Command1_Click()

 Dim i, j As Integer

 Call GetExcel

 Set xlapp = GetObject("土工试验成果表.XLS")     '打开模扳文件

xlapp.Parent.Windows(1).Visible = True        '使父窗体可见

 Set xlsheet = xlapp.Application.Worksheets(1)'当前工作簿的第一页

 For i = 7 To 28‘这段代码是将整数1到29写入单位格中，实际应用时可

   For j = 1 To 29            ‘读一数据文件并按要求写入表格中

     xlsheet.Cells(i, j) = j   '当前工作簿第一页的第I行第J列

   Next j

 Next i

 With xlsheet                                '设置边框为是实线

    .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous

 End With

xlsheet.SaveAs "d:\emp\\w2.xls"           ‘按指定文件名存盘

' 引用当前工作簿的第二页

 Set xlsheet = xlapp.Application.Worksheets(2) 

     xlsheet.Cells(7, 2) = 7      ‘在第二页的第7行第2列写入7

    Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿

End Sub

　　参照上述代码，就可以随心所欲地发挥你的编程艺术了。其实你还可以让Excel在后台运行，甚至于直接在打印机上输出结果，认人感觉不到Excel在运行，是不是很方便？

　　以上只是本人的一点心得，若有错误，不吝赐教。

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

　　 二、调用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)))") 

　　三、使用Excel应用程序 

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

　　1、使用工作薄 

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

　　常用的方法有：　　 

　　属性、方法 意义 

　　Add方法 创建新的空白工作簿，并将其添加到集合中。 

　　Open方法 打开工作簿。 

　　Activate方法 激活工作簿，使指定工作簿变为活动工作簿，以便作为Active Workbook对象使用。 

　　Save方法 按当前路径和名称保存现有工作簿(如是首次保存，则将其保存到缺省名称中，如BOOK1.XLS)。 

　　SaveAs方法 首次保存工作簿或用另一名称保存工作簿。 

　　Close方法 关闭工作簿。 

　　PrintOut方法 打印工作簿，语法为：　　 

　　PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate) 

　　可选参数：　　 

　　　From：打印的起始页号。如省略将从起始位置开始打印。 

　　　To：打印的终止页号。如省略将打印至最后一页。 

　　　Copies：要打印的份数。如省略将只打印一份。 

　　　Preview：如果为True则Excel打印指定对象之前进行打印预览。如果为False，或省略则立即打印该对象。 

　　　Printer：设置活动打印机的名称。 

　　　ToFile：如果为True则打印输出到文件。 

　　　Collate：如果为True则逐份打印每份副本。 

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

　　ActiveWorkbook.PrintOut 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方法 删除指定工作表。 

　　PrintOut方法 打印工作表。 

　　示例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对象代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。 

　　常用的属性、方法有：　　 

　　属性、方法 意义 

　　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：三维图表的系列轴标题，或二维图表的第二数值轴标题。 

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

　　With Charts.Add 

　　　.ChartWizard source：=Worksheets ("sheet1").Range ("a1：a20"),gallery：=xlLine, title：=“折线图表” 

　　　.Printout 

　　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工作表函数(此函数产生二个随机数)。　　 

　　Sub InsertFormula() 

　　Worksheets ("Sheet1" ).Range("A1：B3").Formula="RAND()" 

　　End Sub 

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