Bỏ qua nội dung chính

Làm cách nào để xuất dữ liệu Excel (vùng chọn hoặc trang tính) sang tệp Văn bản trong Excel?

Nếu bạn được yêu cầu phân phối sổ làm việc ở định dạng tệp văn bản, bạn cần chuyển đổi sổ làm việc thành tệp văn bản. Và bài viết này sẽ giới thiệu cho bạn XNUMX phương pháp để xuất dữ liệu Excel thành file văn bản một cách dễ dàng.

Xuất một trang tính sang tệp văn bản trong Excel

Theo mặc định, dữ liệu Excel sẽ được lưu dưới dạng sổ làm việc ở định dạng .xlsx. Tuy nhiên, chúng tôi có thể xuất một trang tính của sổ làm việc hiện có dưới dạng tệp văn bản với Save As đặc tính. Vui lòng làm như sau:

1. Chuyển sang trang tính mà bạn sẽ xuất sang tệp văn bản và nhấp vào Tập tin (Hoặc Nút văn phòng)> Save As.

2. Trong phần mở đầu Save As hộp thoại, chọn thư mục đích mà bạn sẽ lưu tệp văn bản đã xuất vào, đặt tên tệp trong Tên tập tin và sau đó chọn Văn bản Unicode (* .txt) từ Save as type danh sách thả xuống. Xem ảnh chụp màn hình:
xuất sang tệp văn bản với tính năng Save As

3. Sau đó, nó sẽ bật lên hai hộp thoại cảnh báo yêu cầu bạn chỉ xuất trang tính đang hoạt động dưới dạng tệp văn bản và loại bỏ mọi tính năng không tương thích với tệp văn bản. Nhấp chuột OK nút và Có liên tiếp.

Sau đó, dữ liệu trong trang tính đang hoạt động được xuất dưới dạng tệp văn bản mới.

Chú thích: Các Save As lệnh chỉ có thể xuất dữ liệu của trang tính hoạt động dưới dạng tệp văn bản. Nếu bạn muốn xuất tất cả dữ liệu của toàn bộ sổ làm việc, bạn cần lưu từng trang tính dưới dạng tệp văn bản riêng lẻ.

Xuất lựa chọn (hoặc một cột) sang tệp văn bản bằng VBA

Mã VBA sau cũng có thể giúp bạn xuất dữ liệu dải ô đã chọn (ví dụ một cột) sang tệp văn bản, vui lòng thực hiện như sau:

1. Giữ phím tắt ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

VBA: xuất lựa chọn hoặc toàn bộ trang tính sang tệp văn bản

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Sau đó nhấn F5 phím để chạy mã này. Và sau đó chọn phạm vi dữ liệu mà bạn muốn xuất trong hộp thoại bật lên và nhấp vào OK nút, xem ảnh chụp màn hình:
Chọn một cột để xuất dưới dạng tệp văn bản

4. Và bây giờ trong một hộp thoại Lưu dưới dạng khác, vui lòng chỉ định tên cho tệp văn bản này và một thư mục để đặt tệp này vào và nhấp vào Lưu .

Xuất lựa chọn (hoặc một cột) sang tệp văn bản với Kutools cho Excel

Sản phẩm Save As lệnh có thể xuất tất cả dữ liệu trong trang tính hoạt động dưới dạng văn bản. Điều gì sẽ xảy ra nếu xuất tất cả dữ liệu của các trang tính không hoạt động được chỉ định hoặc một phần dữ liệu trong trang tính dưới dạng tệp văn bản? Kutools cho Excel's Phạm vi xuất khẩu thành tệp tiện ích có thể giúp chúng tôi xuất và lưu dữ liệu được chọn dưới dạng tệp văn bản một cách dễ dàng ..  

Kutools cho Excel - Được đóng gói với hơn 300 công cụ cần thiết cho Excel. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Tải ngay!

1. Chọn ô mà bạn sẽ xuất sang tệp văn bản (trong trường hợp của chúng tôi, chúng tôi chọn Cột A) và nhấp vào Kutools Plus > Nhập khẩu xuất khẩu > Phạm vi xuất khẩu thành tệp, xem ảnh chụp màn hình:
Addin Excel: xuất lựa chọn sang tệp văn bản

2. Trong tạp chí Phạm vi xuất khẩu thành tệp hộp thoại, hãy làm như ảnh chụp màn hình dưới đây:
Addin Excel: xuất lựa chọn sang tệp văn bản
(1) Kiểm tra Văn bản Unicode tùy chọn trong Định dạng file phần;
(2) Chọn tùy chọn Lưu giá trị thực hoặc Lưu giá trị như hiển thị trên màn hình khi bạn cần trong phần Tùy chọn văn bản;
(3) Chỉ định thư mục đích mà bạn sẽ lưu tệp văn bản đã xuất vào;
(4) Nhấp vào Ok .

