在Access中用代碼關(guān)不掉Excel程序

Henry D. Sy

應網(wǎng)友要求做個歷遍工作簿中所有工作表的所有單元格的過程，
但問題出現(xiàn)在最后關(guān)不掉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表）時，答案正確，而其他工作表出現(xiàn)錯誤的答案。很奇怪。后來因為字段名正好是與 i 同值，所以就直接用 i 代替。
但現(xiàn)在也找不出問題的真正原因。

tmtony

會不會有其它與excel相關(guān)的對象沒有正常關(guān)閉.
你試試先將 xlApp.visible設(shè)置可見
看看最后是否對象完整退出了

Henry D. Sy

好的，謝謝站長先。

Henry D. Sy

原帖由 dddddd 于 2008-11-12 20:05 發(fā)表
好的，謝謝站長先。

加了xlApp.Visible = True
能看到excel程序加載著，和退出。
但進程里仍有excel

Henry D. Sy

輸入 7177 按find可以得到正確的 2007-27 表 坐標 J2 的答案。

Henry D. Sy

有時還會出現(xiàn)下面的對話框

Henry D. Sy

[:28] [:28]