改名很容易实现，如： 
     Set oleExcel = CreateObject("Excel.Application") 
     oleExcel.Visible = True 
     Set oleWorkbook = oleExcel.Workbooks.Add 
     Set oleWorkSheet = oleWorkbook.Sheets.Add 
     oleWorkSheet.Name = "MySheet" 
    如果你想控制Sheet的数量，可以使用Sheets.Add或Sheets.Remove进行操作。象这种问题，你可以在EXCEL中先录制一段宏，然后看看宏的代码就清楚了。 
<END>