好像是程序语法问题,使得Excel进程不能关闭(第三部分)

程序第三部分:
                LieNum = Data + 1
                For I = 1 To 5
                    Select Case SheetNum
                        Case 1   '向走势分布页写数据
                            Set LottorySheet = LottoryBook.Worksheets("走势分布")
                            LottoryBook.Sheets("走势分布").Select
                            LottorySheet.Cells(2, LieNum) = Data
                            LottorySheet.Cells(2, 1) = Issue
                            SheetNum = SheetNum + 1             
                        Case 2   '向个位频率页写数据
                            Rows = 2
                            Set LottorySheet = LottoryBook.Worksheets("个位频率")
                            LottoryBook.Sheets("个位频率").Select
                            Debug.Print "Data:"; Data
                            Call GeWei_Judge(Data)
                            If Str = 0 Then
                                LieNum = LieNum + 10
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 1 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 2 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 3 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 4 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 5 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 6 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 7 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 8 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            ElseIf Str = 9 Then
                                LottorySheet.Cells(2, LieNum) = Str
                            End If
                            LottorySheet.Cells(2, 1) = Issue
                            Debug.Print "Data:"; Data
                            SheetNum = SheetNum + 1
                        Case 3   '向AC值布页写数据
                            Set LottorySheet = LottoryBook.Worksheets("AC值")
                            LottoryBook.Sheets("AC值").Select
                            LottorySheet.Cells(2, ACLie) = AC
                            LottorySheet.Cells(2, 1) = Issue
                            SheetNum = SheetNum + 1
                        Case 4   '向2区间页写数据
                            Set LottorySheet = LottoryBook.Worksheets("2区间")
                            LottoryBook.Sheets("2区间").Select
                            LottorySheet.Cells(2, TWBCol) = Data
                            LottorySheet.Cells(2, 1) = Issue
                            SheetNum = SheetNum + 1
                        Case 5   '向3区间页写数据
                            Set LottorySheet = LottoryBook.Worksheets("3区间")
                            LottoryBook.Sheets("3区间").Select
                            LottorySheet.Cells(2, ThrBCol) = Data
                            LottorySheet.Cells(2, 1) = Issue
                            SheetNum = SheetNum + 1
                    End Select
                Next I
                Pst = Pst + 1
            Loop Until Pst = 8
        End If
       ActiveWorkbook.Save
        LottoryBook.Close
        LottoryApp.Quit
        Set LottoryApp = Nothing  
End Sub