VB.NETからのExcel帳票出力

VB.NET + Create!FormでのExcel帳票生成方法

まず、Create!Formを使ってExcel帳票を生成する手順を説明します。

1. 帳票開発環境で、帳票定義（デザインやデータとの関連付け）を作成する。
2. VB.NETアプリケーションより、帳票出力用データファイルを作成する。
3. VB.NETアプリケーションから、1の帳票定義や2の帳票出力用データファイルをもとに、Create!Form Expage(Excel帳票出力ランタイム)を呼びだし、Excel帳票を出力する。

3の、Create!Form Screenを呼び出すVB.NETサンプルコードを以下に記載します。

VB.NETサンプルコード

VB.NETからの呼び出しが簡単に行える.NetAPIを使用してExcel帳票を作成します。

実行パラメーターに、作業ディレクトリ、スタイルファイル、出力ファイル名、入力データファイル名を設定し、Create!Form Screenを呼び出します。

Imports Infotec.CreateForm.Runtime
Imports Infotec.CreateForm.Runtime.Excel

Module Module1

    Sub Main()
        Dim expage As ExpageRuntime
        Dim param As RuntimeParam
        Dim inputStd As InputDataParamStandard
        Dim inputData() As InputDataParam
        Dim ret As Integer

        Console.WriteLine("## Create!Form Runtime Call. ##")

        ' ①実行オプションの設定
        param = New RuntimeParam
        param.WorkDir = "C:\ProgramData\Infotec\CreateForm\12\work\sample\15_Excel帳票"
        param.StyleFile = "O03_UriageJisseki.sty"
        param.OutputFile = param.WorkDir & "\O03_UriageJisseki.xlsx"
        ' ②入力データファイルの設定
        inputStd = New InputDataParamStandard
        inputStd.DataFile = param.WorkDir & "\O03_UriageJisseki.csv"
        inputData = New InputDataParam() {inputStd}
        param.InputData = inputData
        ' ③ランタイムオブジェクトを作成し、のExecute メソッドを実行
        expage = New ExpageRuntime
        ret = expage.Execute(param)
        ' ④ランタイム実行の後処理
        If ret <> 1 Then
            ' エラー処理
            Console.WriteLine("Error Code:" + ret.ToString("D"))
        Else
            Console.WriteLine("Success")
        End If
    End Sub

End Module

このサンプルコードを実行すると、指定したディレクトリにExcel帳票「O03_UriageJisseki.xlsx」が作成されます。