更改已添加工作表的名称

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