Set xlbook = xlapp.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\vb与excel应用练习\EXCEL\各厅任务\" & a & ".xls")
