Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để lưu, xuất nhiều / tất cả các trang tính thành tệp csv hoặc tệp văn bản riêng biệt trong Excel?

Khi sử dụng Excel, bạn có thể lưu trang tính theo cách thủ công dưới dạng tệp csv hoặc tệp văn bản bằng cách sử dụng chức năng Lưu dưới dạng. Tuy nhiên, để chuyển đổi nhiều hoặc tất cả các trang tính trong sổ làm việc thành tệp csv hoặc tệp văn bản được phân tách, bạn có thể làm như thế nào? Trong bài viết này, chúng tôi sẽ chỉ cho bạn các phương pháp để lưu hoặc chuyển đổi nhiều hoặc tất cả các trang tính thành tệp csv hoặc tệp văn bản riêng biệt.

Lưu, xuất hoặc chuyển đổi tất cả các trang tính thành tệp csv hoặc tệp văn bản với mã VBA
Lưu, xuất hoặc chuyển đổi nhiều / tất cả các trang tính sang tệp csv hoặc tệp văn bản với Kutools cho Excel


Lưu, xuất hoặc chuyển đổi tất cả các trang tính thành tệp csv hoặc tệp văn bản với mã VBA

Với các mã VBA dưới đây, bạn có thể lưu tất cả các trang tính trong sổ làm việc thành các tệp csv hoặc tệp văn bản riêng biệt. Hãy làm như sau.

Xuất hoặc chuyển đổi tất cả các trang tính thành tệp csv

1. nhấn Khác + F11 các phím đồng thời để mở Ứng dụng Microsoft Visual Basic cửa sổ.

2. bên trong Ứng dụng Microsoft Visual Basic cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã sau vào Mô-đun cửa sổ.

Mã VBA: Xuất tất cả các trang tính sang các tệp csv riêng biệt

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. Nhấn nút F5 phím để chạy mã. Bạn sẽ thấy tất cả các tệp csv đã xuất đều nằm trên Tài liệu thư mục. Xem ảnh chụp màn hình:

Xuất hoặc chuyển đổi tất cả các trang tính thành tệp Văn bản

Đoạn mã sau có thể giúp bạn xuất hoặc chuyển đổi tất cả các trang tính trong sổ làm việc thành các tệp Văn bản được phân tách.

Mã VBA: Xuất tất cả các trang tính sang các tệp Văn bản được phân tách

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

Các tệp Văn bản đã xuất cũng nằm trên Tài liệu thư mục. Xem ảnh chụp màn hình:


Lưu, xuất hoặc chuyển đổi nhiều / tất cả các trang tính sang tệp csv hoặc tệp văn bản với Kutools cho Excel

You có thể nhanh chóng xuất hoặc chuyển đổi nhiều hoặc tất cả các trang tính sang các tệp csv riêng lẻ, tệp văn bản hoặc định dạng tệp xls trong Excel với Chia sổ làm việc tiện ích của Kutools cho Excel.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

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:

2. bên trong Chia sổ làm việc hộp thoại:

  • 1). Nếu bạn muốn chuyển đổi tất cả các trang tính thành tệp csv hoặc tệp văn bản, chỉ cần chọn tất cả các tên trang tính trong Tên trang tính cái hộp; Nếu bạn chỉ muốn chuyển đổi nhiều trang tính, hãy tiếp tục kiểm tra chúng và bỏ chọn các trang tính khác mà bạn không muốn chuyển đổi.
  • 2). bên trong Các lựa chọn phần, kiểm tra Save as type hộp và sau đó chọn Văn bản Unicode (*. Txt) or CSV (Macintosh) (*. Csv) từ danh sách thả xuống.
  • 3). Nhấn vào chẻ .

3. bên trong Chọn thư mục hộp thoại, chỉ định một thư mục để lưu các tệp đã xuất, sau đó bấm vào OK .

