vb.net如何与excel建立连接,并从里面查询并读取数据?

vb.net如何与excel建立连接,并里面查询并读取数据?我看有人说在项目里引用excel类库我在点添加引用里面什么都没有啊可以写一个很简单的小例子吗?万分感谢!... vb.net如何与excel建立连接,并里面查询并读取数据?
我看有人说在项目里引用excel类库 我在点添加引用里面什么都没有啊

可以写一个很简单的小例子吗?万分感谢!
展开
 我来答
一点设计演示
高粉答主

2016-01-28 · 职场/教育各类模板,衷于原创
一点设计演示
采纳数:874 获赞数:83615

向TA提问 私信TA
展开全部

1.新建一张表格,在表格中导入学生的成绩表,如图所示,将建立一个按钮,通过它来实现查找。

   2.单击菜单栏中的“开发工具”——插入——表单控件——按钮,在出现的十字箭头上拖住画出一个按钮,如图所示。

 3.在弹出的查找红对话框中选择“录制”,在弹出的“录制新宏”对话框中,修改宏名称为“查找”,单击确定。

4. 单击“开发工具”——查看代码,打开VBA编辑器,如图所示。

5.现在输入代码:

Sub 查找()

    Dim jieguo As String, p As String, q As String

    Dim c As Range

    jieguo = Application.InputBox(prompt:="请输入要查找的值:", Title:="查找", Type:=2)

    If jieguo = "False" Or jieguo = "" Then Exit Sub

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    With ActiveSheet.Cells

        Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

        If Not c Is Nothing Then

            p = c.Address

            Do

                c.Interior.ColorIndex = 4

                q = q & c.Address & vbCrLf

                Set c = .FindNext(c)

            Loop While Not c Is Nothing And c.Address <> p

        End If

End With

MsgBox "查找数据在以下单元格中:" & vbCrLf & vbCrLf _

        & q, vbInformation + vbOKOnly, "查找结果"

      Application.ScreenUpdating = True

      Application.DisplayAlerts = True

End Sub

  6.现在回到EXCEL表格,右击按钮,选择“编辑文字”,修改按钮名称为“查找按钮”。

7. 现在单击查找按钮,出现对话框“请输入要查找的值”,在方框中输入“男”,单击确定,出现对话框“查找数据在一下单元格中”,单击确定,对应单元格就变成了亮色。

hanaukyo47
2012-10-16
知道答主
回答量:32
采纳率:0%
帮助的人:17.6万
展开全部
三种方式
1.用OLEDB ,将Excel视为数据源
2.采用Office 的API
3.将Excel作为Zip文件解压缩,获得内容的Xml文档
追问
可以写一个将excel视为数据源连接的小例子吗?然后建立连接后怎么查询里面的值呢?
追答
将Excel视为数据库的话 用SQL就可以查询了

例子就不给你了 网上有的是
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
梦3男
2012-10-20
知道答主
回答量:55
采纳率:0%
帮助的人:19.1万
展开全部
Vb....不会。。。。.net倒是会
追问
这个就是.net啊 只不过用的是vb.net不是C#,可以指导一下怎么将excel设为数据源并用select查询里面的数据吗?
追答
你这个就是将excel导入到vb中吧???
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式