如何在vba中保存为.txt

Question

我希望我的宏保存一个我创建为.txt文件的新工作表.这是我到目前为止的代码.

Sub Move()  
'  
' Move Macro  
'  
' Keyboard Shortcut: Ctrl+m  
'  
Sheets("Sheet1").Select  
Range("A1").Select  
Range(Selection, Selection.End(xlToRight)).Select  
Range(Selection, Selection.End(xlDown)).Select  
Selection.Copy  
Workbooks.Add  
ActiveSheet.Paste  

ActiveWorkbook.SaveAs Filename:="e:" & _
"HDR" + Format(Now(), "YYYYMMDDhhmmss") & ".txt"

End Sub

这包括我的宏.我在将其保存为.txt文件的最后一部分时遇到问题.
我目前在我的.txt文件上收到一堆垃圾,这是一个例子,
"PK!!}ñU{Š[Content_Types] .xml¢(ÌTÝNÂ0¾7ñ-Þš‰1†Á...â€'PÚ3ÐμMOÁñöž• Ÿ¨".
任何帮助都会很棒.

Answer 1

手动更改文件名的扩展名实际上不会更改文件类型.该SaveAs方法采用文件类型参数.你想要的代码是

ActiveWorkbook.SaveAs Filename:="e:" & "HDR" + Format(Now(), "YYYYMMDDhhmmss") _
& ".txt", FileFormat:= xlTextWindows

从Excel帮助中进行搜索XlFileFormat将获得(几乎)可能的文件格式的完整列表,包括6种文本格式和4种CSV格式.