Excel每行导出为一个txt

Sub test()
For I = 1 To 200          '行数
Open "D:\result_95\" & Cells(I, 10).Value & ".txt" For Output As #1
Data = ""     ‘把第几行保存为名字

For J = 1 To 7    ‘列数
Data = Data & Cells(I, J).Value & vbTab
Next
Print #1, Data
Close #1
Next
End Sub