Làm cách nào để kết hợp / nhập nhiều tệp csv vào nhiều trang tính?
Nếu bạn muốn nhập nhiều tệp csv từ một thư mục dưới dạng các trang tính riêng biệt trong sổ làm việc, bạn có thể giải quyết công việc này trong Excel như thế nào?
Nhập nhiều tệp csv vào các trang tính riêng biệt với mã VBA
Nhập nhiều tệp csv vào các trang tính riêng biệt với Kutools for Excel
Chia sổ làm việc thành nhiều tệp csv / pdf / txt / excel riêng biệt
Nhập nhiều tệp csv vào các trang tính riêng biệt với mã VBA
Để nhanh chóng nhập nhiều tệp csv vào một sổ làm việc, mã VBA sau có thể giúp ích cho bạn, vui lòng thực hiện như sau:
1. Giữ ALT + F11 các phím trong Excel để 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 Mô-đun Cửa sổ.
Mã VBA: Nhập nhiều tệp văn bản vào các trang tính riêng biệt:
Sub CombineCsvFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. Sau đó nhấn F5 để thực thi mã này và một cửa sổ sẽ xuất hiện, hãy chuyển đến thư mục cụ thể và chọn tệp csv mà bạn muốn nhập vào Excel, xem ảnh chụp màn hình:
4. Và sau đó nhấp vào Mở , các tệp csv đã chọn đã được nhập dưới dạng các trang tính riêng biệt trong sổ làm việc mới.
5. Cuối cùng, bạn có thể lưu sổ làm việc mới khi cần.
Nhập nhiều tệp csv vào các trang tính riêng biệt với Kutools for Excel
Nếu bạn có Kutools for Excel, với công cụ mạnh mẽ của nó-Kết hợp, bạn có thể nhanh chóng kết hợp hoặc nhập nhiều tệp csv vào một trang tính duy nhất hoặc nhiều trang tính riêng biệt khi bạn cần.
Sau khi cài đặt Kutools for Excel, hãy làm như sau:
1. Hãy nhấp Kutools Plus > Kết hợp, xem ảnh chụp màn hình:
2. Trong tạp chí Kết hợp các bảng tính hộp thoại, vui lòng chọn Kết hợp nhiều trang tính từ sổ làm việc vào một sổ làm việc, xem ảnh chụp màn hình:
3. Trong Bước 2 của trình hướng dẫn, nhấp vào Thêm > Tập tin để chọn các tệp csv mà bạn muốn kết hợp, hãy xem ảnh chụp màn hình:
4. Trong cửa sổ bật ra Mở hộp thoại, chọn (* .csv) từ danh sách thả xuống, sau đó chỉ định tệp csv mà bạn muốn hợp nhất.
5. Sau đó nhấn vào Mở và các tệp csv đã chọn của bạn đã được nhập vào hộp thoại, xem ảnh chụp màn hình:
6. Trong Bước 3, vui lòng thực hiện các thao tác sau:
(1.) Kiểm tra Hàng đầu tiên của mỗi trang tính (nhận xét) từ Chèn thông tin trang tính , tất cả thông tin tệp csv sẽ được chèn vào các trang tính kết hợp dưới dạng nhận xét;
(2.) Bạn có thể đổi tên tệp csv nếu bạn cần;
(3.) bạn có thể bỏ qua tệp csv trống khi bạn gặp tệp csv trống.
7. Sau đó nhấn vào Kết thúc và sau khi kết hợp xong, bạn có thể chỉ định tên và vị trí lọc cho sổ làm việc kết hợp mới của mình. Xem ảnh chụp màn hình:
8. Sau đó nhấn vào Lưu , trong hộp quảng cáo bật ra, bạn có thể mở tệp mới nhấp vào Cóvà đóng nó bằng cách nhấp vào Không, xem ảnh chụp màn hình:
9. Và sau đó bạn có thể lưu kịch bản này hoặc không theo ý muốn. Xem ảnh chụp màn hình:
10. Cuối cùng, các tệp csv đã chọn của bạn đã được nhập vào một sổ làm việc mới với trang tính được tách biệt, xem ảnh chụp màn hình:
Tải xuống và dùng thử miễn phí Kutools for Excel Hiện nay !
Demo: Nhập nhiều tệp csv vào các trang tính riêng biệt với Kutools for Excel
Chia sổ làm việc thành nhiều tệp csv / pdf / txt / excel riêng biệt
Trong một số trường hợp nhất định, bạn có thể muốn tách sổ làm việc thành các tệp csv riêng biệt, Kutools for ExcelTiện ích Split Workbook có thể hoàn thành công việc này một cách nhanh chóng và dễ dàng.
Sau khi cài đặt Kutools for Excel, hãy làm như sau:
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. Trong tạp chí Chia sổ làm việc hộp thoại:
(1.) Kiểm tra các trang tính mà bạn muốn tách;
(2.) Và kiểm tra Chỉ định lưuđịnh dạng, sau đó chọn định dạng tệp bạn muốn lưu;
(3.) Sau đó nhấp vào chẻ và chỉ định một thư mục để đặt các tệp được phân tách.
3. Và sau đó nhấp vào OK để bắt đầu tách, sổ làm việc sẽ được chia thành các tệp csv riêng biệt mà bạn cần.
Tải xuống và dùng thử miễn phí Kutools for Excel Hiện nay !
Chia sổ làm việc thành nhiều tệp csv / pdf / txt / excel riêng biệt
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excelvà 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...
Office Tab 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
- 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!
