NewSheet=Excel.ActiveSheet
NewSheet.Name="123"

或者：
NewSheet=Excel.ActiveWorkbook.sheets.add
NewSheet.Name="123"

或者在新建的时候命名：
Excel.ActiveWorkbook.sheets.add.Name="123"

谢谢大侠！
我现在是这样的，但不理想。
lnSheetCount=oExcel.WorkBooks(1).Sheets.Count+1 &&统计工作表数量
cName='新表'+Alltrim(Str(lnSheetCount))  &&表名不重复
oExcel.Sheets.Add.Name=cName  &&新增加的表重新命名
我的本意是要测试当前表名，并改名。

哦，真抱歉，帮不了你。