急求关闭电子表格的代码

考试加油站

[试题批量导入模板]这个电子表格关闭不了
以下是部分代码，全部代码在附件中

1.     Dim ZJStr() As String '章节列表
   
2.     Dim ZJId() As String
   
3.    
   
4.     Dim FileStr As String
   
5.      FileStr = AppStr & "试题批量导入模板.xls"
   
6.     If FileStr = "" Then
   
7.         Exit Sub
   
8.     End If
   
9.    
   
10.    
    
11.     Label1.Caption = "正在分析章节信息，请稍后！"
    
12.    
    
13.     Dim Sql As String
    
14.     Dim MsgTxt As String
    
15.     Dim Rs_Zj As ADODB.Recordset
    
16.     Dim Rs As ADODB.Recordset
    
17.    
    
18.    
    
19.     Sql = "select * from zjinfo "
    
20.     Set Rs_Zj = ExecuteSQL(Sql, MsgTxt)
    
21.    
    
22.     If InStr(MsgTxt, "错误") Then
    
23.         MsgBox MsgTxt
    
24.         Exit Sub
    
25.     End If
    
26.    
    
27.     ReDim ZJStr(0)
    
28.     ReDim ZJId(0)
    
29.     If Rs_Zj.RecordCount > 0 Then '========================获取章节信息 如果有
    
30.    
    
31.         For i = 1 To Rs_Zj.RecordCount
    
32.             ReDim Preserve ZJStr(i)
    
33.             ReDim Preserve ZJId(i)
    
34.             
    
35.             ZJStr(i) = Rs_Zj.Fields("zjname") & ""
    
36.             ZJId(i) = Rs_Zj.Fields("zjid") & ""
    
37.             Rs_Zj.MoveNext
    
38.         Next i
    
39.         
    
40.         
    
41.     End If
    
42.    
    
43.    
    
44.     Sql = "select * from tminfo"
    
45.     Set Rs = ExecuteSQL(Sql, MsgTxt)
    
46.     If InStr(MsgTxt, "错误") Then
    
47.         MsgBox MsgTxt
    
48.         Exit Sub
    
49.     End If
    
50.    
    
51.    
    
52.    
    
53.     Dim NewApp
    
54.     Dim NewSheet
    
55.     Dim NewBook
    
56.    
    
57.     Set NewApp = New Excel.Application
    
58.     Set NewBook = NewApp.Workbooks.Open(FileStr, , , , "")
    
59.     '第一位为路径，第五位为密码
    
60.     Set NewSheet = NewBook.Worksheets(1)
    
61.    
    
62.     For i = 2 To NewSheet.Cells.Count

复制代码