Bây giờ tất cả các trang tính hoặc các trang tính được chỉ định đều được chuyển đổi thành tệp csv hoặc tệp văn bản được phân tách và định vị trên thư mục như bạn đã chỉ định ở trên.

  Nếu bạn muốn dùng thử miễn phí (30-day) của tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Lưu, xuất hoặc chuyển đổi nhiều / tất cả các trang tính sang tệp csv hoặc tệp văn bản với Kutools cho Excel


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

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (36)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để lưu các tệp CSV vào một thư mục khác ngoài thư mục Documents không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Có cách nào để lưu các tệp CSV vào một thư mục khác ngoài thư mục Documents không?Bởi Alex K123456789[/ quote] Tôi chưa thử nghiệm nó, nhưng tôi khá là "\" trong dòng này là viết tắt của thư mục làm việc: xcsvFile = CurDir & "\" & xWs.Name & ".csv" Nếu bạn muốn thay đổi thư mục làm việc, bạn sẽ phải thêm một lệnh khác. Nếu bạn muốn lưu nó vào một thư mục trong thư mục làm việc, giả sử trong một thư mục có tên mới, bạn chỉ cần thay thế "\" bằng "\ New \". Một cái gì đó dọc theo những dòng đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn Paul rất nhiều. Tôi đã tìm ra nó một thời gian ngắn trở lại, nhưng giải pháp của bạn chính xác là những gì tôi đã làm.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tốt đẹp! Cảm ơn bạn đã trả lời, điều đó cũng có ý nghĩa rất lớn đối với tôi khi biết rằng giải pháp của tôi là đúng. Chúc mừng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Alex, Bạn có thể cho tôi xem dòng mã bạn đã nhập thay cho "\" được không? Tôi cần có thể lưu các tệp .csv này vào một vị trí trên mạng của chúng tôi thay vì trong thư viện WS cục bộ của tôi. Chúng tôi cần cho phép nhân viên Dịch vụ khách hàng của mình có thể truy cập tệp và đổi tên vị trí mỗi khi tệp được sử dụng. Tôi gặp phải sự cố lỗi chỉ cần thay đổi "\" thành "\ New \" (mã VBA hoạt động như mong đợi khi được sao chép trực tiếp từ thông tin ở trên). Tôi không phải là mã saavy, nhưng tôi có thể làm theo hướng dẫn khá tốt, vì vậy mọi trợ giúp đều được đánh giá cao!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Xin chào Alex, Vui lòng cho tôi xem dòng mã bạn đã nhập thay cho "\" được không? Tôi cần có thể lưu các tệp .csv này vào một vị trí trên mạng của chúng tôi thay vì trong thư viện WS cục bộ của tôi. Chúng tôi cần cho phép nhân viên Dịch vụ khách hàng của mình có thể truy cập tệp và đổi tên vị trí mỗi khi tệp được sử dụng. Tôi gặp phải sự cố lỗi chỉ cần thay đổi "\" thành "\ New \" (mã VBA hoạt động như mong đợi khi được sao chép trực tiếp từ thông tin ở trên). Tôi không phải là mã saavy, nhưng tôi có thể làm theo hướng dẫn khá tốt, vì vậy mọi trợ giúp đều được đánh giá cao!Bởi Dawn[/ quote] Xin chào Dawn, tôi buộc phải viết lại các phần và như Paul đã đề xuất, đã sử dụng một lệnh hơi khác. Dưới đây là lệnh tôi đã viết để làm mới dữ liệu trong sổ làm việc của mình từ Kho dữ liệu của chúng tôi, sau đó làm mới bảng tổng hợp và cuối cùng lưu một trong các trang tính dưới dạng PDF vào ổ đĩa của tôi: ActiveWorkbook.RefreshAll Sheets ("Karth"). Chọn Phạm vi (" B22 "). Chọn ActiveSheet.PivotTables (" Karth_Appd_Wkly "). PivotCache.Refresh Sheets (" Start "). Chọn Sheets (" Karth "). ExportAsFixedFormat Type: = xlTypePDF, Filename: = _" K: \ K \ Analytics \ Báo cáo \ Bán hàng \ SM Báo cáo \ SM Tóm tắt_Karth.pdf "_, Chất lượng: = xlQualityStandard, Bao gồmDocProperties: = Đúng, Bỏ quaPrintAreas _: = Sai, OpenAfterPublish: = Sai Kết thúc Phụ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn, cảm ơn bạn đã viết mã, có thể bỏ qua một số trang tính và chỉ lưu một số ít không? Tôi không biết mình nên bắt đầu như thế nào. Bạn có thể giúp tôi? Nicolas
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn vì các macro, chúng chính là thứ tôi cần. Tuy nhiên, việc sử dụng "CurDir" để xây dựng đường dẫn tệp đầu ra là rất nguy hiểm vì nó không nhất thiết phải là thư mục của tệp Excel đã được mở - nó thường là thư mục hiện tại trong explorer nên tệp của bạn có thể được ghi thực tế ở bất kỳ đâu. Bạn nên sử dụng Application.ThisWorkbook.Path để thay thế.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang viết thư để xác định xem ứng dụng của bạn có thể chuyển đổi nhiều trang tính xls thành một tệp văn bản hay không và nó sẽ sắp xếp các hàng như thế nào. Tôi cần có một tùy chọn để sắp xếp các hàng theo thứ tự xuất hiện, từng dòng một, từng trang một. Tờ 1, hàng 1; sheet 2, row 1, sheet 3, row1, v.v ... Tôi rất mong nhận được phản hồi từ bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Cảm ơn vì mã, tôi chỉ có một sự giải thích nhỏ. Hiện tại khi tạo tệp CSV, nó được phân tách bằng dấu phẩy ",". mặc dù cài đặt hệ thống của tôi dành cho CSV, phân cách phải là dấu "|". Không chắc tại sao CSV được tạo bằng dấu phân cách bằng dấu phẩy với mã trên. Có cách nào tôi có thể xác định rõ ràng dấu phân cách cho tệp CSV không. Tìm kiếm câu trả lời của bạn sớm nhất. Cám ơn. Trân trọng, Amit
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào alex, làm ơn bạn có thể hiển thị mã để lưu các tệp ở định dạng csv ngoại trừ thư mục tài liệu
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, tôi cần một macro chuyển đổi đường ống "|" tách csv thành xlsx yêu cầu tên thư mục không phải là một tệp duy nhất. tôi cần nó trên cơ sở khẩn cấp.


