-vba excel另存,excel另存为vba

工作簿在 E:\a申请信息表\ 这个来路径下
x = 4
开始循环
x= x + 1
工作簿中("A" & x) 分别是 张三 李四 ...人名源
如何用百VBA循环 另存为这个工作簿到 E:\a申请信度息表\ 这个路径下
另存知的工作簿命名为 单元格("A" & x) 的人名
A 列的人名数量不固定 如何循环到A列没有名字了,单元格为道空 或者 ("B" & x) 长度少于 7 就循环结束

我用 ActiveWorkbook.SaveAs Filename:="E:\a申请信息表\ & cunming & \" & [D4] & ".xls"
保存不上 可否先给这个工作簿dim 然后用命名的工作簿保存 求这个代码格式
不用 ActiveWorkbook 保存
工作簿就只有表1 其他表没内容