vb.net操作Excel

Excel2007添加引用Microsoft Excel 12.0 library object

'導入命名空間

Imports Microsoft.Office.Interop

Public Class Form126
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'導出Excel
Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序
Dim Xlsbook As Excel.Workbook '定义工作簿
Dim Xlssheet As Excel.Worksheet '定义工作表
Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿
Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄
Xlssheet.Name = "測試表" '表名
Xls.Caption = "測試工作簿" '工作簿名

Xlssheet.Cells(1, 1).value = "測試列" '單元格值

Xlssheet.Cells.EntireColumn.AutoFit() '自動列寬
Xls.Visible = True '显示excel 程序

Xlssheet.Cells(2, 1).value = "0001" '單元格值

Xlssheet.Cells.NumberFormatLocal = "@" '修改單元格格式
Xlssheet.Cells(3, 1).value = "0001" '單元格值

Xlssheet.Cells(3, 1).Font.Color = RGB(255, 0, 0) '文字顏色

Xls.DisplayAlerts = False '不显示对话框
Xls.ActiveWorkbook.SaveAs("D:\測試.xls") '儲存檔案
Xls.Workbooks.Close() '關閉檔案
Xls = Nothing '释放EXCEL对象

End Sub
End Class