3. Đặt tên cho tệp văn bản đã xuất trong hộp thoại mở mới và nhấp vào Ok .
đặt tên cho tệp văn bản đã xuất

Và sau đó lựa chọn (đã chọn Cột A) đã được xuất dưới dạng tệp văn bản và được lưu vào thư mục được chỉ định.

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

Xuất nhiều trang tính thành các tệp văn bản riêng biệt trong Excel

Đôi khi bạn có thể cần xuất nhiều trang tính sang nhiều tệp văn bản trong Excel. Tính năng Save As có thể hơi tẻ nhạt! Đừng lo! Kutools cho Excel's Chia sổ làm việc tiện ích cung cấp cho người dùng Excel một giải pháp dễ dàng để xuất nhiều trang tính sang nhiều tệp văn bản riêng biệt với vài cú nhấp chuột. 

Kutools cho Excel - Được đóng gói với hơn 300 công cụ cần thiết cho Excel. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Tải ngay!

1. nhấp chuột Kutools Plus > Bảng tính > Chia sổ làm việc. Xem ảnh chụp màn hình:
Addin Excel: xuất nhiều trang tính sang tệp văn bản

2. Trong hộp thoại Split Workbook mở, vui lòng thực hiện như sau:
Addin Excel: xuất nhiều trang tính sang tệp văn bản
(1) Kiểm tra các trang tính bạn sẽ xuất sang các tệp văn bản riêng biệt trong Tên sổ làm việc phần;
(2) Kiểm tra Chỉ định định dạng lưu tùy chọn, sau đó chọn Văn bản Unicode (* .txt) từ danh sách thả xuống bên dưới, xem ảnh chụp màn hình bên trái:
(3) Nhấp vào chẻ .

3. Và sau đó trong hộp thoại Browse For Folder bật lên, hãy chọn thư mục đích mà bạn sẽ lưu các tệp văn bản đã xuất vào và nhấp vào OK .

Cho đến nay, mỗi trang tính được chỉ định đã được xuất dưới dạng tệp văn bản riêng biệt và được lưu vào thư mục được chỉ định.

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

Dễ dàng lưu hàng loạt từng trang tính dưới dạng tệp PDF / văn bản / csv hoặc sổ làm việc riêng biệt trong Excel

Thông thường, chúng tôi có thể lưu trang tính đang hoạt động dưới dạng tệp .pdf, tệp .txt hoặc tệp .csv riêng biệt với tính năng Lưu dưới dạng. Nhưng Kutools cho Excel's Chia sổ làm việc tiện ích có thể giúp bạn dễ dàng lưu từng sổ làm việc dưới dạng tệp PDF / TEXT / CSV riêng biệt hoặc sổ làm việc trong Excel.

Nhận bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày ngay bây giờ!

sổ làm việc tách quảng cáo pdf 1

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

Demo: xuất dữ liệu Excel (lựa chọn hoặc trang tính) sang tệp Văn bản trong Excel


Kutools cho Excel: Hơn 300 công cụ tiện dụng trong tầm tay bạn! Bắt đầu dùng thử miễn phí 30 ngày không có giới hạn tính năng ngay hôm nay. Download Now!

Bài viết liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (19)
No ratings yet. Be the first to rate!
matrix26uk
matrix26uk
This comment was minimized by the moderator on the site
How would I amend the code for Export selection (or one column) to text file with VBA to autofill the filename with the contents of cell B2?
thanks
Reply
Report
0
0
Alan
Alan
This comment was minimized by the moderator on the site
Hi,This is great, thanks a lot.
How would I alter the code for Export selection (or one column) to text file with VBA to auto fill the filename with the contents of cell B2?
Reply
0
0
Ali Cebeci
Ali Cebeci
This comment was minimized by the moderator on the site
Hi, this code is very useful for me. So thank you very much.
I want to ask that: When i'm using this code, a new line append automatically at the end of the txt content.
Can you help me about preventing this by vba?
Reply
0
0
luizfeijo
luizfeijo
This comment was minimized by the moderator on the site
hi guys, i used that code:
Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

