Tệp đã chọn không hỗ trợ sổ làm việc chứa nhiều trang tính

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 một sổ làm việc thành các tệp văn bản hoặc csv riêng biệt, bạn có thể làm như thế nào?

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

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

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

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

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

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 phím F5 để chạy mã. Bạn sẽ thấy tất cả các tệp csv đã xuất nằm trong thư mục Tài liệu. Xem ảnh chụp màn hình

Xuất hoặc chuyển đổi tất 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 thành các tệp Văn bản riêng biệt

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 trong thư mục Tài liệu. 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 thành tệp csv hoặc văn bản bằng Kutools cho Excel

Y Bạn có thể nhanh chóng xuất hoặc chuyển đổi nhiều hoặc tất cả trang tính sang định dạng tệp csv, tệp văn bản hoặc tệp xls riêng lẻ trong Excel bằng tiện ích Split Workbook của Kutools cho Excel.

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

1. Nhấp vào Kutools Plus > Sổ làm việc > Tách Sổ làm việc. Xem ảnh chụp màn hình

2. Trong hộp thoại Split Workbook

• 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 hộp Tên trang tính;
• 2). Trong phần Options, đánh dấu vào ô Save as type rồi chọn Unicode Text(*. txt) hoặc CSV (Macintosh)(*. csv) từ danh sách thả xuống
• 3). Nhấp vào nút Tách

3. Trong hộp thoại Browse For Folder, chỉ định một thư mục để lưu các tệp đã xuất, sau đó nhấp vào nút OK

Giờ đây, tất cả các trang tính hoặc trang tính đã chỉ định được chuyển đổi thành tệp csv hoặc tệp văn bản riêng biệt 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 -ngày) tiện ích này, vui lòng nhấp để tải xuống rồi truy cập .

Lưu, xuất hoặc chuyển đổi nhiều/tất cả các trang thành tệp csv hoặc văn bản bằng 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ác công thức, biểu đồ phức tạp  và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
• 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); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
• Siêu bộ lọc (lưu và áp dụng lược đồ bộ lọc cho các trang tính khác); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• 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. Đảm bảo hoàn tiền trong 60 ngày.

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.  

Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều

• Bật chỉnh sửa và đọc theo tab 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 năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.  

Cũ nhất đầu tiên

Sắp xếp nhận xét theo

Cũ nhất đầu tiên

mới nhất đầu tiên

Nhận xét ( 36 )

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng

Alex K123456789

khoảng 6 năm trước

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 Tài liệu không?

Hồi đáp

0

0

Paul     Alex K123456789

khoảng 6 năm trước

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 để các tệp CSV lưu vào một thư mục khác ngoài thư mục Tài liệu không? Bởi Alex K123456789[/quote] Tôi chưa kiểm tra nó, nhưng tôi khá là "\" trong dòng này là viết tắt của . xcsvFile = CurDir & "\" & xWs. Tên & ". 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, chẳng hạn như trong thư mục có tên mới, bạn chỉ cần thay "\" bằng "\New\". Một cái gì đó dọc theo những dòng

Hồi đáp

0

0

ALEX K123456789     Paul

khoảng 6 năm trước

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 lúc trước, nhưng giải pháp của bạn chính xác là những gì tôi đã làm

Hồi đáp

0

0

Paul     ALEX K123456789

khoảng 6 năm trước

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, nó 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

Hồi đáp

0

0

Bình minh     ALEX K123456789

khoảng 5 năm trước

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 "\" không? . csv 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 sự cố lỗi khi 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 rành về mã, 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

Hồi đáp

0

0

Alex K123456789     Bình minh

