本頁內(nèi)容

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

配置DCOM

1、運行“dcomcnfg”，打開 DCOM 配置程序。

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

3、將 “常規(guī)” 選項卡中的 “身份驗證級別” 設(shè)為 “無”。

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

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

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

在 ASP.NET 中進行 EXCEL 編程

<identity  impersonate="true" />

本文的示例在最后完成的時候，將輸出下面這樣的結(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窗口，自動釋放，不顯示提示信息
  xlApp.Visible = False
  xlApp.UserControl = False
  xlApp.DisplayAlerts = False

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

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

  Dim strTitle As String
  Dim strPos As String

  strTitle = "大航海時代4 補給港口列表"

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

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

  ''字體：18號，粗體
  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

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

Catch ex As Exception
  Throw ex
Finally

  ''釋放對象資源
  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

  ''強制回收內(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對象]

Try

  [使用Excel對象]

Catch ex As Exception
  Throw ex
Finally

  [釋放Excel對象]

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

End Try
        

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

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

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


  Try
    xlApp = New Excel.Application

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

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


    FillSheet(xlBook, 1)

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

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

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

    ''強制回收內(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 = "大航海時代4 補給港口列表"

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

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

    ''字體：18號，粗體
    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