|
Dim QueryExcel As
String
Dim CommExcel
As
OleDb.OleDbCommand
Dim DaExcel
As
New
OleDb.OleDbDataAdapter
Dim TableExcel
As
New DataTable
Dim CnExcel
As
New
OleDb.OleDbConnection
CnExcel.ConnectionString =
"Provider=Microsoft.Jet.Oledb.4.0;Data Source="
& TxtExcelPath.Text &
";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
If CnExcel.State =
ConnectionState.Closed Then
CnExcel.Open()
QueryExcel = "Select *
from [" & SName &
"$]"
CommExcel = New
OleDb.OleDbCommand(QueryExcel, CnExcel)
DaExcel.SelectCommand = CommExcel
DaExcel.Fill(TableExcel)
CnExcel.Close()
|