vb.net excel数据导入datagridview显示

vb.net 专栏收录该内容
12 篇文章 0 订阅
    '''<summary>
    '''从excel把数据导入datagridveiw中,Sheet代表excel中的工作表名称
    '''</summary>
    '''<param name="Sheet">Sheet代表excel中的工作表名称</param>
    '''<param name="datagridview">datagridview代表数据要导入的datagridview名称</param>
    Private Sub importexceltodatagridview(ByVal Sheet, ByVal datagridview)
        Dim fileDialog As OpenFileDialog = New OpenFileDialog()
        Dim FileName As String
        'fileDialog.Filter = "Microsoft Excel files (*.xls)|*.xls"
        If fileDialog.ShowDialog = Windows.Forms.DialogResult.Cancel Then
            Exit Sub
        Else
            Try
                FileName = fileDialog.FileName
                Dim dataAdapter As New OleDbDataAdapter
                Dim MyConnection As New OleDbConnection
                Dim objcmd As OleDbCommand
                Dim dst As New DataSet
                Dim dt As New DataTable
                MyConnection = New OleDbConnection( _
                            "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Data Source=" & FileName & ";" & _
                            "Extended Properties='Excel 12.0;HDR=Yes;IMEX=1;'")
                '   Select   the   data   from   Sheet1   of   the   workbook.
                MyConnection.Open()
                objcmd = New OleDbCommand("select * from [" & Sheet & "$]", MyConnection)
                dataAdapter.SelectCommand = objcmd
                dataAdapter.Fill(dst, "info")
                dt = dst.Tables("info")
                dataAdapter.Update(dst, "info")
                MyConnection.Close()
                datagridview.AutoGenerateColumns = True
                datagridview.DataSource = dt
                'MsgBox("ok")
            Catch ex As Exception
                MessageBox.Show(ex.Message, "读取出错")
            End Try
        End If

  • 1
    点赞
  • 0
    评论
  • 5
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

huangle63

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值