在 ASP.NET 中進(jìn)行 EXCEL 開(kāi)發(fā)

本頁(yè)內(nèi)容

開(kāi)發(fā)環(huán)境

配置DCOM

1、運(yùn)行“dcomcnfg”，打開(kāi) DCOM 配置程序。

2、在應(yīng)用程序列表中找到“Microsoft Excel 應(yīng)用程序”，點(diǎn)擊“屬性”。

3、將 “常規(guī)” 選項(xiàng)卡中的 “身份驗(yàn)證級(jí)別” 設(shè)為 “無(wú)”。

4、選中 “安全性” 選項(xiàng)卡中的 “使用自定義配置權(quán)限”，點(diǎn)擊 “編輯”。

5、在打開(kāi)的對(duì)話框中添加 “Internet來(lái)賓用戶”（通常是IUSR_機(jī)器名） ，訪問(wèn)類型設(shè)為“完全控制”。

6、將 “身份標(biāo)識(shí)” 選項(xiàng)卡中的用戶設(shè)為 “交互式用戶” 。

在 ASP.NET 中進(jìn)行 EXCEL 編程

<identity  impersonate="true" />

本文的示例在最后完成的時(shí)候，將輸出下面這樣的結(jié)果：

Dim filePath As String

filePath = Server.MapPath("testFile.xls")

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range

Try

  xlApp = New Excel.Application

  ''不顯示Excel窗口，自動(dòng)釋放，不顯示提示信息
  xlApp.Visible = False
  xlApp.UserControl = False
  xlApp.DisplayAlerts = False

  ''打開(kāi)一個(gè)作為輸出模板的文件
  'xlBook = xlApp.Workbooks.Open(filePath)
  ''或是新建一個(gè)文件
  xlBook = xlApp.Workbooks.Add()

  ''選擇當(dāng)前的 Sheet 
  ''【注意】索引的下標(biāo)是從1開(kāi)始的，而不是0
  xlSheet = xlBook.Sheets(1)

  Dim strTitle As String
  Dim strPos As String

  strTitle = "大航海時(shí)代4 補(bǔ)給港口列表"

  ''選擇單元格
  strPos = "A1:F1"
  xlRange = xlSheet.Range(strPos)

  ''設(shè)置單元格內(nèi)容
  xlRange.Formula = strTitle

  ''字體：18號(hào)，粗體
  xlRange.Font.Size = 18
  xlRange.Font.Bold = True

  ''合并單元格
  xlRange.MergeCells = True

  ''設(shè)置背景色
  ''使用內(nèi)置的顏色
  ''xlRange.Interior.ColorIndex = 40
  ''或者直接設(shè)置RGB顏色
  xlRange.Interior.Color = RGB(255, 204, 153)

  ''設(shè)置居中
  xlRange.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter

  ''設(shè)置行高
  xlRange.RowHeight = 25

  ''保存打開(kāi)的文件
  'xlBook.Save()
  ''保存新建的文件
  xlBook.SaveAs(filePath)

Catch ex As Exception
  Throw ex
Finally

  ''釋放對(duì)象資源
  ReleaseComObject(xlRange)
  ReleaseComObject(xlSheet)

  If Not xlBook Is Nothing Then
        xlBook.Close()
        ReleaseComObject(xlBook)
  End If

  If Not xlApp Is Nothing Then
        xlApp.Quit()
        ReleaseComObject(xlApp)
  End If

  ''強(qiáng)制回收內(nèi)存
  GC.Collect()
End Try
        

  Sub ReleaseComObject()Sub ReleaseComObject(ByVal obj As Object)
    If Not obj Is Nothing Then
      System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
      obj = Nothing
    End If
  End Sub
        

[定義Excel對(duì)象]

Try

  [使用Excel對(duì)象]

Catch ex As Exception
  Throw ex
Finally

  [釋放Excel對(duì)象]

  [強(qiáng)制回收內(nèi)存]

End Try
        

這種結(jié)構(gòu)是保證 Excel 進(jìn)程可以被正確釋放的關(guān)鍵，也就是說(shuō)，你必須保證所有使用過(guò)的 Excel 對(duì)象都被釋放了。
為了讓你對(duì)這種結(jié)構(gòu)有更清楚的認(rèn)識(shí)，我們將上面的代碼按照不同的級(jí)別重新整理一下。

Sub ExportExcel()Sub ExportExcel(ByVal filePath As String)

  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook


  Try
    xlApp = New Excel.Application

    ''不顯示Excel窗口，自動(dòng)釋放，不顯示提示信息
    xlApp.Visible = False
    xlApp.UserControl = False
    xlApp.DisplayAlerts = False

    ''打開(kāi)一個(gè)作為輸出模板的文件
    'xlBook = xlApp.Workbooks.Open(filePath)
    ''或是新建一個(gè)文件
    xlBook = xlApp.Workbooks.Add()


    FillSheet(xlBook, 1)

    ''保存打開(kāi)的文件
    'xlBook.Save()
    ''保存新建的文件
    xlBook.SaveAs(filePath)
  Catch ex As Exception
    Throw ex
  Finally

    ''釋放對(duì)象資源
    If Not xlBook Is Nothing Then
      xlBook.Close()
      ReleaseComObject(xlBook)
    End If

    If Not xlApp Is Nothing Then
      xlApp.Quit()
      ReleaseComObject(xlApp)
    End If

    ''強(qiáng)制回收內(nèi)存
    GC.Collect()
  End Try
End Sub


Sub FillSheet()Sub FillSheet(ByVal xlBook As Excel.Workbook, ByVal index As Integer)

  Dim xlSheet As Excel.Worksheet

  Try

    xlSheet = xlBook.Sheets(index)

    SetTitle(xlSheet)

  Catch ex As Exception
    Throw ex
  Finally
    ReleaseComObject(xlSheet)
  End Try
End Sub


Sub SetTitle()Sub SetTitle(ByVal xlSheet As Excel.Worksheet)

  Dim xlRange As Excel.Range
  Dim xlFont As Excel.Font

  Try

    Dim strTitle As String
    Dim strPos As String

    strTitle = "大航海時(shí)代4 補(bǔ)給港口列表"

    ''選擇單元格
    strPos = "A1:F1"
    xlRange = xlSheet.Range(strPos)

    ''設(shè)置單元格內(nèi)容
    xlRange.Formula = strTitle

    ''字體：18號(hào)，粗體
    xlFont = xlRange.Font
    xlFont.Size = 18
    xlFont.Bold = True

    ''合并單元格
    xlRange.MergeCells = True

    ''設(shè)置背景色
    ''使用內(nèi)置的顏色
    ''xlRange.Interior.ColorIndex = 40
    ''或者直接設(shè)置RGB顏色
    xlRange.Interior.Color = RGB(255, 204, 153)

    ''設(shè)置居中
    xlRange.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter

    ''設(shè)置行高
    xlRange.RowHeight = 25

  Catch ex As Exception
    Throw ex
  Finally

    ReleaseComObject(xlFont)
    ReleaseComObject(xlRange)
  End Try

End Sub