请问关于vb6.0调用excel中数据进行计算的问题

Question

我做一个导入界面  找到要用的excel  然后在调用里面的数据进行计算开始的程序这样的
Option Explicit
Private Sub Drive1_Change()
   Dirl.Path = Drive1.Drive
End Sub
Private Sub Dirl_Change()
    Filel.FileName = Dirl.Path
    Label1.Caption = Dirl.Path
End SubPrivate Sub Filel_Click()
 Label1.Caption = Dirl.Path & "\" & Filel.FileName
End Sub
Private Sub Command2_Click()
Unload Me
End SubPrivate Sub Command3_Click()
Filel.Pattern = "*.xls"
End SubPrivate Sub Command1_Click()
Dim A As Integer
Dim B As Double
Dim C As IntegerDim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("Label1.Caption")
Set xlSheet = xlBook.Worksheets(1)
A = xlSheet.Range("C1")
B = xlSheet.Range("C2")
C = A / BEnd Sub里面的计算没有编完
运行的时候显示   无法找到("Label1.Caption")谢谢哪位大侠帮忙找下原因    给出解决办法
小弟菜鸟  先谢过了

Answer 1

把label1.caption的双引号去掉
Set xlBook = xlApp.Workbooks.Open(Label1.Caption)