Lọc dữ liệu từ file txt (1 người xem)

[huytrungyb]

Mình có file text dạng
Ngày , SDT , Đầu số, Ma1 Ma2 Ma3
20121022004135,1676894378,8177,MBS BH DK
20121022004136,1688788226,8640,IWIN20 NAP
20121022004137,1645385826,8069,PAIF QUC/W
20121022004137,1655582709,8740,IWIN NAP L
20121022004139,1629161096,8036,SXTIENGIAN
20121022004139,976281087,8733,TEAM NAP D
20121022004156,1662307639,8740,NAP WIN SU

Mình muốn lập một file Excel lọc ra thành các cột
Ngày , SDT, Đầu số, ma1, ma2, ma3

Mọi người giúp mình được không ?
Cảm ơn nhiều !

 

[khunglongcodon]

bạn dùng thử chức năng text to column chưa
hay lắm đó

 

[huytrungyb]

bạn dùng thử chức năng text to column chưa
hay lắm đó

Chi tiết như nào ạ, bạn có thể hướng dẫn cụ thể hơn được không.
Thông bảo mình newbie nên hơi gà

 

[vanle33]

Mình có file text dạng
Ngày , SDT , Đầu số, Ma1 Ma2 Ma3
20121022004135,1676894378,8177,MBS BH DK
20121022004136,1688788226,8640,IWIN20 NAP
20121022004137,1645385826,8069,PAIF QUC/W
20121022004137,1655582709,8740,IWIN NAP L
20121022004139,1629161096,8036,SXTIENGIAN
20121022004139,976281087,8733,TEAM NAP D
20121022004156,1662307639,8740,NAP WIN SU

Mình muốn lập một file Excel lọc ra thành các cột
Ngày , SDT, Đầu số, ma1, ma2, ma3

Mọi người giúp mình được không ?
Cảm ơn nhiều !

Bạn Copy toàn bộ sang Excel đặt dữ liệu từ A1đến A25
Chọn A1:A25 nhấn Data/Text to Column/Next tại mục Delimiters chọn Other là dấu ,
Chọn Next/Finish
Tiếp tục chọn vùng D125 nhấn Data/Text to column/ Next tích chọn Space chọn Next/Finish
OK

 

[tuainhan]

Bạn xem file mình đã chuyển:

 

[Hai Lúa Miền Tây]

Mình có file text dạng
Ngày , SDT , Đầu số, Ma1 Ma2 Ma3
20121022004135,1676894378,8177,MBS BH DK
20121022004136,1688788226,8640,IWIN20 NAP
20121022004137,1645385826,8069,PAIF QUC/W
20121022004137,1655582709,8740,IWIN NAP L
20121022004139,1629161096,8036,SXTIENGIAN
20121022004139,976281087,8733,TEAM NAP D
20121022004156,1662307639,8740,NAP WIN SU

Mình muốn lập một file Excel lọc ra thành các cột
Ngày , SDT, Đầu số, ma1, ma2, ma3

Mọi người giúp mình được không ?
Cảm ơn nhiều !

Ta có thể dùng ADO để kết nối và truy vấn đến file text, bạn sử dụng code sau thử nhé (Ví dụ file 1-1.text của bạn nằm chung với folder file excel truy vấn)

Sub LayDL_HLMT()
Dim cnn, rst As Object
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
    cnn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" _
    & ThisWorkbook.path & "\" & ";Extensions=asc,csv,tab,txt;HDR=NO;Persist Security Info=False"
    
    rst.Open "Select * From [1-1.txt]", cnn, 1, 3
    With Sheet1
        .[A2:D65000].ClearContents
        .[A2].CopyFromRecordset rst
    End With
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing

End Sub

Bạn lưu ý:
- Thiết lập môi trường làm việc cho Macro

• Excel 2007 :http://www.giaiphapexcel.com/forum/s...-%C4%91%C3%A2u
  
• Excel 2003: Mở file excel lên -> Tools -> Macro -> Security -> Chọn mức low, đóng hết các file Excel.

- Giải nén file rồi vào folder đã giải nén, mở file Excel và click nút "Lấy Dữ Liệu"
- Các cột cách nhau là dấu phẩy, cột mã số cần phải xử lý lại.

 

[sealand]

Mình tham gia cách đơn giản thôi, sử dụng Code sau:

Sub GetData()
Dim NFile As String, Id As Integer, Tm
Id = Workbooks.Count
NFile = ThisWorkbook.Path & "\" & "Data.txt"
Application.ScreenUpdating = False
Sheet2.Cells.ClearContents
Workbooks.OpenText Filename:=NFile, comma:=True
Tm = Workbooks(Id + 1).Sheets(1).UsedRange
Workbooks(Id + 1).Close
Sheet2.[A1].Resize(UBound(Tm, 1), UBound(Tm, 2)) = Tm
Application.ScreenUpdating = True
End Sub

Chú ý:

• Để tiện hướng dẫn mình sử lý file Text và file Excel cùng thư mục, bạn có thể dùng Code để chọn file *.Txt tuỳ ý.
• Mình mới trích ra thôi bạn hoàn thiện nốt phần sử lý định dạng dữ liệu
• Những file dạng này phải tải về và giải nén ra ổ đĩa, nếu không bị lỗi không tìm thấy file
• Bạn nên sửa tiêu đề Topic thành Trích dữ liệu thay vì Lọc dữ liệu (Ta có lọc cái gì đâu)

 

[sealand]

Ban dùng file này để tách riêng cả mã