如何在VB中实现输出到Excel

如何在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