and have working, but i need to savea column with cells that contain the function"concatenate", and when i play the vba code, and i save the .TXT file, only what appears it's #REF. how can i to fix it? cause i need the data that appears on that cells?
Reply
0
0
Christian
Christian     luizfeijo
This comment was minimized by the moderator on the site
Has anyone been able to figure this out? I am having the same issue.
Reply
0
0
GILLOU
GILLOU
This comment was minimized by the moderator on the site
HELLO
THANK YOU FOR YOUR VBA CODE
SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
THANK YOU FOR WHY
Reply
0
0
harish.kaundinya@gmail.com
This comment was minimized by the moderator on the site
Thanks for the awesome piece of VBA code to export data to a text file. I have used your code with some of my own. The data I am dealing with is extremely line-length specific and after the macro has run, the text file contains some double quotation marks " at random places, which was never present in my data before. I have tried adding a code line to remove this character at various stages but that does not seem to be working. I am aware that I can manually remove this but would like to resolve it in the VBA code.

Sub Macro3()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$10591").AutoFilter Field:=1, Criteria1:= _
"=NSZAP*", Operator:=xlAnd
Range("A1").Select
ActiveCell.Offset(200, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Rows("1:10101").EntireRow.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlDown)).Select
Set WorkRng = Application.Selection
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Reply
Report
0
0
kelly.extendoffice@gmail.com
   
This comment was minimized by the moderator on the site
Hi Harish,
For removing a specified character in bulk, you can replace the character with nothing.
Ctrl + H to open the Find and Replace dialog box, type the specified character in the Find what box, and type noting in the replace with box.
View Attachments (1 / 5)
Reply
Report
0
0
Wild Bill
Wild Bill
This comment was minimized by the moderator on the site
3/2 You might also note that you don't need to specify the wb prefix once you've .Add ed the workbook since it becomes active. Specifying wb might or might not be more efficient but it can be omitted from some commands. Actually I entirely scrapped the variable wb; I just go Workbooks.Add, and use ActiveWorkbook when needed. (As you are suppressing ScreenUpdating it wouldn't be obvious to some that wb is Active. Tip for beginners (and higher): I always, always develop with ScreenUpdating and DisplayAlerts as True, and when done with development, I consider toggling them off for some passage of code.)
Reply
0
0
Wild Bill
Wild Bill
This comment was minimized by the moderator on the site
2/2 - vbYesNoCancel msgboxes and Booleans to indicate whether to export all, selection, or a user specified range - a static String for the prior range address - if len(that static)1 then I set WorkRng=activesheet.UsedRange (You can't copy multiple areas with a single copy, though with a little work you could walk the areas and copy them piecemeal.) - Idiotic Microsoft does not save off empty rows at the start and the bottom of the saved range, and does not save off empty columns at the leftmost and the rightmost of the saved range. When I detect that (UsedRange is not row 1, col. 1, or xlLastCell is not completely lower-right) I msgbox to ask user if they want to plug A1 or the lower right cell. - Then I decided to preemptively address the upper left issue by inserting a row and setting A1 to be text like "The following is for range " - I close with activeworkbook.close SaveChanges:=False - Long time habit since I'm an angry proponent of cleaning up (and the world is a sad place thanks to irresponsible programmers who shirk that responsibility when it matters), I set WorkRng = Nothing on the way out :)
Reply
0
0
Wild Bill
Wild Bill
This comment was minimized by the moderator on the site
1/2 (since your software limits comment length) I am a serious coder and I want to inform you that the VBA code here is outstanding. It's clean, and not one line too much, or one too few. It's exemplary coding for demonstration of the process. I'll also mention that as I extensively researched solutions for export of selection, you and only one other person suggested dropping the range into a temp new workbook. All other answers were painfully manually, walking through cell by cell. Even Chip's code is much longer and runs slower (but intentionally so, as it is much more flexible - specifiable delimiters, etc.) Just for your amusement, I made some very minor tweaks but otherwise nearly lifted the code word for word because it basically dropped right into a very intricate and specialized application. Some of these tweaks are something I'm sure you do in practice, but they add lines of code (e.g. error checking) so showing them on this webpage would have muddied your display so that the essential elements of processing would have been cumbersome for readers to follow along. Anyway: (see part 2)
Reply
0
0
Vaishak
Vaishak
This comment was minimized by the moderator on the site
My query is as mentioned below: I have a report to generate everyday. The data what I get on the final row (only one row but more than one columns) I want it to export to another excel sheet which is a summary excel sheet saved separately on my desktop. Eg: Day1 report - final row export to Summary excel sheet row1 Day2 report - final row export to Summary excel sheet row2 Day3 report - final row export to Summary excel sheet row3 and so on.. Export should be done through a click button., which means when I click on export button the data on the sheet I calculated today should go and save on the Summary excel sheet row1, next day a new excel sheet report calculated should go and save on the Summary excel sheet row2 and so on.. Will this be possible to do... If yes please someone help me on this... Thank you in advance...:-)
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations