Excel单元格内容批量导出为记事本文件

Sub bod()
Dim nm$
For I = 1 To 100 '行数范围
    n = n + 1
    nm = ThisWorkbook.Path & "\" & Application.Trim(Cells(I, 1)) & ".txt"  '记事本文件导出到Excel所在目录,A列为文件名
    Open nm For Output As #I
    Print #I, Cells(I, 1) 'Cells(i, 1)为每个txt里面要放的内容，可替换，内容为空则删除，如果为B列则Cells(i, 2),C列则Cells(i, 3)，以此类推
    Close #I
Next
End Sub