把excel每一行中的数据输出为一个txt文档的VBA函数

excel vba代码：

Sub makeTxt()
    For i = 1 To 1088'从第1行到1088行(最后一行)
    On Error Resume Next'出现错误时继续运行脚本
       Open "d:\" & Cells(i, 1) & ".txt" For Append As #1'新建文本文档到D盘下，并命名为句柄1，文本文档的文件为excel表格中的第一列中的内容
       Print #1, Cells(i, 2)'写入excel表格中的第二列到文本文档中
       Close #1
   Next
End Sub