更改添加的工作表的名称

Question

objWriteWorkbook.sheets.add ,objWriteWorkbook.sheets(objWriteWorkbook.sheets.count) 
Set NewWorksheetObject = objWriteWorkbook.Worksheets(num) 
objWriteWorkbook.Sheets(num).Name = sheetName 

我想更改添加的工作表的名称。 添加纸张和对象创建该表的工作正常，但是当我试图改变工作表的名称，我得到一个错误“未知的运行错误”

任何一个可以帮助如何可以改变的名称添加表单。

Answer 1

分配新的工作表变量时，你添加：

Set ws = wb.Sheets.Add(, wb.Sheets(wb.Sheets.Count)) 
ws.Name = sheetName 

Answer 2

set xlo=CreateObject("excel.application") 
set wbo=xlo.workbooks.open("C:\Users\XXX\Desktop\Temp.xlsx") 
Set ws = wbo.Sheets.Add(, wbo.Sheets("sheet1")) 
ws.Name = "Priyesh" 


wbo.save 
wbo.close 
xlo.quit 
set wbo=nothing 
set xlo=Nothing