回复 12楼 sdoger
3.1.5 获取工作表名称
oExcel=CreateObject("Excel.Application") && 创建Excel对象
With oExcel
.WorkBooks.Add && 添加新工作簿,默认为3个工作表
* 插入工作表并且命名
For lnI=1 To 12
.Sheets.Add
.ActiveSheet.Name=Transform(lnI)+"月"
EndFor
* 获取工作表名称
For lnI=1 To .Sheets.Count
?.Sheets(lnI).Name
EndFor
EndWith