【GeneXus Tips】Excelの読み込みと出力

2015.09.16
GeneXus
Excel, ExcelDocument, GeneXus, 出力, 読み込み, 読込

お昼はカレーライスを食べたい。okitaです。

エクセルを読み込むときに備忘録。
サンプルって書くと「こんなのサンプルにならない」とか言われるかもしれないので
「備忘録」という便利な言葉を使用(｀・ω・´)

今回想定する流れは
・エクセルを読込⇒DBに情報を保存
・DBから情報を取得⇒エクセルファイルに保存

使用した環境は以下
GeneXus X Ev2 u7
C# IIS .Net

1. ■エクセルを読込 – プロシージャ
2. ★☆★☆ 結果 ★☆★☆
3.
4. ★☆★☆ 解説 ★☆★☆
5. ■エクセルを保存 – プロシージャ
6. ★☆★☆ 結果 ★☆★☆
7. ★☆★☆ 結果 ★☆★☆

■エクセルを読込 – プロシージャ

// エクセルのファイルパスを設定
&FilePath = !"C:\Temp\Excel\テスト.xlsx"

// エクセルを開く
&Result = &ExcelDocument.Open(&FilePath)
Do 'Excel_ErrCheck'

// セルの初期値を設定
&Row = 2	// ヘッダーが存在するので2からスタート
&Col = 1

// A列の「No」が空になるまで読み込む
Do while &ExcelDocument.Cells(&Row,&Col).Text.Trim() <> !"" 
	
	// セルが数値だった場合
	If &ExcelDocument.Cells(&Row,&Col).Type = !"N"
		&No	= &ExcelDocument.Cells(&Row,&Col).Number
	Endif

	// セルが文字だった場合
	If &ExcelDocument.Cells(&Row,&Col+1).Type = !"C"
		&Name = &ExcelDocument.Cells(&Row,&Col+1).Text
	Endif
	
	// セルが数値だった場合
	If &ExcelDocument.Cells(&Row,&Col+2).Type = !"N"
		&Point = &ExcelDocument.Cells(&Row,&Col+2).Number
	Endif
	
	// データ更新
	New
		// No	AutoNumber
		Name 	= &Name
		Point 	= &Point
	Endnew
	
	// 次の行へ移動
	&Row += 1
Enddo

// エクセルを閉じる
&ExcelDocument.Close()

Return


Sub 'Excel_ErrCheck'
	If &Result <> 0
		// エラーの場合　終了
		MSG(&ExcelDocument.ErrDescription)
		&ExcelDocument.Close()
		Return
	Endif
Endsub

// エクセルのファイルパスを設定

&FilePath = !"C:\Temp\Excel\テスト.xlsx"

// エクセルを開く

&Result = &ExcelDocument.Open(&FilePath)

Do 'Excel_ErrCheck'

// セルの初期値を設定

&Row = 2 // ヘッダーが存在するので2からスタート

&Col = 1

// A列の「No」が空になるまで読み込む

Do while &ExcelDocument.Cells(&Row,&Col).Text.Trim() <> !""

// セルが数値だった場合

If &ExcelDocument.Cells(&Row,&Col).Type = !"N"

&No = &ExcelDocument.Cells(&Row,&Col).Number

Endif

// セルが文字だった場合

If &ExcelDocument.Cells(&Row,&Col+1).Type = !"C"

&Name = &ExcelDocument.Cells(&Row,&Col+1).Text

Endif

// セルが数値だった場合

If &ExcelDocument.Cells(&Row,&Col+2).Type = !"N"

&Point = &ExcelDocument.Cells(&Row,&Col+2).Number

Endif

// データ更新

New

// No AutoNumber

Name = &Name

Point = &Point

Endnew

// 次の行へ移動

&Row += 1

Enddo

// エクセルを閉じる

&ExcelDocument.Close()

Return

Sub 'Excel_ErrCheck'

If &Result <> 0

// エラーの場合　終了

MSG(&ExcelDocument.ErrDescription)

&ExcelDocument.Close()

Return

Endif

Endsub

読み込むエクセルのレイアウトはこんな感じ

★☆★☆ 結果 ★☆★☆

★☆★☆ 解説 ★☆★☆

とりあえずエクセルを読み込んでデータベースに登録してます。
一応
&ExcelDocument.Cells(&Row,&Col).Type
この部分でセルのタイプを判定してますが
必要に応じてタイプ判定してください。
※ちなみに備忘録なので自動Commitでふ！

■エクセルを保存 – プロシージャ