Trân trọng,
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin lỗi không thể giải quyết vấn đề này
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần một macro để chuyển đổi tất cả các tab trong tệp excel thành các tập hợp tệp khác nhau.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Bạn muốn đưa những tệp nào vào "tập hợp các tệp khác nhau" của mình?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
1) Tôi có một sổ làm việc với nhiều trang tính trong đó.
2) Nhiều trang tính đó có nhiều cột.
3) Tôi có một cột trong mỗi trang tính là sự kết hợp của tất cả các cột khác.
4) Bây giờ, tôi muốn trích xuất cột được nối đó vào một tệp văn bản có cùng tên với tên trang tính.
5) Theo cách tôi muốn là tôi chỉ cần nhấn một nút và nó sẽ tìm kiếm tất cả các tab, trích xuất cột đó (ví dụ cột được nối là AA) từ mỗi trang tính, đặt nó vào một tệp văn bản, đặt tên tệp văn bản giống như tên trang tính. và lưu trữ trong một số thư mục trên máy tính để bàn của tôi nói ổ H.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Xin lỗi không thể giúp bạn với điều này, bạn có thể đăng câu hỏi của bạn trong diễn đàn của chúng tôi: https://www.extendoffice.com/forum.html để nhận được nhiều hỗ trợ Excel hơn từ chuyên gia của chúng tôi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
A, Tôi thấy bây giờ không nên sao chép dòng "Mã VBA: Xuất tất cả các trang tính sang tệp csv được phân tách" vào vùng mã. Có lẽ điều đó có thể rõ ràng hơn đối với người mới và đối với những người làm theo hướng dẫn rõ ràng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi Ken,
Đó là dòng mô tả của mã. Dòng "Sub ExportSheetsToCSV ()" phải là dòng đầu tiên của mã.
Tôi xin lỗi vì sự bất tiện.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn - script rất hữu ích
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Giải pháp tuyệt vời ..... Nó đã tiết kiệm thời gian của tôi ....... Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu bạn chỉ muốn chuyển đổi nhiều trang tính, hãy tiếp tục kiểm tra chúng và bỏ chọn các trang tính khác mà bạn không muốn chuyển đổi
thưa ông cho bước này bạn có macro không
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Good day,
Không thể giúp với mã VBA cho việc này. Tại sao không thử tiện ích Split Workbook mà chúng tôi cung cấp trong bài? Nó sẽ tiết kiệm thời gian của bạn và bạn sẽ thích nó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
cảm ơn bạn rất nhiều vì một macro tuyệt vời, nó hoạt động như một sự quyến rũ! Nhưng tôi có một câu hỏi, điều gì sẽ xảy ra nếu tôi muốn lưu macro này (phiên bản CSV) trên PERSONAL.xlsb để làm cho nó có sẵn trên bất kỳ phiên bản excel nào?

