Lấy dữ liệu theo tên file text vào Excel

[THANHTRUNGT]

Thân chào các bạn!
Nhờ các bạn giúp lấy dữ liệu từ file text theo hai loại file sau:
+ File1 lấy tên file text vào các cột b,c,d,e phân biệt bởi các dấu "_"
Trong file text nhờ các bạn lọc giúp cột "NO" vào cột f và "STATE" vào các cột g,h,i Và cột "DESCRIPTION" vào cột j.
+ File2 lấy tên file text vào các cột b,c,d,e phân biệt bởi các dấu "_"
Trong file text nhờ các bạn lọc giúp cột "Slot/Port" vào cột f và "Admin Status" lần 1 vào các cột g, lần 2 vào cột h, lần 3 vào cột i
Cột "Alias" thì đặt vào cột j với ạ.

Trân trọng cảm ơn,

 

[THANHTRUNGT]

Nhờ các bạn quan tâm giúp đỡ mình bài này với ạ. Xin cảm ơn.

 

[THANHTRUNGT]

Không biết mình có post nhầm chủ đề không mà không ai giúp cả. Có bạn nào chỉ cho mình cách sửa được không ạ?

 

[batman1]

Trong mỗi thư mục bạn có số lượng tập tin LOG "khủng" thế nào? Chục nghìn, trăm nghìn, triệu?

Tôi không dự một cuộc thi nào về tốc độ. Không viết phần mềm kiếm cơm. Vậy tôi chả nhọc công làm gì. Thôi cứ cách "cần cù", đi "bền bỉ" rồi tới đích. Chả tối ưu, chả tìm kiếm giải thuật tăng tốc gì cả. Tôi giúp bạn vì thấy không ai giúp. Chỉ thế thôi. Nếu bạn đếm từng ms thì đợi người làm công việc lập trình kiếm cơm nhé.

Bạn không mô tả dữ liệu nên tôi tự cho là cấu trúc phải "là thế".

Nếu đổi tên sheet thì cũng đổi trong code.

 

[THANHTRUNGT]

Trong mỗi thư mục bạn có số lượng tập tin LOG "khủng" thế nào? Chục nghìn, trăm nghìn, triệu?

Tôi không dự một cuộc thi nào về tốc độ. Không viết phần mềm kiếm cơm. Vậy tôi chả nhọc công làm gì. Thôi cứ cách "cần cù", đi "bền bỉ" rồi tới đích. Chả tối ưu, chả tìm kiếm giải thuật tăng tốc gì cả. Tôi giúp bạn vì thấy không ai giúp. Chỉ thế thôi. Nếu bạn đếm từng ms thì đợi người làm công việc lập trình kiếm cơm nhé.

Bạn không mô tả dữ liệu nên tôi tự cho là cấu trúc phải "là thế".

Nếu đổi tên sheet thì cũng đổi trong code.

Dạ em cảm ơn anh đã trợ giúp ạ.

 

[THANHTRUNGT]

Cảm ơn anh batman1 đã giúp em bài toán này ạ. Anh cho em hỏi là mình cứ phải đặt chung Folder cả file text và file excel với nhau code mới chạy phải không ạ? Có một vấn đề là file excel em muốn đặt ngoài desktop và duyệt đến folder có file text. Nhờ anh sửa giúp em với ạ.
Trân trọng cảm ơn anh,

 

[batman1]

Có một vấn đề là file excel em muốn đặt ngoài desktop và duyệt đến folder có file text.

Trong mỗi tập tin Book1.xlsm và Book2.xlsm thực hiện các thay đổi sau:

1. Ngay trên đầu sub import_data thêm

Dim fd As FileDialog

2. Thay dòng

Set files = fso.GetFolder(ThisWorkbook.Path).files

bằng cụm dòng

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
    If .Show = -1 Then
        Set files = fso.GetFolder(.SelectedItems(1)).files
    Else
        Exit Sub
    End If
End With

 

[THANHTRUNGT]

Dạ em đã sửa được theo hướng dẫn của anh rồi ạ. Trân trọng cảm ơn anh đã giúp đỡ ạ.