来源:http://blog.csdn.net/alexbnlee/article/details/6911204
Workbooks(1).Name
Workbooks(1).FullName 工作簿地址加名字
Workbooks(1).Path 工作簿地址
Workbooks(1).Close SaveChanges:=False 关闭工作簿,并且不保存
Workbooks.Open ThisWorkbook.Path & "\123.xlsx" 打开这个地址的文件
Workbooks(1).Save 工作簿保存
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\SaveAsWb.xlsm" 另存为文件
WorkBook事件
参考:http://msdn.microsoft.com/zh-cn/library/d4f0cb22%28v=VS.80%29.aspx