入力フォームの処理
入力フォームでは、Excelのインスタンスを作成し、新しいブックを追加してワークシートのセルにTextBoxコントロールの入力データを転送するという簡単なものです。
Excelのインスタンスを使うので、ソリューションエクスプローラの「参照設定」でExcelへの参照を設定するのを忘れないでください。
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With xl .Workbooks.Add() .Visible = True End With End Sub Private xl As New Microsoft.Office.Interop.Excel.Application() Dim cnt As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' データ転送の処理 With xl.ActiveWorkbook.Worksheets("sheet1") cnt += 1 .Cells(cnt, 1).value = Me.TextBox1.Text + Me.TextBox2.Text .Cells(cnt, 2).value = Me.TextBox3.Text .Cells(cnt, 3).value = Me.TextBox4.Text End With End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed xl.ActiveWorkbook.Close(False) xl.Quit() End Sub End Class
まとめ
エラー処理の作成は、以外と手間がかかるものですが、GcCommonValidatorコンポーネントを使用するといろいろな形で入力データのエラー処理を設定できます。
エラーを視覚的にユーザーに提示できると、入力間違いを未然に防ぐことができますから、GcCommonValidatorコンポーネントを使ったエラー処理はかなり効果的だと言えるのではないでしょうか。