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()
End Sub =========== 引用两个 excel office