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
结果显示未找到方法或数据成员
各位大神快快显灵吧

答案：错误语句：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

其他：你看看是在    那条出现的错误，然后看看相关的引用，是不是存储错误或相关的引用 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 

上一个：解释一下这些常用的VB编码中的语句！在线等啊！
下一个：VB问题，如何把图复制在剪贴板中？