在Access中用代码关不掉Excel程序

Henry D. Sy

应网友要求做个历遍工作簿中所有工作表的所有单元格的过程，
但问题出现在最后关不掉Excel程序。查询答案倒是正确的。
附上代码和附件，请各位兄弟帮忙，指教。

1. Private Sub Command0_Click()
   
2.     Dim Conn As New ADODB.Connection
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim i, j, k As Integer
   
5.     Dim strName, strSQL, str As String
   
6.     Dim xlApp As New Excel.Application
   
7.     Dim xlBook As Excel.Workbook
   
8.     Dim xlSheet As Excel.Worksheet
   
9.     If IsNull(Me.Text3) Then
   
10.         MsgBox "Enter then Data to Find,Please!!"
    
11.         Me.Text3.SetFocus
    
12.         Exit Sub
    
13.     End If
    
14.     strName = CurrentProject.Path & "\book1.xls"
    
15.     Set xlBook = xlApp.Workbooks.Open(strName)
    
16.     Conn.Open _
    
17.             "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False;Data Source=" _
    
18.           & strName & "; Extended Properties='Excel 8.0;HDR=Yes'"
    
19.     For k = 1 To xlBook.Sheets.Count
    
20.         strSQL = "select * from [" & xlBook.Sheets(k).Name & "$]"
    
21.         rs.Open strSQL, Conn, adOpenKeyset, adLockReadOnly
    
22.         Do While Not rs.EOF
    
23.             For i = 1 To rs.Fields.Count - 1
    
24.                 If rs.Fields(i) = Me.Text3 Then
    
25.                     str = xlBook.Sheets(k).Name & "  " & rs.Fields(0) & i
    
26.                     j = 1
    
27.                     Exit Do
    
28.                 End If
    
29.             Next
    
30.             rs.MoveNext
    
31.         Loop
    
32.         rs.Close
    
33.         If j = 1 Then
    
34.             Exit For
    
35.         End If
    
36.     Next
    
37.     If Len(str) <> 0 Then
    
38.         MsgBox str
    
39.     Else
    
40.         MsgBox "Nothing Was Finded"
    
41.     End If
    
42.     Conn.Close
    
43.     Set Conn = Nothing
    
44.     Set rs = Nothing
    
45.     xlBook.Close
    
46.     Set xlBook = Nothing
    
47.     xlApp.Quit
    
48. End Sub

复制代码

Henry D. Sy

另：
代码中的一句
str = xlBook.Sheets(k).Name & "  " & rs.Fields(0) & i
中，原来的 i 是 用 rs.Fields(i).Name 来的，但当查询的是第一个工作表（附件中的2007-19表）时，答案正确，而其他工作表出现错误的答案。很奇怪。后来因为字段名正好是与 i 同值，所以就直接用 i 代替。
但现在也找不出问题的真正原因。

tmtony

会不会有其它与excel相关的对象没有正常关闭.
你试试先将 xlApp.visible设置可见
看看最后是否对象完整退出了

Henry D. Sy

好的，谢谢站长先。

Henry D. Sy

原帖由 dddddd 于 2008-11-12 20:05 发表
好的，谢谢站长先。

加了xlApp.Visible = True
能看到excel程序加载着，和退出。
但进程里仍有excel

Henry D. Sy

输入 7177 按find可以得到正确的 2007-27 表 坐标 J2 的答案。

Henry D. Sy

有时还会出现下面的对话框

Henry D. Sy

[:28] [:28]