khoảng 5 năm trước

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, Bạn có thể cho tôi xem dòng mã bạn đã nhập thay cho "\" không? . csv 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 sự cố lỗi khi 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 rành về mã, 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. By Dawn[/quote] Chào Dawn, tôi buộc phải viết lại các phần và giống như Paul gợi ý, đã 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 các 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. Làm mới tất cả các trang tính ("Karth"). Chọn Phạm vi ("B22"). Chọn ActiveSheet. PivotTable("Karth_Appd_Wkly"). PivotCache. Làm mới Trang tính ("Bắt đầu"). Chọn Trang tính ("Karth"). ExportAsFixedFormat Loại. =xlTypePDF, Tên tệp. =_" K. \K\Analytics\Reports\Sales\SM Reports\SM Summary_Karth. pdf" _ , Chất lượng. =xlQualityStandard, Bao gồmDocProperties. =True, bỏ quaPrintAres _. = Sai, MởSau khi Xuất bản. =Sai kết thúc phụ

Hồi đáp

0

0

Nicolas

khoảng 6 năm trước

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 bạn về mã, có thể bỏ qua một số trang tính và chỉ lưu một số trang không? . Bạn có thể giúp tôi?

Hồi đáp

0

0

Mike

khoảng 6 năm trước

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" để tạo đườ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 trình khám phá để các tệp của bạn có thể được ghi ở bất cứ đâu trên thực tế. Bạn nên sử dụng Ứng dụng. Sổ làm việc này. Thay vào đó là đường dẫn

Hồi đáp

0

0

Cao lớn

khoảng 5 năm trước

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 viết thư này để xác định xem ứng dụng của bạn có thể chuyển đổi nhiều trang xls thành một tệp văn bản hay không và cách ứng dụng sắp xếp các hàng. 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, mỗi dòng một trang. Tờ 1, hàng 1; . Tôi mong muốn được thông tin phản hồi của bạn

Hồi đáp

0

0

Amit Chaudhary

khoảng 5 năm trước

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 mã, tôi chỉ cần làm rõ một chút. 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 phân tách phải là đường ống ". ". 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. Mong bạn trả lời sớm nhất. Cám ơn. Trân trọng, Amit

Hồi đáp

0

0

tro

khoảng 5 năm trước

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ể hiển thị mã để lưu các tệp ở định dạng csv ngoại trừ thư mục tài liệu không

Hồi đáp

0

0

Tauseef Kundalia

khoảng 5 năm trước

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 hỏi tên thư mục không phải là một tệp. tôi cần nó trên cơ sở khẩn cấp.


Trân trọng,

Hồi đáp

Bài báo cáo

0

0

pha lê     Tauseef Kundalia

khoảng 5 năm trước

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

Hồi đáp

Bài báo cáo

0

0

Abhishek Jha™

khoảng 4 năm trước

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 một nhóm tệp khác

Hồi đáp

Bài báo cáo

0

0

pha lê     Abhishek Jha™

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Chúc một ngày tốt lành,
Bạn muốn đưa tệp nào vào "tập hợp tệp khác" của mình?

Hồi đáp

Bài báo cáo

0

0

R

khoảng 4 năm trước

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 có 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à cột nối 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 nối đó thành 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 đó (giả sử cột nối là AA) từ mỗi trang tính, đặt cột đó vào một tệp văn bản .

Hồi đáp

Bài báo cáo

0

0

pha lê     R

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Chúc một ngày tốt lành,
Rất tiếc, chúng tôi không thể giúp bạn việc này, bạn có thể đăng câu hỏi của mình trong diễn đàn của chúng tôi. https. //www. mở rộng văn phòng. com/diễn đàn. html để nhận thêm hỗ trợ Excel từ chuyên gia của chúng tôi.

Hồi đáp

Bài báo cáo

0

0

Ken

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

A, hiện tại mình thấy có dòng "VBA code. Xuất tất cả các trang tính sang các tệp csv riêng biệt" không được sao chép 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

Hồi đáp

0

0

pha lê     Ken

khoảng 4 năm trước

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 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 này.

Hồi đáp

Bài báo cáo

0

0

Cameron Stewart

