如何在vba中保存为.txt
我期待有我的macros保存一个新的工作表,我创build一个.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
这包括我的macros。 我在保存为.txt文件的最后一部分遇到问题。
我目前得到一堆垃圾在我的.txt文件,这里是一个例子,
“PK!”} {Content_Types] .xml¢(ÌTΝΝΝ07â-1)ââïïïïïïïïïïïïïïïïïïïï¿
任何帮助将是伟大的。
手动更改文件名的扩展名实际上并不改变文件types。 SaveAs
方法采用文件types参数。 你想要的代码是
ActiveWorkbook.SaveAs Filename:="e:" & "HDR" + Format(Now(), "YYYYMMDDhhmmss") _ & ".txt", FileFormat:= xlTextWindows
在Excel中进行search帮助XlFileFormat
将获得(几乎)所有可能的文件格式的列表,包括6种文本格式和4种CSV格式。
将txt添加到名称不会自动将单词文档编码为纯文本格式。
而是尝试
ActiveWorkbook.SaveAs Filename:="e:" & _ "HDR" + Format(Now(), "YYYYMMDDhhmmss") & ".txt", FileFormat:=wdFormatText, Encoding:=1252