《怎样用vb打开Excel》由会员分享，可在线阅读，更多相关《怎样用vb打开Excel（35页珍藏版）》请在金锄头文库上搜索。
1、怎样用 vb 打开 Excel用 EXCEL 对象读取 EXCEL 文件中数据.然后通过 ADODB 连接 SQL 进和导入 下面是 EXCEL 对象的详解 1 前言 做为一种简捷、系统的 Windows 应用程序开发工具，VB 具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取 Microsoft SQL Server、Oracle、XBase 等多种数据库，被广泛应用于建立各种信息管理系统。但是，VB 缺乏足够的、符合中文习惯的数据表格输出功能，虽然使用 Crystal Report 控件及 Crystal Reports 程序可以输出报表，但操作起来比较麻烦，中文处理能力也不
2、理想。Excel 在表格方面有着强大的功能，我们可以用VB 编写直接控制 Excel 操作的程序,方法是用 VB 的 OLE 自动化技术获取 Excel 的控制句柄,从而直接控制 Excel 的一系列操作。本文结合自己的实践和体会，谈谈如何在 VB6.0 应用程序中调用 Exce12000，供大家参考。 2 Excel 对象模型 为了在 VB 应用程序中调用 Excel，必须要了解 Excel 对象模型。Excel 对象模型描述了Excel 的理论结构，所提供的对象很多，涉及 VB 调用 Excel 时最可能用到的对象有：（见Microsoft Excel 对象的文章）3 调用 Excel 在
3、 VB 应用程序中调用 Excel，实质是将 Excel 作为一个外部对象来引用，由 Excel 对象模型提供能从 VB 应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。 3.1 在 VB 工程中添加对 Excel 类型库的引用 为了能从 VB 应用程序中访问 Excel 丰富的内部资源，使 Excel 应用程序运行得更快，需要在 VB 工程中添加对 Excel 类型库的引用。具体步骤如下： 1) 在 VB 应用程序中调用 Excel，你的计算机系统中必须安装 Excel。从 VB5“工程” 菜单中选择“引用”； 2) 在“引用 ”对话框中选择 Excel 类型库：Microsoft
4、 Excel9.0 Object Library； 3) 单击左边小方框，使之出现“” 符号； 4) 按“确定 ”退出。 3.2 引用 Application 对象 Application 对象是 Excel 对象模型的顶层，表示整个 Excel 应用程序。在 VB 应用程序中调用 Excel，就是使用 Application 对象的属性、方法和事件。为此，首先要声明对象变量： Dim VBExcel As Object 或直接声明为 Excel 对象： Dim VBExcel As Excel.Application 在声明对象变量之后，可用 CreateObject 函数或 GetObje
5、ct 函数给变量赋值新的或已存在的Application 对象引用。 1)用 CreateObject 函数生成新的对象引用： Set VBExcel=CreateObject (Excel.Application) 字符串“Excel.Application”是提供 Excel 应用程序的编程 ID，这个变量引用 Excel 应用程序本身。 2)用 GetO 场 ect 函数打开已存在的对象引用： Set AppExcel=GetObject(Temp.XLS) 上面语句打开文件 Temp.XLS。 3)Application 对象常用的属性、方法 Visible 属性取 True 或 Fa
6、lse，表明 Excel 应用程序是否可见。 Left,Top 属性 Excel 窗口的位置； Height, Width 属性 Excel 窗口的大小； WindowState 属性指定窗口的状态； Quit 方法,退出 Microsoft Excel； Calculate 方法,重新计算所有打开的工作簿、工作表或单元格。 Evaluate 方法,求值数学表达式并返回结果。 3.3 使用 Excel 应用程序 下面分类给出其中常用的属性和方法。 1)使用工作薄 Workbook 对象代表 Excel 应用程序中当前打开的一个工作簿，包含在 Workbooks 集合中。可以通过 Workboo
7、ks 集合或表示当前活动工作簿的 Active Workbook 对象访问 Workbook对象。 常用的方法有： Add 方法:创建新的空白工作簿，并将其添加到集合中。 Open 方法:打开工作簿。 Activate 方法:激活工作簿，使指定工作簿变为活动工作簿，以便作为 Active Workbook 对象使用。 Save 方法:按当前路径和名称保存现有工作簿( 如是首次保存，则将其保存到缺省名称中，如 BOOK1.XLS)。 SaveAs 方法:首次保存工作簿或用另一名称保存工作簿。 Close 方法:关闭工作簿。 PrintOut 方法:打印工作簿，语法为： PrintOut (fro
8、m, To, Copies, Preview, Printer, ToFile, Collate) 可选参数： From：打印的起始页号,如省略将从起始位置开始打印。 To：打印的终止页号,如省略将打印至最后一页。 Copies：要打印的份数,如省略将只打印一份。 Preview：如果为 True 则 Excel 打印指定对象之前进行打印预览。如果为 False 或省略则立即打印该对象。 Printer：设置活动打印机的名称。 ToFile：如果为 True 则打印输出到文件。 Collate：如果为 True 则逐份打印每份副本。 下面语句将活动工作簿的 2 到 5 页打印 3 份： Act
9、iveWorkbook.PrintOut From：=2 To 5 Copies ：=3 2)使用工作表 Sheets 集合表示工作簿中所有的工作表。可以通过 Sheets 集合来访问、激活、增加、更名和删除工作表。一个 Worksheet 对象代表一个工作表。 常用的属性、方法有： Worksheets 属性:返回 Sheets 集合。 Name 属性:工作表更名。 Add 方法:创建新工作表并将其添加到工作簿中。 Select 方法:选择工作表。 Copy 方法:复制工作表。 Move 方法:将指定工作表移到工作簿的另一位置。 Delete 方法 :删除指定工作表。 PrintOut 方法
10、:打印工作表。 示例：将 C 盘工作簿中的工作表复制到 A 盘工作簿中： Dim VBExcel As Excel.Application Set VBExcel=CreateObject(Excel.Application) With VBExcel Workbooks.Open C：TempEx1.XLS Workbooks.OpenA：Ex2.XLS Workbooks(Ex1.XLS).Sheets (Sales).Copy Workbooks(Ex2.XLS) Workbooks(Ex2.XLS).Save Workbooks(Ex1.XLS).Close Workbooks(Ex2
11、.XLS).Close Quit End With 3)使用单元范围 Range 对象代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。常用的属性、方法有： Range 属性 :Range (arg)其中 arg 为 A1 样式符号，表示单个单元格或单元格区域。 Cells 属性:Cells (row, col )(其中 row 为行号，col 为列号)表示单个单元格。 ColumnWidth 属性:指定区域中所有列的列宽。 Rowl3eight 属性:指定区域中所有行的行宽。 Value 属性:指定区域中所有单元格的值(缺省属性)。 Formula 属性:指定单元格的公式
12、，由 A1-样式引用。 Select 方法:选择范围。 Copy 方法:将范围的内容复制到剪贴板。 C1earContents 方法:清除范围的内容。 Delete 方法 :删除指定单元范围。 4)使用图表 Chart 对象代表工作簿中的图表。该图表既可为嵌人式图表(包含于 ChartObject 对象中)也可为分立的图表工作表。 常用方法有： Add 方法:新建图表工作表,返回 Chart 对象。 PrineOut 方法:打印图表。 ChartWizard 方法:修改给定图表的属性，其语法为： ChartWizard(Source, Gallery, Format, P1otBy, Cate
13、goryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle) 其中： Source：包含新图表的源数据的区域。如省略，将修改活动图表工作表或活动工作表中处于选定状态的嵌人式图表。 Gallery：图表类型,其值可为下列常量之一:xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter, xlCombination, x13DArea, x13Dbar,x13DColumn, x13DLine, x13Dpie,x13 Dsurfa
14、ce,xlDoughnut 或 xlDefaultAutoFormat。 Format：内置自动套用格式的编号。如省略，将选择默认值。 P1otBy：指定系列中的数据是来自行(xlRows) 还是列(xlColumns)。 CategoryLabels：表示包含分类标志的源区域内行数或列数的整数。 SeriesLabels：表示包含系列标志的源区域内行数或列数的整数。 HasLegend：若指定 True，则图表将具有图例。 Title：图表标题文字。 CategoryTitle：分类轴标题文字。 ValueTitle：数值轴标题文字。 ExtraTitle：三维图表的系列轴标题，或二维图表的
15、第二数值轴标题。 可组合使用 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
16、工作表函数。下面的 Sub 过程用 Min 工作表函数求出指定区域中单元格的最小值，并通过消息框显示结果值。 Sub UserFunction() 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() myVar=Application.WorksheetFunction.Match_ (9,orksheets( 1).Range(A1：A10)，0) MsgBox myVar End Sub 要在单元格中插人工作表函数，可将该
