怎样将excel按行导出独立的txt文件。

如题，原表为

想将导出的txt为以下格式。两行之间有一空行。

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False '关闭屏幕刷新

Dim nRow&, ncolumn& '定义区域变量

nRow = Cells(Rows.Count, 1).End(3).Row '确定最后行行号

For i = 1 To nRow '在行中进行循环

ncolumn = Cells(i, Columns.Count).End(1).Column '确定每行最后列列号

Open ThisWorkbook.Path & "\文件" & i & ".txt" For Output As #1 '创建文本进行输入内容

Print #1, Join(Application.Transpose(Application.Transpose(Range(Cells(i, 1), Cells(i, ncolumn)))), ",") '输入此行内容，以","分隔内容

Close #1 '关闭文本

Next '下次循环

Application.ScreenUpdating = True '开启屏幕刷新，与前对应

MsgBox "导出完成" '完成友好提示

End Sub