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!!"} ú [Content_Types] .xml ¢ ÌTÝNÂ0¾7ñ-Þš ‰ 1 † Á ... â ¥ ' PÚ3¶ÐμMOÁñöž • Y ".
어떤 도움도 좋은 것입니다.

은. 당신이 원하는 코드는

Answer 1

수동 실제로 파일 형식을 변경하지 않는 파일 이름의 확장자를 변경. SaveAs 방법은 파일 형식 인수를 걸립니다

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

Excel 도움말에서 XlFileFormat에 대한 검색을 수행하면 6 개의 텍스트 형식과 4 개의 CSV 형식을 비롯한 가능한 파일 형식의 전체 목록을 볼 수 있습니다.

Answer 2

이름에 txt를 추가해도 문서 word가 일반 텍스트 형식으로 자동 인코딩되지 않습니다.

대신 텍스트 파일로 여러 장을 저장할 수 없습니다, 참고

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