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

コーディング例 - オーバーレイオープン (OpenBookEmbed)

ExcelCreator 8.0 for .NET の OpenBookEmbed メソッドを使用し、オーバーレイオープンを行う場合のコーディング例です。

■ 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 btnOpenBookEmbed_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnOpenBook.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 = "OpenBookEmbed_" & strDate

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

' FileUpload コントロールで指定したファイルのストリームを取得し、
        ' オーバーレイ元ファイルに指定するため OpenBookEmbed を使用。
        xlsxCreator1.OpenBookEmbed(memXlsx, fileUpload.FileContent)
        xlsxCreator1.Cell("A1").Value = "Windows Azure Project サンプル (OpenBookEmbed)"

' ファイル出力用のメモリストリーム作成
        ' ファイルクローズ
        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