此题一定要用vba, 不可能用Excel 已预设的内功能或函数去应付
vba代码:
namex = Mid([c7], 1, 2) & "".xls""
ActiveWorkbook.SaveAs Filename:=namex
由于改名存盘, 尚需要兼顾以下事情, 故vba尚要根据实际情况, 加上一些判断及执行指示的语句
1) 有很多字符是不可作为文件名
2) 如有同名文件, 是否覆盖
3) 文件夹路径
4) 是否出对话框, 再确认