Question

求教：VB控制EXCEL第一次运行正确，再次运行出错？！

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Private Sub Command1_Click()
Dim fname As String
cdlg1.ShowOpen
fname = cdlg1.FileName
End Sub

Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(fname)
xlApp.Visible = True
Dim r As Integer
r = ActiveSheet.Range("A:a").Find("电话号码 ").Row

。。。。。。。。

xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlsheet = Nothing

这个代码第一次运行的时候是正确的，但是不关闭再次运行就会出错，r = ActiveSheet.Range("A:a").Find("电话号码 ").Row 这行就过不了，不知道是什么原因，真心求指点，谢谢各位。

Answer 1

试一下，上一行：Dim r As Integer
改成：Dim r As long

追问

不行，试过了，还是没对。。。。