// エクセルのファイルパスを設定
&FilePath = !"C:\Temp\Excel\テスト2.xlsx"

// エクセルを開く
&Result = &ExcelDocument.Open(&FilePath)
Do 'Excel_ErrCheck'

// セルの初期値を設定
&Row = 1
&Col = 1

// ヘッダーを出力
&ExcelDocument.Cells(&Row,&Col).Text 	= !"No"
&ExcelDocument.Cells(&Row,&Col+1).Text 	= !"名前"
&ExcelDocument.Cells(&Row,&Col+2).Text 	= !"得点"

// DBを読み込んでデータを出力
For each
	
	// 次の行に移動
	&Row += 1
	
	// No
	&ExcelDocument.Cells(&Row,&Col).Number 	 = No
	
	// 名前
	&ExcelDocument.Cells(&Row,&Col+1).Text	 = Name
	
	// 得点
	&ExcelDocument.Cells(&Row,&Col+2).Number = Point
	
Endfor

// エクセルを保存
&Result = &ExcelDocument.Save()
Do 'Excel_ErrCheck'

// エクセルを閉じる
&Result = &ExcelDocument.Close()

Return



Sub 'Excel_ErrCheck'
	If &Result <> 0
		// エラーの場合　終了
		MSG(&ExcelDocument.ErrDescription)
		&ExcelDocument.Close()
		Return
	Endif
Endsub

// エクセルのファイルパスを設定

&FilePath = !"C:\Temp\Excel\テスト2.xlsx"

// エクセルを開く

&Result = &ExcelDocument.Open(&FilePath)

Do 'Excel_ErrCheck'

// セルの初期値を設定

&Row = 1

&Col = 1

// ヘッダーを出力

&ExcelDocument.Cells(&Row,&Col).Text = !"No"

&ExcelDocument.Cells(&Row,&Col+1).Text = !"名前"

&ExcelDocument.Cells(&Row,&Col+2).Text = !"得点"

// DBを読み込んでデータを出力

For each

// 次の行に移動

&Row += 1

// No

&ExcelDocument.Cells(&Row,&Col).Number = No

// 名前

&ExcelDocument.Cells(&Row,&Col+1).Text = Name

// 得点

&ExcelDocument.Cells(&Row,&Col+2).Number = Point

Endfor

// エクセルを保存

&Result = &ExcelDocument.Save()

Do 'Excel_ErrCheck'

// エクセルを閉じる

&Result = &ExcelDocument.Close()

Return

Sub 'Excel_ErrCheck'

If &Result <> 0

// エラーの場合　終了

MSG(&ExcelDocument.ErrDescription)

&ExcelDocument.Close()

Return

Endif

Endsub

★☆★☆ 結果 ★☆★☆

一番最初にエクセルのパスを固定してますが
パスとか名前はコーディングルールやそのときのプロジェクトの設計に沿って
設定してください！

以上がGeneXusでエクセルを使う感じでした。
結構簡単なのですが罫線とか引けないのが痛いですねｗｗｗ

公式wikiのリンクも張っておきますよっと。

GeneXus wiki – ExcelDocument データタイプ
http://wiki.genexus.jp/hwiki.aspx?ExcelDocument+%E3%83%87%E3%83%BC%E3%82%BF%E3%82%BF%E3%82%A4%E3%83%97

GeneXus wiki – ExcelCells データタイプ
http://wiki.genexus.jp/hwiki.aspx?ExcelCells+%E3%83%87%E3%83%BC%E3%82%BF%E3%82%BF%E3%82%A4%E3%83%97

GeneXus wiki – ExcelCells データタイプ（Type）
http://wiki.genexus.jp/hwiki.aspx?%5bExtended+Data+Type+Type%5d+%E3%83%97%E3%83%AD%E3%83%91%E3%83%86%E3%82%A3

前の記事

【GeneXus Tips】IN と IndexOf 2015.09.15
次の記事

PDFBoxをコマンドラインから使ってみる 2015.09.16

日	月	火	水	木	金	土
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30

【GeneXus Tips】Excelの読み込みと出力

■エクセルを読込 – プロシージャ

★☆★☆ 結果 ★☆★☆

★☆★☆ 解説 ★☆★☆

■エクセルを保存 – プロシージャ

★☆★☆ 結果 ★☆★☆

★☆★☆ 結果 ★☆★☆

【GeneXus Tips】IN と IndexOf 2015.09.15

PDFBoxをコマンドラインから使ってみる 2015.09.16