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

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 cho Excel

Chia sổ làm việc thành nhiều tệp csv / pdf / txt / excel riêng biệt


Để 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:

doc nhập csv vào trang tính 1

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.


Nếu bạn có Kutools cho 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 cho 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:

doc nhập csv vào trang tính 6

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:

doc nhập csv vào trang tính 7

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.

doc nhập csv vào trang tính 8

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:

doc nhập csv vào trang tính 9

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.

doc nhập csv vào trang tính 10

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:

doc nhập csv vào trang tính 11

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 và đóng nó bằng cách nhấp vào Không, xem ảnh chụp màn hình:

doc nhập csv vào trang tính 12

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:

doc nhập csv vào trang tính 13

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:

doc nhập csv vào trang tính 14

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!

Trong một số trường hợp nhất định, bạn có thể muốn chia sổ làm việc thành các tệp csv riêng biệt, tiện ích Kutools cho Excel's 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 cho 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.

doc nhập csv vào trang tính 3

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.

doc nhập csv vào trang tính 4

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!

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 (7)
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ảm ơn bạn về mã kết hợp các tệp. Tuy nhiên, tôi muốn có nhiều tệp trong sổ làm việc mà tôi hiện đang làm việc, không phải để tạo mã để tạo một sổ làm việc mới. Làm cách nào để đạt được điều đó?
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 bạn đã chia sẻ mã này. Nó chính xác là những gì tôi đang tìm kiếm. Đáng buồn là nó không hoạt động tốt như tôi hy vọng. Tôi nhận được thông báo lỗi mỗi khi mã được chạy. LỖI: "Tên đã được sử dụng. Hãy thử một tên khác." Lưu ý: - Tôi đang cố gắng kết hợp bốn tệp csv - Tất cả các tệp csv đều có cùng tên "file_name.csv, file_name (1) .csv, v.v." Mã kết hợp hai tệp csv đầu tiên thành một sổ làm việc và tệp thứ ba vào sổ làm việc của chính nó. Tập tin thứ tư không bao giờ có cơ hội vì lỗi. Nếu ai đó có một số suy nghĩ về cách khắc phục sự cố này, tôi sẽ đánh giá rất cao phản hồi của bạn. Cảm ơn tất cả các bạn trước vì bạn đã dành thời gian. Trân trọng, Andrew
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 bạn! Mã 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
Cảm ơn bạn . Rất tiện 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 bạn. Mã hoạt động tốt
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, macro vba này rất tuyệt, nhưng tôi muốn nó được khởi chạy bằng một lần nhấp vào nút trên sổ làm việc khác, làm cách nào tôi có thể làm điều đó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi!
Tôi đã sử dụng mã này để kết hợp các biểu mẫu đánh giá thành một trang tính excel. Tuy nhiên, nó đọc ngày ở định dạng MM / DD / YYYY của Hoa Kỳ thay vì định dạng Châu Âu mà tôi sử dụng, đó là DD / MM / YYYY. Kết quả là một cột trông như thế này:

11-4-2021 17:13
22/10/2021 09:41:32 (Đây là ngày 22 tháng XNUMX, nhưng nó không được công nhận)
7-12-2022 14:55 (Điều này được đọc nhầm thành ngày 7 tháng 12, khi nó phải là ngày XNUMX tháng XNUMX.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

Làm cách nào để ngăn điều này xảy ra? Tôi đã thấy một bình luận về bài đăng khác đề xuất đặt 'Local = True' ở đâu đó, nhưng tôi không thể tìm ra nơi đặt nó để các tệp CSV tải chính xác. Bất kỳ trợ giúp được đánh giá cao!
Không có bình luận nào được đăng ở đây
Để 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