Hướng dẫn excel import multiple csv files into separate sheets vba - excel nhập nhiều tệp csv vào các trang tính riêng biệt vba

Nếu bạn muốn nhập nhiều tệp CSV từ một thư mục dưới dạng bảng tính riêng biệt trong sổ làm việc, làm thế nào bạn có thể đối phó với công việc này trong Excel?

Nhập nhiều tệp CSV vào bảng tính riêng biệt với mã VBA

Nhập nhiều tệp CSV vào bảng 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 sổ làm việc, mã VBA sau đây có thể giúp bạn, vui lòng làm như sau:

1. Giữ các phím ALT + F11 trong Excel để mở cửa sổ Microsoft Visual Basic cho các ứng dụng.. Hold down the ALT + F11 keys in Excel to open the Microsoft Visual Basic for Applications window.

2. Nhấp vào Chèn> Mô -đun và Dán mã sau vào cửa sổ Mô -đun.. Click Insert > Module, and paste the following code in the Module Window.

Mã VBA: Nhập nhiều tệp văn bản vào các bảng 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 phím F5 để thực thi mã này và một cửa sổ sẽ bật ra, truy cập thư mục cụ thể và chọn các tệp CSV mà bạn muốn nhập vào Excel, xem ảnh chụp màn hình:. Then press F5 key to execute this code, and a window will popped out, go to the specific folder and select the csv files that you want to import to Excel, see screenshot:

4. và sau đó nhấp vào nút Mở, các tệp CSV đã chọn đã được nhập dưới dạng bảng tính riêng biệt trong một sổ làm việc mới.. And then click Open button, the selected csv files have been imported as separate worksheets within a new workbook.

5. Cuối cùng, bạn có thể lưu sổ làm việc mới khi bạn cần.. Finally, you can save the new workbook as you need.

Nếu bạn có Kutools cho Excel, với trận đấu công cụ mạnh mẽ, bạn có thể nhanh chóng kết hợp hoặc nhập nhiều tệp CSV vào một bảng tính duy nhất hoặc nhiều bảng tính được phân tách khi bạn cần.Kutools for Excel, with its powerful tool-Combine, you can quickly combine or import multiple csv files into one single worksheet or multiple separated worksheets as you need.

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:Kutools for Excel, please do as this:

1. Vui lòng nhấp vào Kutools Plus> Kết hợp, xem Ảnh chụp màn hình:. Please click Kutools Plus > Combine, see screenshot:

2. Trong hộp thoại Kết hợp bảng tính, vui lòng chọn Kết hợp nhiều bảng 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: In the Combine Worksheets dialog box, please select Combine multiple worksheets from workbooks into one workbook, see screenshot:

3. Trong bước 2 của trình hướng dẫn, nhấp vào Thêm> Tệp để chọn các tệp CSV mà bạn muốn kết hợp, xem ảnh chụp màn hình:. In the Step 2 of the wizard, click Add > File to choose the csv files that you want to combine, see screenshot:

4. Trong hộp thoại mở ra, chọn [*.csv] từ danh sách thả xuống, sau đó chỉ định các tệp CSV mà bạn muốn hợp nhất.. In the popped out Open dialog, select [*.csv] from the drop down list, and then specify the csv files that you want to merge.

5. Sau đó nhấp vào nút 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:. Then click Open button, and your selected csv files have been imported into the dialog box, see screenshot:

6. Trong bước 3, vui lòng thực hiện các hoạt động sau:. In the Step 3, please do the following operations:

.First row of each worksheet [comments] from the Insert worksheet information section, all of the csv files information will be inserted into the combined sheets as comments;

[2.] Bạn có thể đổi tên các tệp CSV khi bạn cần;

[3.] Bạn có thể bỏ qua các tệp CSV trống khi bạn đóng tệp CSV trống.

7. Sau đó nhấp vào nút Kết thúc và sau khi kết thúc kết hợp, bạn có thể chỉ định tên và vị trí Filw cho sổ làm việc kết hợp mới của bạn. Xem ảnh chụp màn hình:. Then click Finish button, and after finishing the combining, you can specify a filw name and location for your new combined workbook. See screenshot:

8. Sau đó nhấp vào nút Lưu, trong hộp PROMT 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:. Then click Save button, in the popped out promt box, you can open the new file click Yes, and close it by clicking No, see screenshot:

