专栏首页VB小源码VB.NET 直接读取打开的Excel数据到DataGridView

VB.NET 直接读取打开的Excel数据到DataGridView

Imports Microsoft.Office.Interop

Imports System.Data.OleDb

Public Class Form1

Dim xlapp As Excel.Application

Dim xlbook As Excel.Workbook

Dim xlsheet As Excel.Worksheet

Dim xlrange As Excel.Range

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim dt As New DataTable()

DataGridView1.DataSource = ""

xlapp = GetObject(, "Excel.Application")

xlbook = xlapp.ActiveWorkbook

xlsheet = xlbook.ActiveSheet

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + xlbook.Path.ToString & "\" & xlbook.Name + ";" + "Extended Properties=Excel 8.0;"

Using conn As New OleDbConnection(strConn)

conn.Open()

Dim strExcel As String = "select * from [" & xlsheet.Name & "$a2:z]"

Dim myCommand As New OleDbDataAdapter(strExcel, strConn)

myCommand.Fill(dt)

End Using

DataGridView1.DataSource = dt

End Sub

end class



本文分享自微信公众号 - VB小源码(vb_xym),作者:巴西_prince

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2018-09-17

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • VBA_CAD获取用户输入的坐标点

    prompt1 = vbCrLf & "Enter the start point of the line: "

    巴西_prince
  • VB.NET Excel操作类(获取工作簿列表和工作表列表及工作表对象)

    巴西_prince
  • VB.NET DATAGRIDVIEW数据导出Excel

    Dim rowc As Integer = prt_dgv.Rows.Count

    巴西_prince
  • 解决在反编译中出现中文字符都表示成16进制Unicode的形式

    在vs.net 2003中打开[Tools]-[macros]-[macros explorer] 然后将下面的代码copy-paste 进去 代开你要转换的...

    阿新
  • 使用Jenkins自动部署博客

    这篇文章比较简单,适合初学的读者,本文可以帮助你对基于Jenkins的持续集成有一个比较全局的概念。 提出问题 为了使用HTTPS,我将博客从GitHub Pa...

    企鹅号小编
  • 决策树3: 特征选择之寻找最优划分

    决策树算法的三个步骤:特征选择、决策树生成、决策树剪枝。其中特征选择要解决的核心问题就是:

    木东居士
  • 我的采集小程序配置篇

    前不久把自己无聊时候写的采集程序贡献了出来,没想到反响还不错,不过可能我写的不是很清楚,让大家在采集中遇到了各类问题,这次说一下如何来配置采集项目,以及如何采集...

    脑洞的蜂蜜
  • Jenkins——the thing which auto everything

    今天突然想起来原先的关注者可能还不知道Jenkins是什么,上来就是Jenkins常见问题,有些突兀。是我交代不清楚,所以这篇就来介绍一下。注意...

    DevOps持续交付
  • 利用宏避免发送确认邮件时忘记添加附件

    团队的邮件周知流程在不断规范,对邮件格式当然也做出了很多要求。在刚开始的阶段,大家都还不是很熟练,于是频频出现聚精会神地把邮件内容处理完以后,还没有把制作完成的...

    小李刀刀
  • 关于数据分析工具的终极问题

    昨晚在CPDA微课堂做了场直播,聊了一个终极问题,也是很多人在关注的话题。我把内容整理下来供读者们阅读、质疑和思考。(全文长6000多字)

    公众号PowerBI大师

扫码关注云+社区

领取腾讯云代金券