ＶＩＳＵＡＬ　ＢＡＳＩＣ与ＥＸＣＥＬ的结合应用.docVIP

ＶＩＳＵＡＬ　ＢＡＳＩＣ与ＥＸＣＥＬ的结合应用 　　摘要：介绍了在Windows环境下利用Visual Basic6采集实时数据，并送至Excel进行数据计算和制图处理。 　　关键词：报表；工作薄；工作表；单元格 　　中图分类号：TP312文献标识码：A文章编号：1009-3044(2008)16-21347-02 　　The Visual Basics Application Combined with Excel 　　YANG Ye 　　(Wuxi Professional College of Science and Technology,Wuxi 214028,China) 　　Abstract:In this paper, the real-time data acquisition program, which is developed by Visual Basic 6 under Windows98, is presented. The sampled data can be calculated or be made a chart in the Excel software. 　　Key words:Report Table;WorkBook;WorkSheet;Cell 　　1 引言 　　在Visual Basic中制作报表，通常是用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer)，或者使用ActiveX控件输出。但对于大多数习惯于Excel报表的用户而言，用以上两种方法生成的报表在格式和功能等方面往往不能满足他们的要求。而且有些用户已经有Excel表格，在数据采集系统中希望将采集到的数据结果直接存入相应的Excel表中，利用Excel来完成计算、统计和图表显示等功能。同时用户可能希望从已有的Excel表格中读取数据。Excel是一个优秀的数据表格软件，由于Visual Basic的可扩展性，使用Visual Basic来操作Excel是相当方便的。Excel可以用作OLE服务器，向外部输出某些属性、方法和事件。Visual Basic可以利用这些功能，实现与Excel的集成。 　　2 软件的设计 　　微软的Excel对象模型包括了128个不同的对象，从矩形，文本框等简单的对象到透视表，图表等复杂的对象。Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行环境。Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件。Worksheet对象包含于Workbook对象，表示一个Excel工作表。Range对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格。 　　这个例子是数据采集系统通过串口得到生产数据，根据生产数据把相应的结果数据存入Excel表格中，在表格中的数据存满后，自动备份并清空表格，准备给下一次采集的数据使用。 　　在创建标准EXE工程文件时，必须引用Microsoft Office 8.0 Object Library。 　　定义对象变量： 　　Dim MyExcel As Object 　　Dim MyBook As New Excel.Workbook 　　Dim MyRange As Range 　　用 Open 方法打开一个工作簿时，该工作簿将成为 Workbooks 集合的成员。 　　Set MyExcel = GetObject(, Excel.Application) 　　Set MyBook = MyExcel.Workbooks.Open(App.Path \SPC.xls) 　　Excel应用软件和Visual Basic的数据采集软件同时运行，可以将Excel不以全屏显示模式进行显示，这样在打开Excel软件时，不会覆盖数据采集软件的界面。 　　MyExcel.Application.DisplayFullScreen = False 　　编号是赋予工作表的连续数字，这些数字的顺序，是根据同一类型的工作表的标签位置按由左而右的顺序确定的。 　　Set myRange = MyBook.Worksheets(1).Range(C9:F9) 　　可在 Range 方法中以 A1 样式的记号引用单元格和单元格区域。 　　MyBook.Worksheets(1).Range(C10:F10).Value = 0 　　可用 Rows 属性或 Columns 属性处理整行或整列。 　　MyBook. Worksheets(1).Rows(1).Font.B