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

VB6.0调用Excel制作任意表格在VB中制作报表一般来讲有三种方法：1、直接使用VB6.0中自带的DataReport来做，这种方法有很大的局限性，对于比较规则的报表，但对于比较复杂的报表，比如说一张报表，上部分是人员的工资，下部分是人员的各日的考勤，使用这种方法就无能为力。2、使用直接的打印方法，即Printer.print，这种方法直接向打印机打印，就象过去使用Foxpro似的，需要进行打印机定位，并且在Windows下，不同的字符数字所占的宽度也不相同，所以这种方法使用起来非常麻烦。3、使用微软的Excel。本文重点讨论用Excel来制作报表所涉及的问题。我们用Excel做报表时，不仅是将所要的内容填到Excel的工作表中，而且还需要填写公式、定义合适的格式（格线、字体、对齐）等。Excel的每张工作表是由若干行、若干列构成的，行列的交叉形成的小格称作单元格。我们正好可以用这些现成的单元格来做我们的报表的相应的格。为了程序简单，可以将报表的模板做好，如表头，相应的行高、列宽、字体、对齐调整好（事实上，这些也可以通过程序来实现，只是麻烦点。），然后利用VB程序来操纵Excel。这里我们以SQLSERVER7.0为后台数据。首先定义好需要的变量，在VB6.0的菜单“工程\引用”中确保MicrosoftExcel8.0ObjectLibrary（在Excel2000中，此处为Excel9.0）复选框选中。再向Excel工作表中填入数据：DimVBExcelAsExcel.ApplicationDimxlbookAsExcel.Workbook定义Excel工作簿对象DimxlsheetAsExcel.Worksheet定义Excel工作表对象DimrssalaryAsNewADODB.Recordset定义记录集rssalary.OpenSQLStrsalary,CNstring,adOpenStatic,adLockReadOnlyrssalary为已计算好的工资数据记录集。SQLStrsalary是SQL语句（如SELECT*FROMSALARY）。Cnstring是连接字符串（如Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=DBname;DataSource=servername）。SetVBExcel=CreateObject(excel.application)VBExcel.Visible=True根据操作人员是否需要见到Excel此处可设为TRUE或FALSESetxlbook=VBExcel.Workbooks.Open(ExcelFile)ExcelFile为事先设计好的Excel模板文件（包括路径）Setxlsheet=xlbook.Worksheets(salary)Salary为Excel模板工作表的名字xlsheet.Activate下面是向单元格中填写数据（以一个简单的工资打印为例）：xh=1Row=6从第6行开始是工资数据，1-5行为工资单表头SumRow=RowSumRow用来存放合计的起始行DoWhileNotrssalary.EOFCol=1xlsheet.Cells(Row,Col).Value=xhCol=Col+1xlsheet.Cells(Row,Col).Value=rssalary(name)Col=Col+1xlsheet.Cells(Row,Col).Value=Str(rssalary(jngz).Value)Col=Col+1xlsheet.Cells(Row,Col).Value=Str(rssalary(jbdx).Value)Col=Col+1xlsheet.Cells(Row,Col).Value=Str(rssalary(gwgz).Value)Col=Col+1xlsheet.Cells(Row,Col).Value=Str(rssalary(zygz).Value)Col=Col+1xlsheet.Cells(Row,Col).Value=Str(rssalary(jfgz).Value)Col=Col+1xlsheet.Cells(Row,Col).Value=Str(rssalary(yfgz).Value)xh=xh+1Row=Row+1rssalary.MoveNextLoop以上可将各人的工资项打印出来，下面是合计（仅以一列的合计为例，填写公式）：Col=1xlsheet.Cells(Row,Col).Value=Col=Col+1xlsheet.Cells(Row,Col).Value=合计Col=Col+1HeJi==SUM(c+Trim(Str(SumRow))+:c+Trim(Str(Row-1))+)xlsheet.Cells(Row,Col).Value=HeJi填入公式，HeJi是一个字符串变量。如果用到的汇总是求平均、记数等，可用相应的Excel函数来替代上面的SUM，如COUNT、AVERAGE等。因为Excel中所见到的格线，其实并不是实际存在的线，只是为了分割各个单元格；而如果在Exce的选项中设置上有网格线的话，那么每一个格的四周都有线，并不一定能符合实际的需要。因此，如果只是某些地方需要画线，可用以下方法为某个单元格加上边框：xlsheet.Cells(Row,Col).Borders(xlTop).Weight=xlThin其中Borders的参数可为：xlTop，xlBottom，xlRight，xlLeft代表位置。它的Weight的值可为：xlThin，xlMedium,xlThick....代表线粗。在Excel中，如果某个单元格的宽度小于其中内容的长度，其中的内容将显示一串“＃”，真正的内容就看不到了，我们可用以下的方法来解决：xlsheet.Cells(Row,Col).ShrinkToFit=true这样Excel可以自动将单元格中内容的字体缩小来适合所在的单元格的宽度。也可以将模板中所有可能用到的单元格格式的对齐方式中的“缩小字体填充”项选中，然后将不需要缩小字体填充的单元格设为：xlsheet.Cells(Row,Col).ShrinkToFit=false由于Excel中对于对齐方式(即靠左、右,上、下等)有它自己默认的方式，如数字自动在单元格中靠右，文字自动靠左。如果需要中单元格的内容在某个单元格中的对齐方式可以这样来做：水平对齐：xlsheet.Cells(Row,Col).HorizontalAlignment=xlCenter其中xlCenter处可为xlLeft、xlRight。垂直对齐：xlsheet.Cells(Row,Col).VerticalAlignment=xlCenter其中xlCenter处可为xlTop、xlBottom。如果需要用到单元格的内容在多个单元格中居中（跨列居中），可以这样来实现(下例可实现第一行的A到H列居中)：DimTotalAsRangeRangeCells=a+RTrim(LTrim(Str(1)))+:+“h”+RTrim(LTrim(Str(1)))SetTotal=Range(RangeCells)Total.SelectTotal.HorizontalAlignment=xlHAlignCenterAcrossSelection然后在这几个单元格中的最前一个单元填入实际内容。xlsheet.Cells(1,1).Value=“实际内容”有时我们可能会用到改变字体及尺寸，可以通过以下方法实现：Sheet1.Cells(Row,Col).Font.Name=隶书Sheet1.Cells(Row,Col).Font.Size=20在单元格中输入数字性的文本，如05182381104，写到Excel的单元格中时，Excel会自动将其视为数字，从而变为5182381104。要解决这个问题，可这样做：xlsheet.Cells(Row,Col).Value='+05182381104上句中的两个双引号中间是一个单引号。另外，如果一张Excel工作表的长度超过了所设定的打印机的纸张的长度，Excel将自动分页，第二页就会没有表头。在出现这种情况下，如果表头是模板中固定好的，可在模板中设置好，方法是在Excel的菜单“文件\页面设置”中来设置。如果表头是在程序中形成的，可用下面的方法：xlsheet.PageSetup.PrintTitleRows=rows(1:6).Address这里“1:6”是根据表头所在的行来自行设定的。xlsheet.PageSetup.PrintTitleColumns=Columns(A:p).Address这里“A:P”是根据表头所在的列来设定的。通过上面这些方法来制做我们平常所见的报表，应该是不会有太大的问题。其实，我们在Excel软件中所能做到的，在VB中都可以通过调用来实现。