郁闷!跪求导出Excel的问题

我在自己机器上能够正常运行，但是将代码放到服务器上就发生错误
 '以COM方式处理Excel
        Dim oExcel As New Excel.Application
        Dim oBooks As Excel.Workbooks, oBook As Excel.Workbook
        Dim oSheets As Excel.Sheets, oSheet As Excel.Worksheet
        Dim oCells As Excel.Range
        Dim sFile As String, sTemplate As String
        Dim sFile1 As String
        sFile = Server.MapPath(Request.ApplicationPath) & "/Temp/新上岗人员.xls"
        '定义模版文件
        oExcel.Visible = False
        oExcel.DisplayAlerts = False
        '定义一个新的工作簿
        oBooks = oExcel.Workbooks
        Dim s As String
        oBooks.Open(Server.MapPath((Request.ApplicationPath)& "/Temp/template/新上岗人员.xls"))
////////////在这报错。“未将对象引用设置到对象的实例”
我机器是xp，服务器是2000
        oBook = oBooks.Item(1)
        oSheets = oBook.Worksheets
        Dim str As String
        Dim row As Int32 = 3
        Dim cmd As SqlClient.SqlCommand
        Dim reader As SqlClient.SqlDataReader
        oSheet = CType(oSheets.Item(1), Excel.Worksheet)
        '命名该sheet
        oSheet.Name = "新上岗人员"
        conn.Open()
       //写数据的代码============================
        conn.Close()
        '保存
        oSheet.SaveAs(sFile)
        oBook.Close()
       '退出Excel，并且释放调用的COM资源
        oExcel.Quit()
        ReleaseComObject(oSheets) : ReleaseComObject(oBook)
        ReleaseComObject(oBooks) : ReleaseComObject(oExcel)
        oExcel = Nothing : oBooks = Nothing : oBook = Nothing
        oSheets = Nothing : oSheet = Nothing : oCells = Nothing
        System.GC.Collect()
        Response.Redirect("Temp/新上岗人员.xls")