当前位置:编程学习 > VB >>

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

我做一个导入界面  找到要用的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 Sub

Private Sub Filel_Click()
 Label1.Caption = Dirl.Path & "\" & Filel.FileName
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Filel.Pattern = "*.xls"
End Sub

Private Sub Command1_Click()
Dim A As Integer
Dim B As Double
Dim C As Integer

Dim 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 / B

End Sub

里面的计算没有编完
运行的时候显示   无法找到("Label1.Caption")

谢谢哪位大侠帮忙找下原因    给出解决办法
小弟菜鸟  先谢过了 --------------------编程问答-------------------- 把label1.caption的双引号去掉
Set xlBook = xlApp.Workbooks.Open(Label1.Caption)  --------------------编程问答-------------------- up
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,