Khi tôi thử, CurDir lấy thư mục PERSONAL, thay vì trang tính đang hoạt động một ...

Cảm ơn bạn đã giúp đỡ!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Mirko,
Phương pháp trong bài viết này có thể giúp bạn: https://trumpexcel.com/personal-macro-workbook/.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào sử dụng mã này để chỉ xuất một phạm vi nhất định sang tệp .csv của mỗi trang tính trong sách không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Mã VBA trong bài viết này có thể giúp bạn: https://www.extendoffice.com/documents/excel/2897-excel-export-range-to-csv.html
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vì vậy, điều này là tuyệt vời! NHƯNG, điều gì sẽ xảy ra nếu tôi cần chia sổ làm việc thành .csv nhưng dành cho PC chứ không phải MAC? Nếu ai có cách làm, xin vui lòng giúp đỡ tôi. Tôi sẽ rất biết ơn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Mã VBA đầu tiên trong bài đăng này có thể giúp ích cho bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để thay đổi mã để lưu mã ở một định dạng tệp khác, chẳng hạn như xlsx? hoặc ASCII.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thanks! Tôi đã sử dụng điều này để lưu tất cả các trang của tệp .xlsx của mình thành .xlsx khác nhau
Sub ExportSheetsToXLSX ()
Làm mờ xWs dưới dạng trang tính
Dim xcsvFile dưới dạng chuỗi
Đối với mỗi xW trong ứng dụng.ActiveWorkbook.Worksheets
xWs.Copy
xlsxFile = CurDir & "\" & xWs.Name & ".xlsx"
Tên tệp Application.ActiveWorkbook.SaveAs: = xlsxFile, _
FileFormat: = xlOpenXMLWorkbook, CreateBackup: = False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Sau
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn vì mã tuyệt vời, nó thật tuyệt vời (Xuất tất cả các trang tính sang các tệp Văn bản riêng biệt)! Đã sử dụng nó nhiều lần nhưng gặp phải một tệp mà nó không hoạt động, trình gỡ lỗi cho biết lỗi thời gian chạy 1004 và bản sao phương pháp đó của trang tính bị lỗi và đánh dấu dòng xWs.Copy. Có quy tắc nào liên quan đến tên trang tính không cho phép mã chạy không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn vì mã tuyệt vời (Xuất tất cả các trang tính sang các tệp Văn bản tách biệt), sử dụng nó rất nhiều. Vừa gặp phải một sổ làm việc mà nó sẽ không hoạt động, trình gỡ lỗi cho biết dòng xWs. Sao chép có vấn đề, cửa sổ bật lên cho biết bản sao phương pháp của sổ làm việc không thành công. Có bất kỳ hạn chế nào liên quan đến tên trang tính hoặc một cái gì đó tương tự, như không có ô được hợp nhất, v.v. không?

Cảm ơn đã trả lời :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
CHÀO BI,
Trang tính của bạn có chứa bảng tổng hợp không? Bạn có thể cung cấp cho chúng tôi dữ liệu của bạn để kiểm tra không? Nếu bạn không phiền, hãy tải lên tệp mẫu của bạn ở đây.
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL