Làm cách nào để nhập nhiều tệp văn bản từ một thư mục vào một trang tính?
Đối với các trường hợp, ở đây bạn có một thư mục có nhiều tệp văn bản, những gì bạn muốn làm là nhập các tệp văn bản này vào một trang tính duy nhất như hình minh họa bên dưới. Thay vì sao chép lần lượt từng tệp văn bản, có thủ thuật nào để nhập nhanh tệp văn bản từ một thư mục vào một trang tính 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 duy nhất với VBA
Nhập tệp văn bản vào ô hiện hoạt với Kutools cho Excel
Nhập nhiều tệp văn bản từ một thư mục vào một trang tính duy nhất với VBA
Đây là một 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 trang tính mới.
1. Bật sổ làm việc bạn muốn nhập tệp văn bản và nhấn Alt + F11 phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đun, sao chép và dán mã VBA bên dưới vào Mô-đun cửa sổ.
VBA: Nhập nhiều tệp văn bản từ một thư mục vào một trang tính
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ị một hộp thoại và chọn một 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:
4. nhấp chuột OK. Sau đó, các tệp văn bản đã được nhập vào sổ làm việc hiện hoạt dưới dạng trang tính mới một cách riêng biệt.
Nhập tệp văn bản vào ô hiện hoạt với Kutools cho Excel
Nếu bạn muốn nhập một tệp văn bản vào một ô hoặc dải ô cụ thể, bạn có thể áp dụng Kutools cho Excel'S Chèn tệp tại con trỏ tiện ích.
Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. | ||
Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:
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 khẩu xuất khẩu > Chèn tệp tại con trỏ. Xem ảnh chụp màn hình:
2. Sau đó, một hộp thoại bật ra, nhấp vào Xem để hiển thị Chọn một tập tin để được chèn vào hộp thoại vị trí con trỏ ô, hãy chọn tiếp theo 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:
3. nhấp chuột Mở > Okvà tệp văn bản chỉ định đã được chèn vào vị trí con trỏ, xem ảnh chụp màn hình:
Nhập / Chèn tệp văn bản tại con trỏ
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!