Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim oExcel As New Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim s, t As String
Dim i, j As Int16
'打开一个空的EXCEL文件,作为模板使用
s = Server.MapPath("e1.xls")
oBook = oExcel.Workbooks.Open(s)
oSheet = oBook.Worksheets(1)
'向EXCEL表格中填写一些数据
For i = 3 To 30
For j = 1 To 10
oSheet.Cells(i, j).value = Str(i) & Str(j)
Next
Next
'打开EXCEL预览界面
oExcel.DisplayAlerts = False
oExcel.Visible = True
oSheet.PrintPreview()
'关闭预览界面后,释放资源
oSheet = Nothing
oBook.Close()
oBook = Nothing
oExcel.Quit()
oExcel = Nothing
GC.Collect()
如何使用ASP.NET操作EXCEL
End Sub
===========
引用两个
excel
office