如何在VB中实现输出到Excel.doc

《如何在VB中实现输出到Excel.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、如何在VB中实现输出到Excelvisualbasic2009-12-0412:38:22阅读61评论0字号：大中小订阅首先要在工程中添加引用“MicrosoftExcel9.0ObjectLibrary”我们使用三个对象Excel.ApplicationExcel.WorkBookExcel.WorkSheet然后我们的目标是：能新建一个Excel文件。讲某些行列进行合并，设置列宽，填入一个数据，将这个Excel保存。PublicSub'定义对象DimxlAppAsExcel.ApplicationDimxlBookAsExcel.Wo

2、rkbookDimxlSheet1AsExcel.WorksheetDimxlSheet2AsExcel.WorksheetSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.AddSetxlSheet1=xlBook.Worksheets("sheet1")SetxlSheet2=xlBook.Worksheets("sheet2")'参数是下标！！！一定是按照Sheet1,Sheet2,Sheet3这样的顺序来的。xlSheet1.name="值班表"

3、'修改工作簿的名称，就是将显示的名称换掉xlSheet2.name="呼拉拉"'同上xlSheet1.PageSetup.Orientation=xlLandscape'打印设置--设置为横向xlSheet1.PageSetup.TopMargin=20'一下四部分为设置Excel的显示格式xlSheet1.PageSetup.BottomMargin=20xlSheet1.PageSetup.LeftMargin=8xlSheet1.PageSetup.RightMargin=8xlApp.Visible=True'Excel文件是不是

4、显示WithxlSheet1.Columns.item(1).ColumnWidth()=2'列宽大小.Range(.Cells(1,1),.Cells(3,1)).Merge'合并.Cells(1,1).Value="123"'填入数据EndWithxlApp.Visible=False'这样写，Excel的操作就不显示了。xlBook.SaveAs("I:1gantyian.xls")'文件保存为另一个文件名'xlBook.Save'这个方法和上面一样。只是上面的方法是生成文件。这个仅仅是保存而已。xlBook.Close'必须文

5、件关闭，不然Excel.exe的进程会一直驻留内存。SetxlBook=Nothing'清空SetxlSheet=NothingSetxlApp=NothingEndSub