Question

vb 读取自定义目录下exl文件单元格数据

我想叫程序自动读取自定义目录下exl文件指定单元格的数据，可是出现错误，希望高手指教一下，谢谢。
程序如下：
Private Sub Command1_Click()
Dim BookA As New Workbook '先声明一个对象变量
Set .BookA = Workbooks.Open("D:\tools\VB6.0\设备.xls")
Me.Text1.Text = BookA.Sheets("表一").Range("E12").value
End Sub
提示：编译错误，无效或不合格的引用，这是为什么？谢谢

希望答案可以详细些，谢谢。

Answer 1

你试试这个：
Private Sub CommandButton1_Click()
Dim BookA As New Workbook '先声明一个对象变量
Set BookA = Workbooks.Open("D:\tools\VB6.0\设备.xls")
Text1.Text = BookA.Sheets("表一").Range("E12").value
End Sub
你看看当 点击按钮后，系统有没有打开 设备.xls， 如果有，问题出在下一行：
Me.Text1.Text = BookA.Sheets("表一").Range("E12").value
可能你的Sheets（"表一")引用的不对， 可能是另外的名字。
如果设备.xls没有打开， 证明是 Excel打不开，用下面代码试试看，还是不行的话，可能你的电脑打不开Excel文件。

Private Sub CommandButton1_Click()
'定义变量
Dim xlAppA As Excel.Application
Dim BookA As Excel.Workbook
Dim xlSheetA As Excel.Worksheet
Set xlAppA = CreateObject("Excel.Application")
Set BookA = Workbooks.Open("D:\tools\VB6.0\设备.xls")
Text1.Text = BookA.Sheets("表一").Range("E12").value
End Sub

有问题可以继续提。谢谢。

Answer 2

Set .BookA = Workbooks.Open("D:\tools\VB6.0\设备.xls")

去掉点，改为
Set BookA = Workbooks.Open("D:\tools\VB6.0\设备.xls")