[已解决]vba

hpfssttx · 发表于 2014-12-2 01:31

[tr][/tr]
[tr][/tr]
[tr][/tr]
[tr][/tr]
[tr][/tr]

想把B列作为txt文件名自动生成，A列姓名根据判断B列自动追加到同名文件，也就是半天班的一个文件，8-4班的一个文件，以此类推，要求姓名竖着一行一个

Sub txt()
i = 1 '指定从第一行开始，如果数据从第二行开始，则修改为2即可，依此类推
OutDir = "C:\" '指定生成的txt文件所在的保存目录，可自行修改
If Dir(OutDir, vbDirectory) = "" Then
MsgBox "你所指定的输出目录不存在，请修正后重试！"
Exit Sub
End If
Do Until Cells(i, 2) = "" '如果遇到该单元格为空，则自动终止
Open OutDir + "\" + Cells(i, 2) + ".txt" For Output As #11
If Cells(i + 1, 2) = Cells(i, 2) Then
If Cells(i, 2) = Cells(i - 1, 2) Then
Print #11, Cells(i, 1)
Else:
Print #11, Cells(i, 1)
Print #11, Cells(i + 1, 1)
End If
End If
Close (11)
i = i + 1
Loop
MsgBox "处理完毕"
End Sub

急用，试改了好几次都不成功，不是少人就是重名，要不就是空文件，请各位兄台各位老师各位大神多多指教！！不胜感激
（详见附件）

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-12-2 02:17

即使B列没有排序，也可以完成

335478-VBA-数据写入文本文件排班表.rar (10.31 KB, 下载次数: 11)