请问如何在EXCEL中用VBS代码添加一个指定名字的工作表。我在网上找了个VB的代码改了一下：
Dim ExcelApp
Dim ExcelBook
Dim ExcelSheet

Set excelApp = CreateObject("Excel.Application")
Set ExcelBook = excelApp.Workbooks.Open("d:\cc.xls")
excelApp.DisplayAlerts = False
Set Excelsheet = ExcelBook.Worksheets("s1")
ExcelBook.Sheets.Add
Excelsheet.Activate
Excelsheet.Name = "ssss127"
Excelsheet.Cells(1,2) = "2222222222222222"
ExcelBook.Save
ExcelApp.Workbooks.Close
ExcelApp.Quit
Set ExcelApp = Nothing
MsgBox "11111111",,"11111111111"
但是添加的时候始终有问题，请大侠指教。