vb 求助
请教各位：下面是我存储数据的代码，但运行后老是出现让我保存对表的修改的信息，请各位帮忙看一下，谢谢
Set xlBook = xlApp.Workbooks.Open(App.Path & "\xscj.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Sheets("学生成绩表")
xlsheet.Activate
With xlsheet
Text2.Text = form1.Combo2.Text
For m = 1 To 100
If .Range(.Cells(m, 1), .Cells(m, 1)) = Text2.Text Then
.Range(.Cells(m, 6), .Cells(m, 6)) = i '将最后所得成绩存入学生成绩表中
xlBook.Close
End If
Next
End With
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing
