练习1：编程创建一个新的工作簿，把工作簿命名为Mybook，并用变量wb表示新建的工作簿，保存在D盘下test文件夹后退出。
Sub新建工作簿()DimwbAsWorkbookSetwb=Workbooks.AddWithwb.SaveAs"d:\test\Mybook".Save.CloseEndWithEndSub
练习2：使用For Each In 结构变成石像在打开多个工作簿时，判断某个工作簿是否已经打开。
Sub打开工作簿()DimwbAsWorkbookDimOtherWbAsStringOtherWb=InputBox("输入工作簿名称：","工作簿_名称","mybook.xlsx")ForEachwbInWorkbooksIfLCase(wb.Name)=LCase(OtherWb)ThenMsgBox"工作簿"&OtherWb&"已经被打开！",vbInformationExitSubEndIfNextMsgBox"工作簿"&OtherWb&"没有被打开！",vbInformationEndSub
Kirin的茶水间
没有行李，没有背包，不带电脑更不要手机，
