如何将Excel中的数据导入到DataGridView中

如何将Excel中的数据导入到DataGridView中显示,然后保存到数据库.  
   
  即先在DataGridView显示后保存  
   
   
  请问如何显示?? 问题点数：100、回复次数：4Top

1 楼zhouxiaotan（夜雨悠扬）回复于 2006-03-05 22:53:09 得分 20

办法有两个  
  1。打开EXCEL，将数据一个一个的读出来放到DataTable中，然后邦定  
        这个需要Excel.Application对象等，EXCEL的对象  
  2。将EXCEL作为数据源，读到DataSet中，然后显示  
   
  请参照  
  http://community.csdn.net/Expert/topic/4580/4580145.xml?temp=.9717218Top

2 楼chinahth（淡若浮云）回复于 2006-03-05 23:00:38 得分 20

一般把EXCEL作为数据源来处理，你搜一下，这方面的例子应该比较多Top

3 楼yuzhongcao（雨中草）回复于 2006-03-08 14:13:11 得分 30

Dim   file   As   String  
                  With   openFileDialog1  
                          .Filter   =   "Excel格式文件(*.xls)|*.xls"  
                          .FilterIndex   =   0  
                          .InitialDirectory   =   "d:\"  
                  End   With  
                  If   openFileDialog1.ShowDialog   =   DialogResult.OK   Then  
                          file   =   openFileDialog1.FileName  
                  Else  
                          Exit   Sub  
                  End   If  
   
                  MyConnection   =   New   System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data   source="   &   file   &   ";   Extended   Properties=Excel   8.0;")  
                  '   Select   the   data   from   Sheet1   of   the   workbook.  
                  MyCommand   =   New   System.Data.OleDb.OleDbDataAdapter("select   *   from   [Sheet1$]",   MyConnection)  
   
                  DS   =   Nothing  
                  DS   =   New   System.Data.DataSet  
                  MyCommand.Fill(DS,   "a")  
                  MyConnection.Close()  
                  DataGrid1.DataSource   =   DS  
                  DataGrid1.DataMember   =   "a"  
   
  此程序的限制是固定了EXCEL的表单名称SHEET1，你可根据需要更改Top

4 楼tomgi（蜗牛）回复于 2006-03-08 19:20:27 得分 30

Public   Function   ReadExcelFileToDataSet(ByVal   strFileName   As   String)   As   DataSet  
                  Try  
   
                          '建立一个专门存放Excel文件的目录  
                          'If   Directory.Exists(Page.Server.MapPath("ExcelFolder"))   =   False   Then  
                          '         Directory.CreateDirectory(Page.Server.MapPath("ExcelFolder"))  
                          'End   If  
   
                          Dim   strConn   As   String  
                          strConn   =   "Provider=Microsoft.Jet.OLEDB.4.0;"   &   "Data   Source=c:\myData.xls;"   &   "Extended   Properties=Excel   8.0;"  
                          Dim   conn   As   OleDb.OleDbConnection   =   New   OleDb.OleDbConnection(strConn)  
                          Dim   strExcel   As   String   =   "select   *   from   [sheet1$]"  
                          Dim   ds   As   DataSet   =   New   DataSet  
                          conn.Open()  
                          Dim   adapter   As   OleDbDataAdapter   =   New   OleDbDataAdapter(strExcel,   strConn)  
                          adapter.Fill(ds)  
                          Return   ds  
                  Catch   ex   As   Exception  
                          Throw   ex  
                  End   Try  
          End   FunctionTop

相关问题

• 数据
• excel
• ds
• datagridview
• openfiledialog
• myconnection
• sheet
• 显示
• oledb
• data

• 帖主：lv365
• zhouxiaotan
• chinahth
• yuzhongcao
• tomgi

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载