我希望让我的宏将我创建的新工作表保存为 .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Áñöž•Ÿ¡”。
任何帮助都会很棒。
手动更改文件名的扩展名实际上并不会更改文件类型。这SaveAs
方法采用文件类型参数。你想要的代码是
ActiveWorkbook.SaveAs Filename:="e:" & "HDR" + Format(Now(), "YYYYMMDDhhmmss") _
& ".txt", FileFormat:= xlTextWindows
从 Excel 帮助中搜索XlFileFormat
将为您提供(几乎)可能的文件格式的完整列表,包括 6 种文本格式和 4 种 CSV 格式。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)