如何在VB中实现输出到Excel
visual basic 2009-12-04 12:38:22 阅读61 评论0字号：大中小订阅
首先要在工程中添加引用“Microsoft Excel 9.0 Object Library”
我们使用三个对象
Excel.Application
Excel.WorkBook
Excel.WorkSheet
然后我们的目标是：
能新建一个Excel文件。

讲某些行列进行合并，设置列宽，填入一个数据，将这个Excel 保存。

Public Sub
'定义对象
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet1 = xlBook.Worksheets("sheet1")
Set xlSheet2 = xlBook.Worksheets("sheet2")
'参数是下标！！！一定是按照Sheet1,Sheet2,Sheet3这样的顺序来的。

= "值班表" '修改工作簿的名称，就是将显示的名称换掉
= "呼拉拉" '同上
xlSheet1.PageSetup.Orientation = xlLandscape '打印设置-- 设置为横向
xlSheet1.PageSetup.TopMargin = 20 '一下四部分为设置Excel的显示格式
xlSheet1.PageSetup.BottomMargin = 20
xlSheet1.PageSetup.LeftMargin = 8
xlSheet1.PageSetup.RightMargin = 8
xlApp.Visible = True 'Excel文件是不是显示
With xlSheet1
.Columns.item(1).ColumnWidth() = 2 '列宽大小
.Range(.Cells(1, 1), .Cells(3, 1)).Merge '合并
.Cells(1, 1).Value = "123" '填入数据
End With
xlApp.Visible = False '这样写，Excel的操作就不显示了。

xlBook.SaveAs ("I:\1\gantyian.xls") '文件保存为另一个文件名
'xlBook.Save '这个方法和上面一样。

只是上面的方法是生成文件。

这个仅仅是保存而已。

xlBook.Close '必须文件关闭，不然Excel.exe的进程会一直驻留内存。

Set xlBook = Nothing '清空
Set xlSheet = Nothing
Set xlApp = Nothing End Sub。