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

我想更改添加的工作表的名称。为该工作表添加工作表和对象创建工作正常但是当我尝试更改工作表的名称时出现错误“未知运行时错误”

任何人都可以帮助如何更改添加表的名称。

4

2 回答 2

4

添加时将新工作表分配给变量:

Set ws = wb.Sheets.Add(, wb.Sheets(wb.Sheets.Count))
ws.Name = sheetName
于 2013-03-22T14:02:59.643 回答
1
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
于 2017-07-14T18:40:56.827 回答