Question

vb、excel 未找到方法或数据成员，在线急等

想让窗口中的标签显示excel中的值，代码如下
Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("d:\temp\热力计算程序.xls")
'热力计算结果数据输入
Set xlsheet = xlBook.Worksheets(9)
xlsheet.Activate
'炉膛数据
Val(Label21.Caption) = Cells(60, 5).Value
xlBook.Close
xlApp.Quit
End Sub
结果显示未找到方法或数据成员
各位大神快快显灵吧

Answer 1

错误语句：Val(Label21.Caption) = Cells(60, 5).Value
赋值语句左侧不能有函数
修改为：Label21.Caption = Cells(60, 5).Value

Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("d:\temp\热力计算程序.xls")
'热力计算结果数据输入
Set xlsheet = xlBook.Worksheets(9)
xlsheet.Activate
'炉膛数据
Label21.Caption = Cells(60, 5).Value
xlBook.Close
xlApp.Quit
End Sub

Answer 2

你看看是在 那条出现的错误，然后看看相关的引用，是不是存储错误或相关的引用

Answer 3

Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("d:\temp\热力计算程序.xls")
'热力计算结果数据输入
Set xlsheet = xlBook.Worksheets(9)
xlsheet.Activate
'炉膛数据
Label21.Caption = xlsheet.Cells(60, 5).Value
xlBook.Close
xlApp.Quit
End Sub