vbscript - 追加したワークシートの名前を変更する

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