Question

用vbs在excel中添加的新工作表，新生成的工作表会把左边第一个已存在的表格覆盖了。求高手指点！谢谢

如题，工作薄中已经存在若干工作表，手动在工作薄中新建sheet1用于存放临时数据。用vbs生成新的工作表存放操作后的数据。新生成的sheet1在最右边，但是vbs生产的工作表会把左边第一个sheet覆盖。
这是不是和excel的版本有关系，2013和97版本两个。还是语法上的问题，请教！ 是vbs，不是VBA！！

Version:0.9
StartHTML:00000107
EndHTML:00005182
EndFragment:00005142
EndFragment:00000000

Set oExcel = CreateObject("Excel.Application")
Set oWbook = oExcel.Workbooks.Open(“D:\test.xlsx”)
Set oSheet1 = oWbook.Sheets("sheet1")
NewSheetname = "转换完成" 

'***********************插入要保存转换数据的新工作表*****
sheetCount = oWbook.Sheets.Count
oWbook.Sheets.Add                                '插入工作表
Set newWorksheet = oWbook.Sheets(sheetCount + 1)'初始化newWorksheet为新添加的工作表的对象
newWorksheet.name = NewSheetname              '给新工作表命名
Set oSheet2 = oWbook.Sheets(newWorksheet.name) '给命名后的工作表指定对象

oWbook.save
oWbook.Close
oExcel.Quit

若以下回答无法解决问题，邀请你更新回答

Answer 1

对象
newWorksheet.name = NewSheetname              '给新工作表命名

NewSheetname  估计 应该是值重复了