Windows Azure Project の開発について - アドバンスソフトウェア株式会社

コーディング例 - Excel ファイル新規作成 (CreateBook)

ExcelCreator 8.0 for .NET の CreateBook メソッドを使用し、Excel ファイルの新規作成を行う場合のコーディング例です。

■ Default.aspx.vb

Public Class _Default
    Inherits System.Web.UI.Page

Private components As System.ComponentModel.IContainer
    ' ExcelCreator
    Private xlsxCreator1 As AdvanceSoftware.ExcelCreator.Xlsx.XlsxCreator

Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
        xlsxCreator1 = New AdvanceSoftware.ExcelCreator.Xlsx.XlsxCreator()
    End Sub

Protected Sub btnCreateBook_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCreateBook.Click
        ' 作成する Excel ファイルの名前
        Dim strOutFileName As String
        ' ファイル出力用のメモリストリーム作成
        Dim memXlsx As System.IO.MemoryStream = New System.IO.MemoryStream()

' 現在の日付を設定
        Dim strDate As String = DateTime.Now.ToString("yyyyMMdd")
        strOutFileName = "CreateBook_" & strDate

' ExcelCreator オブジェクト作成
        InitializeComponent()

' メモリ上に Excelファイルを新規作成
        xlsxCreator1.CreateBook(memXlsx, 1, AdvanceSoftware.ExcelCreator.xlsxVersion.ver2010)
        xlsxCreator1.Cell("A1").Value = "Windows Azure Project サンプル (CreateBook)"

' ファイル出力用のメモリストリーム作成
        ' ファイルクローズ
        xlsxCreator1.CloseBook(True)
        ' 出力
        Response.Clear()
        Response.ContentType = "application/vnd.ms-excel.14"
        Response.Charset = ""
        Response.AddHeader("content-disposition", "attachment; filename=" + HttpUtility.UrlEncode(strOutFileName) & ".xlsx")
        Response.BinaryWrite(memXlsx.ToArray())
        ' ストリームを閉じます
        memXlsx.Close()

xlsxCreator1.Dispose()
        Response.End()
    End Sub
End Class