设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 5723|回复: 5

[VSTO] 如何快速把EXCEL数据,读取到VB窗体的combox中去?

[复制链接]
发表于 2015-5-21 23:21:08 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

您需要 登录 才可以下载或查看,没有帐号?注册

x
具体见附件:
    有一个EXCEL,共A、B两列。要完成下面两个任务:
1、我启动vb窗体时,要求把B列的数据,全部读取到combox中去。
2、我在combox中选择某个内容时,就弹出msgbox ,显示EXCEL中对应的A列中的内容。

     举例:在combox中,我选择“一”,则msgbox 1;选择二,则msgbox 2……
EXCEL截图.png

读取指定数据.rar

8.01 KB, 下载次数: 42

发表于 2015-5-22 08:54:47 | 显示全部楼层
这样试试:
  1. Dim ArrData
  2. Private Sub Form_Load()
  3.     Dim xlApp As Object, xlBook As Object, i&
  4.     Set xlApp = CreateObject("Excel.Application")
  5.     Set xlBook = xlApp.Workbooks.Open(Replace(App.Path & "\数据库.xlsx", "\", ""))
  6.     With xlBook.Worksheets(1)
  7.         ArrData = .range("A1:B" & .cells(.rows.Count, 1).End(3).row).Value
  8.     End With
  9.     xlBook.Close False
  10.     Set xlBook = Nothing
  11.     xlApp.quit
  12.     Set xlApp = Nothing
  13.     With Me.Combo1
  14.         For i = 1 To UBound(ArrData)
  15.             .AddItem ArrData(i, 2), i - 1
  16.         Next i
  17.         .ListIndex = 0
  18.     End With
  19. End Sub
  20. Private Sub Command1_Click()
  21.     MsgBox ArrData(Me.Combo1.ListIndex + 1, 1)
  22. End Sub
复制代码

另外,combo1的style属性改成2比较好,只允许用户在列表中选择,无法自己录入。
style.jpg
附件: 读取指定数据 xqoa.rar (8.31 KB, 下载次数: 26)

评分

参与人数 1魅力值 +5 消费券 +50 收起 理由
chenlifeng + 5 + 50 耐心解答:)

查看全部评分

回复 支持 2 反对 0

使用道具 举报

 楼主| 发表于 2015-5-22 12:41:08 | 显示全部楼层
不错的效果,真简洁
回复 支持 反对

使用道具 举报

发表于 2018-2-4 11:51:51 | 显示全部楼层
excel 中有多列  怎么写?

点评

有多列修改:.range("A1:B" & .cells(.rows.Count, 1).End(3).row).Value 把A1:B 这儿修改到你想要的区域,中间可以包括空白列。  详情 回复 发表于 2018-4-22 05:31
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-22 05:31:16 | 显示全部楼层
461773691 发表于 2018-2-4 11:51
excel 中有多列  怎么写?

有多列修改:.range("A1:B" & .cells(.rows.Count, 1).End(3).row).Value  
把A1:B  这儿修改到你想要的区域,中间可以包括空白列。
回复 支持 反对

使用道具 举报

发表于 2019-1-23 16:25:38 | 显示全部楼层
这个方法真好。速度快多了。多谢0Mouse。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师

Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2 ) | 闽公网安备 35020302032608号  

GMT+8, 2019-2-17 03:27

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表