Giúp viết Code xuất Dữ liệu từ Xls ra txt

[chungtalabanls]

Em cào các bác ạ!
Em có File Xls và muốn xuấ ra txt.
Em gửi bản đính kèm File gốc Xls và File txt đã được xuất ra.
Em đặc biệt chưa rành về code VBA, nên nhờ các anh chị nào rành giúp em phát.
Em chân thành cảm ơn ạ !

 

[nguoiconxunui]

Đơn giản thì save as -> txt

 

[chungtalabanls]

Đơn giản thì save as -> txt

Không đúng định dạng như yêu cầu Bác ơi !
Phiền bác giúp em phát !
Em cảm ơn nhiều ạ !

 

[thinhvd]

Không đúng định dạng như yêu cầu Bác ơi !
Phiền bác giúp em phát !
Em cảm ơn nhiều ạ !

Sub Macro1()
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\VS9 Win 8.1\Downloads\xuat dl ra txt.txt", FileFormat:= _
        xlUnicodeText, CreateBackup:=False
End Sub

 

[nguoiconxunui]

Không đúng định dạng như yêu cầu Bác ơi !
Phiền bác giúp em phát !
Em cảm ơn nhiều ạ !

Dùng chứ năng replace của txt