khoảng 4 năm trước

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 - kịch bản rất hữu ích

Hồi đáp

Bài báo cáo

0

0

sai

khoảng 4 năm trước

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

Hồi đáp

0

0

AK sharma

khoảng 4 năm trước

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 các trang tính đó và bỏ chọn các trang tính khác mà bạn không muốn chuyển đổi
thầy có macro không

Hồi đáp

Bài báo cáo

0

0

pha lê     AK sharma

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Chúc một ngày tốt lành,
Không hỗ trợ được 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? .

Hồi đáp

Bài báo cáo

0

0

Mirko

khoảng 3 năm trước

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 bạn rất nhiều vì một macro tuyệt vời, nó hoạt động rất tốt. Nhưng tôi có một câu hỏi, nếu tôi muốn lưu macro này (phiên bản CSV) trên CÁ NHÂN thì sao?. xlsb để làm cho nó khả dụng trên bất kỳ phiên bản excel nào?

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

Cảm ơn sự giúp đỡ của bạn.

Hồi đáp

Bài báo cáo

0

0

pha lê     Mirko

khoảng 3 năm trước

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 Mirko,
Phương pháp trong bài viết này có thể giúp ích cho bạn. https. // trumpexcel. com/personal-macro-workbook/.

Hồi đáp

Bài báo cáo

0

0

Tara Collins

khoảng 3 năm trước

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 một. csv của mỗi trang trong một cuốn sách?

Hồi đáp

Bài báo cáo

0

0

pha lê     Tarah Collins

khoảng 3 năm trước

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,
Mã VBA trong bài viết này có thể giúp ích cho bạn. https. //www. mở rộng văn phòng. com/documents/excel/2897-excel-export-range-to-csv. html

Hồi đáp

Bài báo cáo

0

0

Pháp

khoảng 3 năm trước

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, nếu tôi cần chia sổ làm việc thành. csv nhưng dành cho PC, không phải MAC? . Tôi sẽ rất biết ơn

Hồi đáp

Bài báo cáo

0

0

pha lê     Francia

khoảng 2 năm trước

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,
Mã VBA đầu tiên trong bài đăng này có thể giúp ích cho bạn.

Hồi đáp

Bài báo cáo

0

0

na-than

khoảng 3 năm trước

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ã ở định dạng tệp khác, chẳng hạn như xlsx?

Hồi đáp

0

0

Tim

khoảng 1 năm trước

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. Tôi đã sử dụng cái này để lưu tất cả các trang tính của tôi. xlsx thành các tệp khác nhau. xlsx
Sub ExportSheetsToXLSX()
Làm mờ xWs dưới dạng trang tính
Làm mờ xcsvFile dưới dạng chuỗi
Dành cho . ActiveWorkbook. Trang tính
xWs. Sao chép
xlsxFile = CurDir & "\" & xWs. Tên & ". xlsx"
Ứng dụng. ActiveWorkbook. Lưu dưới dạng tên tệp. =xlsxFile, _
Định dạng tệp. =xlOpenXMLWorkbook, CreateBackup. =False
Ứng dụng. ActiveWorkbook. Đã lưu = Đúng
Ứng dụng. ActiveWorkbook. Đóng
Tiếp theo
Kết thúc phụ

Hồi đáp

0

0

BI

khoảng 5 tháng trước

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, thật tuyệt vời (Xuất tất cả các trang thành các tệp Văn bản riêng biệt). Đã sử dụng nó nhiều lần nhưng chạy vào 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à phương thức sao chép trang tính đó không thành công và đánh dấu dòng xWs. Sao chép. Có bất kỳ quy tắc nào liên quan đến tên trang tính không cho phép mã chạy không?

Tại sao tôi không thể chọn nhiều sheet trong Excel?

Một sổ làm việc có thể chứa nhiều trang tính không?

CSV có hỗ trợ nhiều trang tính không?