想请大家帮帮解决这个输出txt问题

zhanhna001

我想请朋友们帮我看看，我这个附件是坛子里一个朋友写的，我借鉴一下用用有几个问题不会解决，想请大家帮帮忙。首先这个EXCEL代码本来是依照sheet1和sheet2写的两页取值输出TXT文档，我只需要sheet1里的“i”列下1-20行的代码输出到d盘下，并执行一个批处理1.bat文件也在同目录下即可。
能备注下的，如果不麻烦的话想请提点一下我也想学习一下，当然太麻烦了不写也可以，先谢谢

Sub 导出文本()
    Application.ScreenUpdating = False
    Dim nRow As Long, nColumn As Long, cTxt As String
    nRow = Cells.Find("*", , , , 1, 2).Row
        Open ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt" For Output As #1
        For i = 1 To nRow '从第1行开始
                cTxt = cTxt & Cells(i, 1).Text & vbCrLf
        Next
                For i = 1 To Sheet1.Range("b5656").End(3).Row '从第1行开始
                cTxt = cTxt & Sheet1.Cells(i, 2).Text & vbCrLf
        Next

        Print #1, cTxt '输出数据
        Close #1
    Application.ScreenUpdating = True
    MsgBox "成功导出数据"
End Sub

这个是原代码，我只想在sheet1中第九列也就是“i”列下的文字全部输出到TXT中并保存在D盘下，在执行一个1.bat的文件！

zhanhna001

有人么？紫薯布丁

zhanhna001

??有没有朋友帮下

zhanhna001

在线等.......................