如何在VB中实现输出到Excel visual basic

如何在VB中实现输出到Excel visual

basic

首先要在工程中添加引用“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.name = \"值班表\" '修改工作簿的名称，就是将显示的名称换掉

xlSheet2.name = \"呼拉拉\" '同上

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