Sub 新建写入重命名()
Workbooks.Add
'内置名称报错
'ActiveWorkbook.Sheet1.Range("a2").Value = "孙"
'索引
'ActiveWorkbook.Sheets(1).Range("a2").Value = "孙"
'名称
'ActiveWorkbook.Sheets("Sheet1").Range("a2").Value = "孙"
ActiveWorkbook.ActiveSheet.Range("a2").Value = "孙"
ActiveWorkbook.SaveAs Filename:="C:\Users\86135\OneDrive\桌面\其它 待整理\VBA\课件\008.工作簿\00.xlsx"
ActiveWorkbook.Close
End Sub