*すべてのExcelシート名を読み取り、テーブル名をシート名として単一のデータセットに複数のシートを追加します。*
'グローバル変数
Dim excelSheetNames As String()
Dim DtSet As System.Data.DataSet = New DataSet()
Private Sub btnLoadData_Click(ByVal sender As System.Object、ByVal e As System.EventArgs)HandlesbtnLoadData.Click
MyConnectionをOleDbConnectionとして薄暗くする
Dim da As System.Data.OleDb.OleDbDataAdapter
Dim i As Integer
MyConnection = New System.Data.OleDb.OleDbConnection( "provider = Microsoft.Jet.OLEDB.4.0;
data source = SStatus.xls; Extended Properties = "" Excel 8.0; HDR = NO; IMEX = 1 "" ")
'次のメソッドは、gloabal配列excelSheetNames内のすべてのExcelシート名を取得します
GetExcelSheetNames( "SStatus.xls")
For Each str As String In excelSheetNames
da = New OleDbDataAdapter("select * from [" & str & "]", MyConnection)
da.Fill(DtSet, excelSheetNames(i))
i += 1
Next
DataGridView1.DataSource = DtSet.Tables(0)
End Sub
パブリック関数GetExcelSheetNames(ByVal excelFileName As String)
Dim con As OleDbConnection = Nothing
Dim dt As DataTable = Nothing
Dim conStr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=") + excelFileName & ";Extended Properties=Excel 8.0;"
con = New OleDbConnection(conStr)
con.Open()
dt = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
excelSheetNames = New String(dt.Rows.Count - 1) {}
Dim i As Integer = 0
For Each row As DataRow In dt.Rows
excelSheetNames(i) = row("TABLE_NAME").ToString()
i += 1
Next
End Function