| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 710 人关注过本帖, 2 人收藏
标题:请问VB.net怎样把EXCEL数据写入datagridview1啊。
只看楼主 加入收藏
lin7516
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-3-9
结帖率:100%
收藏(2)
 问题点数:0 回复次数:2 
请问VB.net怎样把EXCEL数据写入datagridview1啊。
  请问怎样把EXCEL数据写入datagridview1啊。谢谢!!!
还有我编辑了datagridview1的列,可是加载数据时,datagridview1却自动添加了列,我编辑的列却是空的,请问怎么加载到自己的列上去啊。

[ 本帖最后由 lin7516 于 2014-3-17 14:53 编辑 ]
搜索更多相关主题的帖子: EXCEL 
2014-03-17 10:16
jianjunfeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:5
帖 子:42
专家分:166
注 册:2009-3-13
收藏
得分:0 
回复 楼主 lin7516
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim OPEN As New OpenFileDialog : Dim filea As String
        Me.DataGridView1.DataSource = Nothing
        Me.DataGridView1.Rows.Clear()
        Me.DataGridView1.Columns.Clear()
        'OPEN.InitialDirectory =
        OPEN.Filter = "excel files (*.xls)|*.xls"
        OPEN.FilterIndex = 1
        OPEN.RestoreDirectory = True
        If OPEN.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim fileName As String
            fileName = OPEN.FileName
            '建立EXCEL连接,读入数据
            Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & fileName & "';Extended Properties=Excel 8.0;"
            Dim myDataset As New DataSet
            If ComboBox2.SelectedIndex > 0 Then
                filea = Trim(ComboBox2.Text)
            Else
                filea = Mid(fileName, InStrRev(fileName, "\", -1, 1) + 1, Len(fileName))
                Dim aa As Integer = InStr(1, filea, ".")
                filea = Mid(filea, 1, aa - 1)
            End If
            Dim fileB As String = "SELECT * FROM [" & filea & "$]"
            Dim da As New OleDb.OleDbDataAdapter(fileB, strConn)
            Try
                da.Fill(myDataset)
                Me.DataGridView1.DataSource = myDataset.Tables(0)
                Me.Button2.Enabled = True
            Catch ex As Exception
                MsgBox(ex.Message.ToString)
                Me.Button2.Enabled = False
            End Try
        End If
    End Sub
图片附件: 游客没有浏览图片的权限,请 登录注册
2014-05-19 12:19
worte
Rank: 1
等 级:新手上路
威 望:2
帖 子:4
专家分:0
注 册:2014-5-23
收藏
得分:0 
还有我编辑了datagridview1的列,可是加载数据时,datagridview1却自动添加了列,我编辑的列却是空的,请问怎么加载到自己的列上去啊。


我也想知道这是怎么一回事?
2014-05-23 15:22
快速回复:请问VB.net怎样把EXCEL数据写入datagridview1啊。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036188 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved