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
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:
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.
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.
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ả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
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...
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!