Hướng dẫn how do i combine multiple text files into one excel spreadsheet? - làm cách nào để kết hợp nhiều tệp văn bản vào một bảng tính excel?

Ví dụ, ở đây bạn có một thư mục có nhiều tệp văn bản, điều bạn muốn làm là nhập các tệp văn bản này vào một bảng tính duy nhất như dưới đây ảnh chụp màn hình. Thay vì sao chép từng tệp văn bản một, có bất kỳ thủ thuật nào để nhanh chóng nhập các tệp văn bản từ một thư mục vào một trang không?

Nhập nhiều tệp văn bản từ một thư mục vào một trang tính với VBA

Nhập tệp văn bản vào ô hoạt động với kutools cho excel

Dưới đây là mã VBA có thể giúp bạn nhập tất cả các tệp văn bản từ một thư mục cụ thể vào một tờ mới.

1Alt + F11 keys to enable Microsoft Visual Basic for Applications window.

2. Nhấp vào Chèn> Mô -đun, Sao chép và Dán bên dưới Mã VBA vào cửa sổ Mô -đun.Insert > Module, copy and paste below VBA code to the Module window.

VBA: Nhập nhiều tệp văn bản từ một thư mục sang một tờ

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3. Nhấn F5 để hiển thị hộp thoại và chọn thư mục chứa các tệp văn bản bạn muốn nhập. Xem ảnh chụp màn hình:F5 to display a dialog, and select a folder which contains text files you want to import. See screenshot:

4. Nhấp vào OK. Sau đó, các tệp văn bản đã được nhập vào sổ làm việc hoạt động dưới dạng tờ mới riêng biệt.OK. Then the text files have been imported to the active workbook as new sheet separately.

Nếu bạn muốn nhập một tệp văn bản vào một ô hoặc phạm vi cụ thể, bạn có thể áp dụng Kutools cho tệp chèn Excel tại Tiện ích con trỏ.Kutools for Excel’s Insert File at Cursor utility.

Sau khi cài đặt miễn phí Kutools cho Excel, vui lòng làm như dưới đây:free installing Kutools for Excel, please do as below:

1. Chọn một ô bạn muốn nhập tệp văn bản và nhấp vào Kutools Plus> Nhập/ Xuất> Chèn tệp tại con trỏ. Xem ảnh chụp màn hình:Kutools Plus > Import/ Export > Insert File at Cursor. See screenshot:

2. Sau đó, một hộp thoại bật ra, nhấp vào Duyệt để hiển thị tệp chọn được chèn tại hộp thoại vị trí con trỏ ô, Tiếp theo chọn Tệp văn bản từ danh sách thả xuống, sau đó chọn tệp văn bản bạn muốn nhập. Xem ảnh chụp màn hình:Browse to display the Select a file to be inserted at the cell cursor position dialog, next select Text Files from the drop down list, and then choose the text file you want to import. See screenshot:

3. Nhấp vào Mở> OK và tệp văn bản chỉ định đã được chèn tại vị trí con trỏ, xem ảnh chụp màn hình:Open > Ok, and the specify text file has been inserted at the cursor position, see screenshot:

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 năng suất của bạn lên 80%

• Tái sử dụng: nhanh chóng chèn các công thức phức tạp, biểu đồ & nbsp; và bất cứ điều gì bạn đã sử dụng trước đây; Mã hóa các ô bằng mật khẩu; Tạo danh sách gửi thư và gửi email ...: Quickly insert complex formulas, charts and anything that you have used before; 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); Đọc bố cục (dễ dàng đọc và chỉnh sửa số lượng lớn các ô); Dán vào phạm vi được lọc ... (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất các ô/hàng/cột mà không mất dữ liệu; Chia nội dung tế bào; 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 phạm vi ... without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Chọn các hàng trùng lặp hoặc độc đáo; Chọn các hàng trống (tất cả các ô trống); Siêu tìm và mờ tìm trong nhiều sách bài tập; Chọn ngẫu nhiên ... Rows; 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; Tự động tạo tham chiếu đến nhiều tờ; Chèn đạn, hộp kiểm và nhiều hơn nữa ... 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!

Comments(39) (39)

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