* Чтение всех имен листов Excel и добавление нескольких листов в один набор данных с именами таблиц в качестве имен листов. *
'Глобальные переменные
Dim excelSheetNames As String ()
Dim DtSet As System.Data.DataSet = New DataSet ()
Private Sub btnLoadData_Click (отправитель ByVal как System.Object, ByVal e как System.EventArgs) Обрабатывает btnLoadData.Click
Dim MyConnection As OleDbConnection
Dim da As System.Data.OleDb.OleDbDataAdapter
Dim i As Integer
MyConnection = New System.Data.OleDb.OleDbConnection ("provider = Microsoft.Jet.OLEDB.4.0;
источник данных = SStatus.xls; Расширенные свойства = "" Excel 8.0; HDR = НЕТ; IMEX = 1 "" ")
'следующий метод получает все имена листов Excel в глобальном массиве excelSheetNames
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