VBA 工作簿 

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

　　

posted @ 2019-01-13 19:51  queqiaoshui  阅读(210)  评论(0)  编辑  收藏  举报