@S, Abeeya - Mindtree LTD Nếu bạn đang sử dụng hành động thì nó sẽ trả về tất cả các bảng trong bất kỳ trang tính nào. Giờ đây, bạn có thể lặp lại thông qua đầu ra của tác vụ Lấy bảng và sử dụng tác vụ ""
Trên tùy chọn Bảng Chọn Enter custom value
và Chọn nội dung động Name
của hành động "Lấy bảng" trước đó của bạn
Như bạn đã đề cập rằng bạn có thể chuyển đổi một bảng thành csv. Các hành động tiếp theo phải nằm trong cùng vòng lặp for để lưu các hàng của bảng vào csv
Sử dụng các hàm cơ bản trong Excel, bạn chỉ có thể lưu toàn bộ trang tính của mình dưới dạng tệp văn bản hoặc dưới dạng CSV. Vì vậy, làm cách nào để bạn chuyển đổi nhiều trang tính Excel thành tệp CSV hoặc tệp văn bản riêng biệt?
Hoặc nếu bạn muốn chuyển đổi sang CSV, vui lòng làm theo hướng dẫn bên dưới
Cách chuyển đổi nhiều trang tính Excel thành tệp CSV
Bước 1 - Mở cửa sổ VBA
- Trước tiên, đảm bảo rằng Bảng tính Excel của bạn đang mở và nhấn ALT + F11 cùng lúc để mở cửa sổ Ứng dụng Microsoft Visual Basic [VBA]. Nếu bạn không thể mở cửa sổ VBA bằng cách nhấn “ALT + F11”, có một cách khác để thực hiện
- Trong Tab Nhà phát triển, nhấp vào "Visual Basic" ở bên trái và hành động đó sẽ mở nó
Bước 2 - Nhập mã VSB
- Bây giờ Ứng dụng Microsoft Visual Basic của bạn đã mở, bạn cần nhấp vào Chèn -> Mô-đun. Sau đó, sao chép/dán mã này vào Cửa sổ Mô-đun của bạn
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
- Nó sẽ trông giống thế này
Bước 3 - Bước cuối cùng
- Chèn code xong nhấn F5 cho nó chạy. Sau đó, bạn sẽ thấy rằng tất cả các Tệp CSV đã xuất đều nằm trong Thư mục Tài liệu của bạn - giống như trong ảnh chụp màn hình này
Chuyển đổi nhiều trang tính Excel thành tệp văn bản
Bước 1 - Mở cửa sổ VBA
- Trước tiên, đảm bảo rằng Bảng tính Excel của bạn đang mở và nhấn ALT + F11 cùng lúc để mở cửa sổ Ứng dụng Microsoft Visual Basic [VBA]. Nếu bạn không thể mở cửa sổ VBA bằng cách nhấn “ALT + F11”, có một cách khác để thực hiện
- Trong Tab Nhà phát triển, nhấp vào "Visual Basic" ở bên trái và hành động đó sẽ mở nó
Bước 2 - Nhập mã VSB
- Bây giờ Ứng dụng Microsoft Visual Basic của bạn đã mở, bạn cần nhấp vào Chèn -> Mô-đun. Sau đó, sao chép/dán mã này vào Cửa sổ Mô-đun của bạn
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
Bước 3 - Bước cuối cùng
- Chèn code xong nhấn F5 cho nó chạy. Sau đó, bạn sẽ thấy rằng tất cả các Tệp CSV đã xuất đều nằm trong Thư mục Tài liệu của bạn - giống như trong ảnh chụp màn hình này
Bạn có biết rằng chúng tôi cũng thực hiện Giải pháp tích hợp không?
Chipkin có các giải pháp tích hợp cho hầu hết mọi tình huống. Chúng tôi chuyên về truyền thông giao thức mạng và có hơn 20 năm kinh nghiệm. Bấm để biết thêm thông tin
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 tệp 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.
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.
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 7 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
Đẹ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 "\" được 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 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ô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 tạ. 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 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 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 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
Ngày tốt,
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 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
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 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] Cách tôi muốn là tôi chỉ cần nhấn một nút và nó sẽ tìm tất cả các tab, trích xuất cột đó [giả sử 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
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
Ngày tốt,
Xin lỗi không thể giúp với điều này, bạn có thể gửi câu hỏi của bạn 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 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
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
Gà,
Đó 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
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 chúng và bỏ chọn các trang tính khác mà bạn không muốn chuyển đổi
bác cho thuis bước bác có macro ko
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
Ngày tốt,
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?
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 như một bùa mê. 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ó 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 CÁ NHÂN, thay vì trang tính đang hoạt động
Cảm ơn bạn đã giúp đỡ
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
Chào miko,
Phương pháp trong bài viết này có thể giúp 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
Thanks. 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
Phụ ExportSheetsToXLSX[]
Dim xWs dưới dạng bảng tính
Dim xcsvFile dưới dạng chuỗi
Đối với mỗi xWs trong ứng dụng. ActiveWorkbook. bảng 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. =xlsxTệp, _
Định dạng tệp. =xlOpenXMLWorkbook, CreateBackup. =Sai
Ứng dụng. ActiveWorkbook. Đã lưu = Đúng
Ứng dụng. ActiveWorkbook. Đóng
Kế tiếp
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?