按下边 子程序 试试!Sub 最小化工作簿()Dim BOOK As WorkbookB = InputBox("写入工作簿名称")Set BOOK = Workbooks(B)BOOK.ActivateActiveWindow.WindowState = xlMinimizedSet BOOK = NothingEnd Sub