向各位大神请教一个如何将Excel单元格中的数据显示在标签上，并随鼠标的点击而改变内容 - 编程论坛

#2

紫茶壶2019-03-06 09:30

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

#3

紫茶壶2019-03-06 15:56

各位大神们，请看看我的代码有问题吗？为什么在标签上不显示单元格的内容
？

#4

ZHRXJR2019-03-07 20:08

根据你的意图，简单做了一下，应该是可以的。

程序代码：

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文件名及路径根据你的需要修改即可。

#5

abc1232812019-04-11 22:46

回复 4楼 ZHRXJR

向老师学习正是我想学习的例程