大侠们，我使用VB在EXCEL中想插入一个新的工作表，怎么出错了，帮我看看吧！谢谢；俄

Question

Sub hh()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As ObjectSet xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "E:\编程测试\test.xls"
Set xlBook = xlExcel.Workbooks("test.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(1, 1) = "SDDDDDD"
xlSheet.Name = "GfK"
Application.DisplayAlerts = False
xlBook.Close SaveChanges:=True  '对excel的保存设置
Application.DisplayAlerts = TruexlExcel.Visible = True
xlBook.Sheets.Add after:=Worksheets(1)
End Sub
系统提示说是ADD 作用于对象是出错！
帮忙看看吧 我找不出错误

Answer 1

xlBook.Sheets.Add after:=Worksheets(1) 你在这语句前都已经执行xlBook.Close了。计算机就不知道XlBook是啥了。
把它移到Close前吧。

Answer 2

谢谢 不过
我把close 语句放到最后，还是出错，请各位继续伸出援助之手