9. và sau đó bạn có thể lưu kịch bản này hoặc không như bạn muốn. Xem ảnh chụp màn hình:. And then you can save this scenario or not as you like. See screenshot:

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 bảng tính tách biệt, xem ảnh chụp màn hình:. At last, your selected csv files have been imported into a new workbook with separated worksheet, see screenshot:

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

Kutools cho Excel: Với hơn 300 tiện ích bổ sung excel tiện dụng, miễn phí thử mà không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay bây giờ!: with more than 300 handy Excel add-ins, free to try with no limitation in 30 days. Download and free trial Now!

Trong một số trường hợp nhất định, bạn có thể muốn chia một sổ làm việc thành các tệp CSV riêng biệt, Kutools cho tiện ích sổ làm việc của Excel, 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, vui lòng làm như sau:Kutools for Excel, please do as this:

1. Vui lòng nhấp vào Kutools Plus> Kết hợp, xem Ảnh chụp màn hình:. Click Kutools Plus > Workbook > Split Workbook, see screenshot:

2. Trong hộp thoại Kết hợp bảng tính, vui lòng chọn Kết hợp nhiều bảng 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: In the Split Workbook dialog box:

3. Trong bước 2 của trình hướng dẫn, nhấp vào Thêm> Tệp để chọn các tệp CSV mà bạn muốn kết hợp, xem ảnh chụp màn hình:

4. Trong hộp thoại mở ra, chọn [*.csv] từ danh sách thả xuống, sau đó chỉ định các tệp CSV mà bạn muốn hợp nhất.Specify saveformat, then choose the file format you want to save;

5. Sau đó nhấp vào nút 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:Split button, and specify a folder to put the separated files.

6. Trong bước 3, vui lòng thực hiện các hoạt động sau:. And then click OK to start splitting, the workbook will be split into separate csv files you need.

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

Kutools cho Excel: Với hơn 300 tiện ích bổ sung excel tiện dụng, miễn phí thử mà không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay bây giờ!: with more than 300 handy Excel add-ins, free to try with no limitation in 30 days. Download and free trial Now!

Trong một số trường hợp nhất định, bạn có thể muốn chia một sổ làm việc thành các tệp CSV riêng biệt, Kutools cho tiện ích sổ làm việc của Excel, có thể hoàn thành công việc này một cách nhanh chóng và dễ dàng.

1. Nhấp vào Kutools Plus> Sổ làm việc> Sách bài tập chia rẽ, xem ảnh chụp màn hình:

• 2. Trong hộp thoại Sách bài tập phân chia:: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• [1.] Kiểm tra các bảng tính mà bạn muốn chia; [easily edit multiple lines of text and formula]; Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
• [2.] và kiểm tra Chỉ định SaveFormat, sau đó chọn định dạng tệp bạn muốn lưu; without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• [3.] Sau đó nhấp vào nút chia và chỉ định một thư mục để đặt các tệp được phân tách. Rows; Select Blank Rows [all cells are empty]; Super Find and Fuzzy Find in Many Workbooks; Random Select...
• 3. Và sau đó bấm OK để bắt đầu chia tách, sổ làm việc sẽ được chia thành các tệp CSV riêng biệt bạn cần. Multiple Cells without changing formula reference; 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í, loại bỏ không gian;Tạo và in các phần phụ phân trang;Chuyển đổi giữa nội dung ô và bình luận ..., Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Siêu bộ lọc [lưu và áp dụng các sơ đồ lọc cho các bảng khác];Sắp xếp nâng cao theo tháng/tuần/ngày, tần suất và nhiều hơn nữa;Bộ lọc đặc biệt của in đậm, nghiêng ... [save and apply filter schemes to other sheets]; Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp sách bài tập và bảng tính;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 tờ;Batch Chuyển đổi XLS, XLSX và PDF ...; Merge Tables based on key columns; 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-2019 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 đủ các tính năng dùng thử miễn phí 30 ngày.Đảm bảo hoàn lại tiền 60 ngày.. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Tab Office mang giao diện được lập bảng đến văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều

• Kích hoạt chỉnh sửa và đọc theo bảng trong Word, Excel, PowerPoint, Nhà xuất bản, Truy cập, Visio và Dự án., Publisher, Access, Visio and 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!