Question

VBA如何另存EXCEL工作簿

工作簿在 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 其他表没内容

Answer 1

Sub aa()
Dim x As Integer, rng As Range
For Each rng In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
If Len(rng.Value) > 6 And Len(rng.Value) <> 0 Then
ActiveWorkbook.SaveAs Filename:="E:\a申请信息表\ " & rng.Value & ".xls"
End If
Next rng
End Sub

追问

这个工作簿如何dim 然后在另存为呢?
貌似您这个我试了下没动静 0.0
还有就是
If Len(rng.Value) < 7 Then Exit Sub
能换成这个吗? 格式对吗?
If Len(wb_Sheet.Range("B" & x).Value) < 7 Then Exit Sub

如何让这个VBA一直循环 然后 exit sub 呢?

追答

开始代码有错误，我重新修改了，见答案。
Len(wb_Sheet.Range("B" & x).Value) < 7 这个格式的也行啊，根据实际需要修改。具体问题具体分析嘛！条条大路，爱怎么走就怎么走。