你代码没有把excel关闭啊
Dim App As New MSExcel.Applicationtry catch ex As exception msgbox(ex.message) app.quitfinally app.quitEnd try