| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2809 人关注过本帖
标题:向各位大神请教一个如何将Excel单元格中的数据显示在标签上,并随鼠标的点击 ...
只看楼主 加入收藏
紫茶壶
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2019-2-27
结帖率:0
收藏
已结贴  问题点数:20 回复次数:4 
向各位大神请教一个如何将Excel单元格中的数据显示在标签上,并随鼠标的点击而改变内容
向各位大神
请教一个如何将Excel单元格中的数据显示在标签上,并随鼠标的点击而改变内容,我是一名新手,我的代码如下,大家给看看如何修改
Dim exapp As New Excel.Application
Dim exb As Excel.Workbook
Dim exsh As Excel.Worksheet
Dim dyg As Excel.Range
Dim i As Integer

Private Sub Form_Load()
i = 1
Set exapp = Create.Excel.appliction
Set exb = exapp.Workbooks.Open(e \ "book.xlsx")
Set exsh = exb.Worksheets("sheet1")
Set dyg = exsh.Cells(i, 1)
End Sub

Private Sub Label1_Click()
If i <= 10 Then
Label1.Caption = dug.Value
i = i + 1
Else
Label1.Caption = "结束"
exapp.Workbooks.Close
exapp.Quit
Set exapp = Nothing
End Sub
搜索更多相关主题的帖子: Excel 内容 Dim Sub Set 
2019-03-05 23:02
紫茶壶
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2019-2-27
收藏
得分:0 
Dim exapp As New Excel.Application
Dim exb As Excel.Workbook
Dim exsh As Excel.Worksheet
Dim dyg As Excel.Range
Dim i As Integer


Private Sub Form_Load()
i = 1

Set exb = exapp.Workbooks.Open("E:\fj3.xls")
Set exsh = exb.Worksheets("sheet1")
Set dyg = exsh.Cells(i, 1)
End Sub

Private Sub Label1_Click()
If i <= 10 Then
Label1.Caption = dyg.Value
i = i + 1
Else
Label1.Caption = "结束"
exapp.Workbooks.Close
exapp.Quit
Set exapp = Nothing
End If
End Sub
2019-03-06 09:30
紫茶壶
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2019-2-27
收藏
得分:0 
各位大神们,请看看我的代码有问题吗?为什么在标签上不显示单元格的内容
2019-03-06 15:56
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:20 
根据你的意图,简单做了一下,应该是可以的。

程序代码:
Dim XlApp As New Excel.Application
Dim XlBook As New Excel.Workbook
Dim XLsheet As New Excel.Worksheet
Dim i As Integer

Private Sub Form_Load()
i = 1
Call dy
End Sub

Private Sub dy()
Set XlApp = CreateObject("Excel.Application")
Set XlBook = XlApp.Workbooks.Add
XlApp.Visible = False
Set XlBook = XlApp.Workbooks.Open(App.Path & "\ABCD.xlsx")
Set XLsheet = XlBook.Worksheets("sheet1")
Label1.Caption = XLsheet.Cells(i, 1)
XlApp.Quit
End Sub

Private Sub Label1_Click()
If i <= 10 Then
    i = i + 1
    Call dy
Else
    Label1.Caption = "已经读到文件尾了!"
    i = 0
End If
End Sub


Excel文件名及路径根据你的需要修改即可。
收到的鲜花
  • abc1232812019-04-11 22:44 送鲜花  1朵  

请不要选我!!!
2019-03-07 20:08
abc123281
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2019-4-11
收藏
得分:0 
回复 4楼 ZHRXJR
向老师学习  正是我想学习的例程
2019-04-11 22:46
快速回复:向各位大神请教一个如何将Excel单元格中的数据显示在标签上,并随鼠标 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.013867 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved