Excel实现每7行保存为一个TXT文档，文档名称为第7行的内容，怎么操作？

青柠y

现在这个宏代码是每一行保存一个txt文档
Sub DaoChu()
Dim I As Integer
For I = 1 To 56  '总行数
Open "D:\Desktop\测试输出\第" & I & "行.txt" For Output As 1 '输出目录和文档名称
Print #1, Range("A" & CStr(I)).Value
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub


有没有大神帮忙修改每7行保存一个文档，文档名称为第7行的内容，谢谢啦

简七

初学者
Sub DaoChu()
Dim I ,r
For I = 7 To 56  '总行数
Open "D:\Desktop\测试输出\"&range("a"&i).value&".txt" For Output As 1 '输出目录和文档名称
for r＝i-6 to i-1
Print #1, Range("A" & r).Value
next
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

青柠y

简七 发表于 2020-1-9 23:41
初学者
Sub DaoChu()
Dim I ,r

感谢感谢

青柠y

简七 发表于 2020-1-9 23:41
初学者
Sub DaoChu()
Dim I ,r

运行的时候，这一行提示语法错误
Open "D:\Desktop\测试输出\"&range("a"&i).value&".txt" For Output As 1 '输出目录和文档名称
帮忙看下谢谢

大灰狼1976

未测试

1. Sub DaoChu()
   
2. Dim I As Integer, s$
   
3. For I = 1 To 56  '总行数
   
4.   s = s & "," & Cells(I, 1)
   
5.   If I Mod 7 = 0 Then
   
6.     Open "D:\Desktop\测试输出" & Cells(I, 1) & ".txt" For Output As 1 '输出目录和文档名称
   
7.     Print #1, Mid(s, 2)
   
8.     s = ""
   
9.     Close 1
   
10. Next I
    
11. MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
    
12. End Sub

复制代码

青柠y

大灰狼1976 发表于 2020-1-10 11:55
未测试

谢谢啦，运行错误提示next没有for

大灰狼1976

不好意思，少写了end if，你加一下吧，在next i上面。

青柠y

大灰狼1976 发表于 2020-1-10 14:28
不好意思，少写了end if，你加一下吧，在next i上面。

加上去可以用啦，谢谢啦