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

如何在VB中实现输出到Excel visual basic 2009-12-04 12:38:22 阅读61 评论0 字号：大中小订阅 首先要在工程中添加引用“Microsoft Excel 9.0 Object Library”我们使用三个对象Excel.ApplicationExcel.WorkBookExcel.WorkSheet然后我们的目标是：能新建一个Excel文件。讲某些行列进行合并，设置列宽，填入一个数据，将这个 Excel保存。Public Sub定义对象Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet1 As Excel.WorksheetDim xlSheet2 As Excel.WorksheetSet xlApp = CreateObject(Excel.Application)Set xlBook = xlApp.Workbooks.AddSet xlSheet1 = xlBook.Worksheets(sheet1)Set xlSheet2 = xlBook.Worksheets(sheet2)参数是下标！！！一定是按照Sheet1,Sheet2,Sheet3这样的顺序来的。xlSheet1.name = 值班表 修改工作簿的名称，就是将显示的名称换掉xlSheet2.name = 呼拉拉 同上xlSheet1.PageSetup.Orientation = xlLandscape 打印设置 -- 设置为横向xlSheet1.PageSetup.TopMargin = 20 一下四部分为设置Excel的显示格式xlSheet1.PageSetup.BottomMargin = 20xlSheet1.PageSetup.LeftMargin = 8xlSheet1.PageSetup.RightMargin = 8xlApp.Visible = True Excel文件是不是显示With xlSheet1.Columns.item(1).ColumnWidth() = 2 列宽大小.Range(.Cells(1, 1), .Cells(3, 1)).Merge 合并.Cells(1, 1).Value = 123 填入数据End WithxlApp.Visible = False 这样写，Excel的操作就不显示了。xlBook.SaveAs (I:\1\gantyian.xls) 文件保存为另一个文件名xlBook.Save 这个方法和上面一样。只是上面的方法是生成文件。这个仅仅是保存而已。xlBook.Close 必须文件关闭，不然Excel.exe的进程会一直驻留内存。Set xlBook = Nothing 清空Set xlSheet = NothingSet xlApp = NothingEnd Sub