更改添加的工作表的名稱

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