VB6.0调用Excel制作任意表格.docVIP

VB6.0调用Excel制作任意表格 在VB中制作报表一般来讲有三种方法： 1、直接使用VB6.0中自带的Data Report 来做，这种方法有很大的局限性，对于比较规则的报表，但对于比较复杂的报表，比如说一张报表，上部分是人员的工资，下部分是人员的各日的考勤，使用这种方法就无能为力。 2、使用直接的打印方法，即Printer.print ，这种方法直接向打印机打印，就象过去使用Foxpro似的，需要进行打印机定位，并且在Windows下，不同的字符数字所占的宽度也不相同，所以这种方法使用起来非常麻烦。 3、使用微软的Excel。本文重点讨论用Excel来制作报表所涉及的问题。我们用Excel做报表时，不仅是将所要的内容填到Excel的工作表中，而且还需要填写公式、定义合适的格式（格线、字体、对齐）等。 Excel的每张工作表是由若干行、若干列构成的，行列的交叉形成的小格称作单元格。我们正好可以用这些现成的单元格来做我们的报表的相应的格。为了程序简单，可以将报表的模板做好，如表头，相应的行高、列宽、字体、对齐调整好（事实上，这些也可以通过程序来实现，只是麻烦点。），然后利用VB程序来操纵Excel。 这里我们以SQL SERVER 7.0为后台数据。首先定义好需要的变量，在VB6.0的菜单“工程\引用”中确保 Microsoft Excel 8.0 Object Library（在Excel2000中，此处为Excel 9.0）复选框选中。 再向Excel工作表中填入数据： Dim VBExcel As Excel.Application Dim xlbook As Excel.Workbook 定义Excel工作簿对象 Dim xlsheet As Excel.Worksheet 定义Excel工作表对象 Dim rssalary As New ADODB.Recordset 定义记录集 rssalary.Open SQLStrsalary, CNstring, adOpenStatic, adLockReadOnly rssalary 为已计算好的工资数据记录集。 SQLStrsalary 是SQL语句（如SELECT * FROM SALARY）。 Cnstring 是连接字符串（如Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False; Initial Catalog=DBname;Data Source=servername）。 Set VBExcel = CreateObject(excel.application) VBExcel.Visible = True 根据操作人员是否需要见到Excel此处可设为TRUE 或FALSE Set xlbook = VBExcel.Workbooks.Open(ExcelFile) ExcelFile为事先设计好的Excel模板文件（包括路径） Set xlsheet = xlbook.Worksheets(salary) Salary 为Excel模板工作表的名字 xlsheet.Activate 下面是向单元格中填写数据（以一个简单的工资打印为例）： xh = 1 Row = 6 从第6行开始是工资数据，1-5 行为工资单表头 SumRow = Row SumRow用来存放合计的起始行 Do While Not rssalary.EOF Col = 1 xlsheet.Cells(Row, Col).Value = xh Col = Col + 1 xlsheet.Cells(Row, Col).Value = rssalary(name) Col = Co