Question

excel vba 导出txt，保证导出效果与表格相同

Sub 生成TXT文件()
Range("K15:T27").Activate
ActiveWorkbook.SaveAs Filename:="1.txt"
ActiveWorkbook.SaveAs FileFormat:=xlText
MsgBox "生成完毕"
End Sub
1。如何将表一的("K15:T27").生成TXT文件，保证导出效果与表格相同
2。导出的是区域所选取的，不能整个表个（上面代码在网上拷贝的，是整个表格都导出了）
3。导出文件位置在“我的文档”，像上面代码一样
4。导出文件命名为1，像上面代码一样
Sub 导出为TXT文本文件()
Dim FullName As String, Row As Long, RowArr
Application.ScreenUpdating = False
FullName = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt"
Open FullName For Output As #1
For Row = 15 To 27
If Range("K" & Row) <> "" Then
With WorksheetFunction
RowArr = .Transpose(.Transpose(Range("K" & Row & ":T" & Row)))
End With
Print #1, Join(RowArr, " ")
End If
Next
Close #1
MsgBox "生成完毕"
End Sub
生成时，文件命名为ABABACAC

Answer 1

Sub 生成TXT文件()
Range("K15:T27").select
selection.copy
sheets("New").select
range("A1").select
activesheet.paste
ActiveWorkbook.SaveAs Filename:="1.txt"
ActiveWorkbook.SaveAs FileFormat:=xlText
MsgBox "生成完毕"
End Sub

追问

详细见补充说明（网上拷的）
生成时，文件命名为ABABACAC，不是生成表名

Answer 2

这个不难,看下私信.

追问

详细见补充说明（网上拷的）
生成时，文件命名为ABABACAC，不是生成表名