请问关于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 , 数据库(包含打印,安装,报表)