Bỏ qua nội dung chính

Làm cách nào để nhập nhiều tệp văn bản vào nhiều trang tính?

Giả sử, có nhiều tệp văn bản trong một thư mục trên máy tính của bạn, bây giờ, bạn muốn nhập các tệp văn bản này vào sổ làm việc Excel và đặt từng tệp văn bản vào các trang tính riêng biệt. Sao chép và dán lần lượt từng tệp văn bản vào trang tính sẽ lãng phí rất nhiều thời gian, ở đây, tôi có thể nói về một số thủ thuật để bạn giải quyết vấn đề này.

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

Tách sổ làm việc thành nhiều tệp văn bản / pdf / csv / xlsx riêng biệt với Kutools cho Excel


mũi tên màu xanh bong bóng bên phải Nhập nhiều tệp văn bản vào các trang tính riêng biệt với mã VBA

Mã VBA sau có thể giúp bạn nhập từng tệp văn bản vào các trang tính riêng biệt trong sổ làm việc mới cùng một lúc, 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 CombineTextFiles()
'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 (*.txt), *.txt", , "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
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    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 khi dán mã trên, nhấn F5 để chạy mã này và trong cửa sổ bật ra, vui lòng chỉ định thư mục chứa các tệp văn bản, đi tới thư mục để chọn các tệp văn bản bạn muốn nhập vào trang tính, xem ảnh chụp màn hình:

doc nhập nhiều tệp văn bản 1

4. Sau đó nhấn vào Mở , tất cả các tệp văn bản đã chọn đã được nhập vào một sổ làm việc mới và mỗi tệp nằm trong một trang tính riêng lẻ.

5. Cuối cùng, bạn có thể lưu sổ làm việc mới khi cần.


mũi tên màu xanh bong bóng bên phải Tách sổ làm việc thành nhiều tệp văn bản / pdf / csv / xlsx riêng biệt với Kutools cho Excel

Đôi khi, bạn có thể cần thực hiện một số thao tác ngược lại với tác vụ trên, nghĩa là bạn cần chia sổ làm việc để tách các tệp văn bản. Kutools cho Excel'S Chia sổ làm việc tiện ích có thể giúp bạn giải quyết công việc này một cách nhanh chóng và dễ dàng.

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

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau :( Tải xuống miễn phí Kutools cho Excel ngay! )

1. Kích hoạt sổ làm việc mà bạn muốn chia thành nhiều tệp văn bản.

2. Nhấp chuột Doanh nghiệp > Bảng tính > Chia sổ làm việc, xem ảnh chụp màn hình:

3. Trong 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.) Kiểm tra Chỉ định định dạng lưu, sau đó chọn định dạng tệp mà bạn muốn lưu, ví dụ: bạn có thể chọn txt, csv, pdf, xlsx or xls định dạng tệp khi bạn cần.

(3.) Sau đó nhấp vào chẻ , trong hộp nhắc sau chỉ định một thư mục để xuất các tệp riêng biệt.

hộp thoại tách sổ làm việc bổ trợ excel 2 bổ trợ excel chọn vị trí

4. Sau đó nhấn vào OK và các trang tính đã chọn của bạn sẽ được chia nhỏ và lưu vào thư mục mong muốn với định dạng bạn cần.

tệp bổ trợ excel riêng biệt

Tải xuống miễn phí Kutools cho Excel ngay!

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và 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...

Mô tả


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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I had tried with a txt file where there were multiple tables with numbers saved with commas but the program did not recognize the comma as a decimal point. How can I fix this error?
This comment was minimized by the moderator on the site
What would I need to change in the code to make it not open them in a new workbook?
This comment was minimized by the moderator on the site
This code helped me exactly to solve my issue, thanks for the code.
This comment was minimized by the moderator on the site
thank you , multiple text files to different worksheets code worked!
This comment was minimized by the moderator on the site
Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
This comment was minimized by the moderator on the site
How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
This comment was minimized by the moderator on the site
Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
This comment was minimized by the moderator on the site
Is it possible to open Sequencially multiple txt files in a single sheet ?
This comment was minimized by the moderator on the site
The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
This comment was minimized by the moderator on the site
I used Following code But Space Didn't Delimit. Turned Tab:=True, Space:=True, but it didn't work. My Txt file format is- ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 Any Solution?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations