把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