Sub gongzuobu()
Dim wb As Workbook

Set wb = Workbooks("工作簿1.xltm")   ' 打开某个工作簿

Set wb = Workbooks(1)      '打开第一个工作簿

Set wb = ActiveWorkbook    '打开活动工作簿

Set wb = ThisWorkbook    '打开代码所在工作簿

MsgBox wb.Name

Workbooks.Add  '新建工作簿

ActiveWorkbook.SaveAs "C:\Users\ssss\Desktop\haha.xlsx"   '保存工作簿


End Sub