excel - 如何在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 格式。