Excelデータの検索

質問

1.コモンダイアログを開く
2.パス上のExcelファイルを取得
3.VB上で取得したデータベースのファイルと比較したいのですが。

1.のところは分かるのですが、VB上からExcelのデータの取り方がわかりません。
参考urlか関連ソースを教えてください。

VB.NET,SQL Server 2005を使用

回答No.3

AKARI0418

COMオブジェクトを使用してのアクセスは非常に遅く、かつCOMオブジェクトの開放漏れにより、EXCEL自体が正しく終了せずに残ってしまう可能性があります。

横槍申し訳ないのですが、COMオブジェの開放の仕方としてはimogasi様の書き方では不十分であり、EXCELが終了せずに野っこ手しまうと思います。

詳しくは以下をご覧ください。
Excel・Word・他(30)http://hanatyan.sakura.ne.jp/dotnet/index.html

とりあえずVB上からExcelのデータの取り方がわかればよろしいでしょうか？

OLEDBを使用して、データセットを作成する方法を紹介いたします。
私が作成したツールからの抜粋ですので、わかり図らいところは質問お願いいたします。
Dim filename As String = "エクセルパス"
Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + filename + "; Extended Properties=Excel 8.0;"
Dim cn As OleDbConnection = New OleDbConnection(cnstr)
Dim dt As DataTable
Dim tablename As String = Nothing
'シート名を取得する
cn.Open()
dt = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
cn.Close()

Dim flag As Boolean = False
For Each dr As DataRow In dt.Rows
'Debug.WriteLine(dr(2))
If dr(2) = "探したいシート名$" Then
flag = True
tablename = dr(2)
Exit For
End If
Next
dt.Dispose()

Dim dAdp As OleDbDataAdapter
Dim dSet As System.Data.DataSet = New System.Data.DataSet
Dim strSQL As System.Text.StringBuilder = New System.Text.StringBuilder
'A5:AP11000が取得範囲
'指定しなくてもよい
strSQL.Append("SELECT * FROM [")
strSQL.Append(tablename)
strSQL.Append("A5:AP11000]")
dAdp = New OleDbDataAdapter(strSQL.ToString, cn)
dAdp.Fill(dSet)

dAdp.Dispose()
cn.Dispose()
dt = dSet.Tables(0)