如何把EXCEL中的内容导入到DATAGRID中显示出来？？？

[平台想钱想疯了]

我正在用到这方面，CSDN中关于EXCEL这方面在VB。NET中我已经看光了，没有代码显示怎么导入到DATAGRID中，并在DATAGRID中显示出来的，
现在恳求哪个任兄贴一代码出来，告诉再下，万分感激！！！！！

[水如烟]

System.Data.Odbc 可以操作Excel

[水如烟]

处理跟处理access,sql 没什么差别

[jackyoung02]

c＃的：
System.Data.OleDb.OleDbConnection connection = new System.Data.OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source = a.xls");

System.Data.OleDb.OleDbDataAdapter dataAdapter = new System.Data.OleDb.OleDbDataAdapter( "SELECT * FROM [Sheet1$]", connection );

connection.Open();
DataSet dataSet = new DataSet();
dataAdapter.Fill( dataSet, "test" );
connection.Close();


this.dataGrid1.DataSource = dataSet.Tables[0];

[水如烟]

http://www.connectionstrings.com

Excel
ODBC


Standard:

"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;"



OLE DB


Standard:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
"HDR=Yes;" indicates that the first row contains columnnames, not data
"IMEX=1;" tells the driver to always read "intermixed" data columns as text
TIP! SQL syntax: "SELECT * FROM [sheet1$]" - i.e. worksheet name followed by a "$" and wrapped in "[" "]" brackets.

[平台想钱想疯了]

太感谢 lzmtw(水如烟) 兄了.我把myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables("Sheet1$").ToString)改成你说的

myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables(0).TableName)
这个后,就出来了.太谢谢你了.
还有上面的所有的各位!!!!!!!!!!!!!!!

[平台想钱想疯了]

Private Function CreateDataSource() As DataSet
Dim StrFile As String
StrFile = Me.TexBoxExcelDir.Text
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + StrFile + ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
Dim conn As OleDbConnection = New OleDbConnection(strConn)
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
Dim myDataSet As DataSet = New DataSet
myCommand.Fill(myDataSet)
Return myDataSet
End Function





Private Sub DataGridSet()
Dim myDataGrid As New DataGrid
myDataGrid = ME.DataGrid1
myDataGrid.SetDataBinding(CreateDataSource(), ExcelData.Tables("Sheet1$").ToString)


End Sub


各位兄台们：
CreateDataSource()产生数据源,已经证明没有问题,谢谢上面各位提供给我的CONNECTIONSTRING,现在的问题是我拖入DATAGRID1后,在程序中我加入DATAGRIDSET()过程后,一调用这过程,就报 "没有将对象设置到对象实例!" 这个错误!停在:myDataGrid.SetDataBinding(CreateDataSource(), ExcelData.Tables("Sheet1$").ToString)
这一行! 怎么回事了?????各位!!!!

[平台想钱想疯了]

Private Sub DataGridSet()

Dim myDataGrid As New DataGrid
myDataGrid = DataGrid1
myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables("Sheet1$").ToString)


End Sub


DataGridSet()
是这样子的!!!上面的那个有误!错误同上!

[水如烟]

myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables("Sheet1$").ToString)
改为:
myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables(0).TableName)
'看看这个Name是不是Sheet1$

[水如烟]

觉得你这样写法不好，它会调用两次CreateDataSource(),
建议这样
dim ds as DataSet=CreateDataSource()
myDataGrid.DataSource=ds.Tables(0)

[strXiaoCaiNiao]

oledb
和Access一样