VBA - excelシートを.txtファイルにエクスポート

特定の列をExcelシートから.txtファイル形式にエクスポートしようとしています。私は、保存するファイルの名前と場所をユーザーが指定できるようにしたいと考えています。VBA - excelシートを.txtファイルにエクスポート

.xlsx形式で保存できました。誰でも.dat形式にエクスポートする方法を知っていますか？私はこのような何かを試してみました

Workbooks.Add 
ActiveSheet.Paste 
Cells.Select 
Selection.Columns.AutoFit 
Application.CutCopyMode = False 

sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, fileFilter:="Excel Files (*.xlsx), *.xls") 

     If sFileSaveName <> False Then 
     ActiveWorkbook.SaveCopyAs sFileSaveName 
     MsgBox "File Successfully Saved!" 
     ActiveWorkbook.Close 
     End if

これは、.xlsxの輸出のための私のコードで、

myFile = Application.GetSaveAsFilename(filefilter:="Text Files (*.txt),*txt")

しかし、私の出力は完全に台無しにし、このようになりました -

ありがとうございます。

出典

2017-10-16 Sid29

これはhttps://www.mrexcel.com/forum/excel-questions/419731-convert-xls-file-dat-file.html – QHarr

を助けるかもしれない、私はそれをしようとしていますが、それが失敗しました - 単にエクセルファイルを.txtファイルとして保存しようとしています - sFileSaveName = Application.GetSaveAsFilename（InitialFileName：= InitialName、FileFilter：= "（*。txt）"） – Sid29

範囲を書き込む方法を示すリンクはありませんか？これは、ファイルに書き出すカラムです。 – QHarr

テキストファイルとして保存するファイル形式は、FileFormat:=xlTextである必要があります。

ActiveWorkbook.SaveAs Filename:=YourTextFile.txt, FileFormat:=xlText

出典

2017-10-16 12:34:07 Arul

VBA - excelシートを.txtファイルにエクスポート

答えて

関連する問題