如何把一个Excel文件放到ASP页面中去？ -电脑资料

    作者： 字体：[增加 减小] 类型：转载

    <%

    set xlApp = Server.CreateObject("Excel.Application")

    xlApp.Visible = false

    ‘使服务端不出现Excel窗口.

    set myWorkbook = xlApp.Workbooks.Add

    ‘建立一个worksheet.

    set myWorksheet = myWorkbook.Worksheets(1)

    myWorksheet.Range("A1").Value = ‘精彩春风通讯录‘

    myWorksheet.Range("A1").Font.Size = 12

    myWorksheet.Range("A1").Font.Bold = true

    myWorksheet.Range("A2").Value = ‘姓名‘

    myWorksheet.Range("B2").Value = ‘地址‘

    myWorksheet.Range("C2").Value = ‘电话‘

    myWorksheet.Range("D2").Value = ‘手机‘

    ‘以上7行建立表头.

    myWorksheet.Range("A2:D2").Font.Bold = true

    strFileName = Session.SessionID & ".xls"

    ‘确保文件名唯一.

    strAppPath = Request.ServerVariables("PATH_trANSLATED")

    strAppPath = Left(strAppPath, InstrRev(strAppPath, "\"))

    strFullPath = strAppPath & strFileName

    myWorkbook.SaveAs(strFullPath)

    ‘保存文件.

    myWorkbook.Close

    ‘关闭Excel.

    xlApp.Quit

    set myWorksheet = Nothing

    set myWorkbook = Nothing

    set myxlApp = Nothing

    Response.Redirect strFileName

    %>

    [1]