24小时热门版块排行榜

返回列表

[交流] 【求助】利用vb把excel里面的数据实时显示出来已有2人参与

那位仁兄学过VB,帮忙看一下这个能不能编：
利用vb编写一个界面，把excel里面的数据实时显示出来
主要实现：
1、excel里面的数据每5秒刷新一次，所以在编写读取的时候要实时更新显示的内容（excel的刷新不在编写的考虑范围内，它相当于一个动态的数据库）；
2、编译完成后是一个直接就运行的工程文件（界面显示）。

回复此楼

» 猜你喜欢

为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？已经有9人回复
版面费该交吗已经有9人回复
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低已经有13人回复
面上可以超过30页吧？已经有4人回复
“人文社科而论，许多学术研究还没有达到民国时期的水平” 已经有5人回复
什么是人一生最重要的？已经有4人回复

1楼 2010-08-17 10:48:54

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

magic7004

金虫 (职业作家)

程序强帖: 2
应助: 0 (幼儿园)
金币: 444
红花: 4
帖子: 3278
在线: 156.2小时
虫号: 482895
注册: 2007-12-26
性别: GG
专业: 化学工程

★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2):辛苦了！ 2010-08-17 14:50:22

1. 先在VB工程里加入MS Excel的引用
2. 然后定义WithEvents WorkSheet As Excel.WorkSheet
3. 然后在worksheet的change事件里面更新数据就可以了

参考下面的

'Form1上有一个Label1

Option Explicit

Private WithEvents WorkSheet As Excel.WorkSheet
Dim Application As Excel.Application

Private Sub Form_Load()
Set Application = New Excel.Application '打开新的excel
Application.Visible = True '显示之
Application.Workbooks.Add '加入新的工作簿
Set WorkSheet = Application.ActiveSheet '获取活动的工作表
End Sub

Private Sub WorkSheet_Change(ByVal Target As Excel.Range) '工作表的change事件
Label1.Caption = Target.Cells(1, 1) '把新的内容显示到Label1上
End Sub