Question

用vba把EXCEL指定的部分输出为excel同名的TXT文件

把EXCEL指定的部分输出为excel同名的TXT文件，并存储到指定文件夹内。

例如：把sheet中的E2单元格至E2之后的E列的第一个空数据单元格与Sheet3的F3单元格至F3之后的F列的第一个空数据，输出为与excel同名的TXT文件，并存储到指定文件夹内。
求大神啊

Answer 1

Sub Macro1()
Dim c As Range, i&
Open ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".txt" For Output As #1
For Each c In Sheet2.Range("E2:E" & Sheet2.Range("E2").End(xlDown).Row)
Print #1, c.Value
Next
For Each c In Sheet3.Range("F3:F" & Sheet3.Range("F3").End(xlDown).Row)
Print #1, c.Value
Next
Close #1
End Sub
这是将TXT文件保存在于xls文件同一个文件夹中，如果是别的地方，更改ThisWorkbook.Path为制定路径；另外，一定要将Excel保存为97-2003格式，扩展名为xls

Answer 2

给你一个比较简单的方法：
新建一个工作表，将需要的两段数据复制到该表，然后另存为文本格式即可。
善后工作是删除新建的表或者直接关闭不保存。