【VBA】excel指定区域每行存为一个txt，并指定txt名字

excel指定区域每行存为一个txt

由于工作需要，需要将指定区域内每行存为一个txt。但是目前网上的公开资料，很多只能做到把excel所有内容存为txt，无法指定区域，而且很多txt名字都是默认的数字，无法自定义。
所以我根据公开资料整理了一下，能够实现把指定区域的每行存为一个txt、并自定义txt名字。

Sub test()
For I = 2 To 315          '需要导出的行
Open "C:\Users\Desktop\按行导出\" & Cells(I, 2).Value & ".txt" For Output As #1    '这里替换为你要保存的文件夹位置，记得加一个\。这里Cells(I,2)中的2，指第2列为该行对应的txt文件名，根据实际情况替换
Data = ""      

For J = 4 To 11    '需要导出的列
Data = Data & Cells(I, J).Value & vbTab
Next
Print #1, Data
Close #1
Next
End Sub