ASP.NET学习网|ASP.NET教程|ASP.NET MVC|ASP.NET 源码|VS2010教程|ASP.NET视频教程

1:引用两个com:

项目--添加引用--COM:microsoft excel 11.0 object library       '引用excel对象

                                  :microsoft office 11.0 object library      '引用office对象

                                :microsoft scripting runtime             '引用FSO对象(纯操作excel对象就不需要引用了)

2:示例代码：

这段代码是在程序文件夹下的 Bin文件夹内创建一个excel文件，并在表1中输入一个随机数，看了这个操作后，我想大家就知道如何操作EXCEL了，呵呵~~

Randomize()
  
Dim exlapp As New Microsoft.Office.Interop.Excel.Application
Dim Fso As New Scripting.FileSystemObject
        Dim s As String
s = My.Application.Info.DirectoryPath & "\aa.xls"
If Not Fso.FileExists(s) Then
   exlapp.Workbooks.Add()
   exlapp.Workbooks(1).SaveAs(s)
Else
   exlapp.Workbooks.Open(s)
End If

Dim shet As Microsoft.Office.Interop.Excel.Worksheet
shet = exlapp.Workbooks(1).Worksheets(1)

shet.Cells._Default(1, 1) = "asp.net：www.17aspx.com" & VB6.Format(Rnd() * 1000, "0.0000")
exlapp.Workbooks(1).Close(True)
exlapp.Quit()