第一步:在画面上添加引用——COM——microsoft excel 12.0 object library
第二步:定义访问excel所需要的变量
第三步:开始对excel进行操作。最后进行文档的保存。
下面是完整的代码,调试环境:WINXP + Office2007 + VS.net2008
'定义访问excel所需要的变量
Dim excelapp As New Excel.Application
Dim exbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim exrange As Excel.Range
Dim tmp1 As String
Dim tmp2 As String
excelapp.Visible = False
exbook = excelapp.Workbooks.Add()
exsheet = exbook.Sheets(1)
exrange = exsheet.Cells(1, 1)
exrange.Value = "99999"
tmp1 = exrange.Address
exrange = exsheet.Cells(2, 1)
exrange.Value = "999"
tmp2 = exrange.Address
exrange = exsheet.Cells(3, 1)
exrange.Formula = "=SUM(" & tmp1 & ":" & tmp2 & ")"
exsheet.SaveAs(Application.StartupPath + "/test.xlsx")
exsheet = Nothing
exbook.Close()
exbook = Nothing
excelapp.Quit()
excelapp = Nothing