Tách file thành từng sheet (1 người xem)

[huonglien1901]

Chào mọi người!

Hiện tại em có file này nhờ mọi người tạo cho em nút Tách File, Ví dụ khi bấm nút Tách file thì dữ liệu trên file đó chuyển sang sheet mới và có thể thay đổi tên tùy theo người sử dụng.

Em cảm ơn mọi người nhiều!

 

[huonglien1901]

Để lấy dữ liệu tất cả các File Txt vào 1 sheet bạn thử dùng code này:

Sub NhieuFiletxt()
Dim ChonDong As Long          
'Chon duong dan     
Const strPath As String = "D:\theo doi hang hoa\"     
Dim LoaiFile As String          
   'Dung cap nhat màn hinh     
   Application.ScreenUpdating = False     
   ChDir strPath     
   'Chon loai File     
   LoaiFile = Dir(strPath & "*.txt")          
   Do While LoaiFile <> ""     
   'Gán du lieu vào Cell bat dau     
   ChonDong = Range("A65536").End(xlUp).Offset(1, 0).row                  
      With ActiveSheet.QueryTables.Add(Connection:= _           
            "TEXT;" & strPath & LoaiFile, Destination:=Range("$A$" & ChonDong))            
   .Refresh BackgroundQuery:=False            
End With        
LoaiFile = Dir    
Loop          
Application.ScreenUpdating = True    
'Call ChiaCot
End Sub

Insert 1 sheet mới rồi sang sheet mới chạy code để thử, việc còn lại là dùng Text to Columns để tách dữ liệu ra từng cột, còn làm cái gì nữa thì chờ thành viên khác giúp.

Lưu ý: Folder có tên theo doi hang hoa để trong ổ D.

Em có thể nhờ anh tạo giúp một nút gắn macro XÓA DỮ LIỆU trong sheet TÊN đó anh.

Em cảm ơn Anh nhiều, Mà không biết Nút THANK ở đâu để em cảm ơn Anh đã hỗ trợ giúp em.

 

[huonglien1901]

Bạn có thử dùng Text to Columns để tách dữ liệu ra từng cột chưa, nếu có thì phát hiện ra điều gì không?

Em dùng TEXT TO COLUMNS nó ra thế này em ơi.

 

[be_09]

............nó ra thế này em ơi.

Cám ơn em đã giúp tôi trẻ lại được mấy chục tuổi, trong bài 21 tôi nêu vầy:

nếu có thì phát hiện ra điều gì không?

Theo quy ước của Excel, trong 1 Cell được phép chứa 15 chữ số, nếu quá 15 chữ số thì nó sẽ thể hiện là 8.85226E+12, nhưng đối với File Txt không biết tại sao khi lấy dữ liệu vào thì trong 1 Cell mới chứa có 13 chữ số lại bị như vậy tôi mới lấy làm lạ (tôi Format thử thì nó thông báo là chứa nhiều Few, dùng hàm cũng chẳng được), chắc chờ các thành viên khác ý kiến xem sao.

 

[be_09]

Tôi đã xử lý xong cái vụ này 8.85226E+12, chỉ đơn giản là dùng hàm TRIM là xong.

File hoàn chỉnh lấy dữ liệu và tách cột luôn (tại sheet LAY_DULIEU), việc còn lạị của bạn sử dụng dữ liệu đó vào sheet nào mà thôi.

Lưu ý: Trong thủ tục:

Sub NhieuFiletxt()
..........................
..........................

Bạn thay dòng này (vì tôi thử File ngoài Desktop).

[COLOR=#417394][B]trFolder = "C:\Users\admin\Desktop\theo doi hang hoa\"[/B][/COLOR]

Nếu Folder theo doi hang hoa nằm trong ổ D, bạn thay thế dòng trên thành dòng này.

[COLOR=#417394][B]trFolder = "D:\theo doi hang hoa\"[/B][/COLOR]

Khi nhấn nút thì nó ghi đè lên dữ liệu cũ, nên bạn cứ yên tâm mà thêm File Txt vào.

 

[huonglien1901]

Tôi đã xử lý xong cái vụ này 8.85226E+12, chỉ đơn giản là dùng hàm TRIM là xong.

File hoàn chỉnh lấy dữ liệu và tách cột luôn (tại sheet LAY_DULIEU), việc còn lạị của bạn sử dụng dữ liệu đó vào sheet nào mà thôi.

Lưu ý: Trong thủ tục:

Sub NhieuFiletxt()
..........................
..........................

Bạn thay dòng này (vì tôi thử File ngoài Desktop).

[COLOR=#417394][B]trFolder = "C:\Users\admin\Desktop\theo doi hang hoa\"[/B][/COLOR]

Nếu Folder theo doi hang hoa nằm trong ổ D, bạn thay thế dòng trên thành dòng này.

[COLOR=#417394][B]trFolder = "D:\theo doi hang hoa\"[/B][/COLOR]

Khi nhấn nút thì nó ghi đè lên dữ liệu cũ, nên bạn cứ yên tâm mà thêm File Txt vào.

Dạ, Anh ơi em muốn xuất file txt qua excel giống như sheet TÊN đó anh

 

[TRAQUANGDC]

hình như ý bạn là tạo 1 sheeth mới có dữ liệu và định dạng giống như sheeth cũ.
để chuột tại sheeth "ten" kích phải, kích vào "Move or copy..." . tích vào "Create a copy" và bạn kích đúp vào sheet mới tạo để đổi tên.

 

[huonglien1901]

hình như ý bạn là tạo 1 sheeth mới có dữ liệu và định dạng giống như sheeth cũ.
để chuột tại sheeth "ten" kích phải, kích vào "Move or copy..." . tích vào "Create a copy" và bạn kích đúp vào sheet mới tạo để đổi tên.

Ý mình là dữ liệu từ file txt qua excel giống như sheet TÊN đó bạn! từ sheet TEN rồi thực hiện COPY, SUA sau đó bạn!
Ý là thế này:
Trong file TXT này em có vấn đề cần giúp:
Em chỉ muốn lấy dữ liệu từ dòng thứ 2.
Số 12: sẽ đưa vào cột Zone
Số 1: sẽ đưa vào cột ALLEY
Dòng thứ 3 sẽ lấy cột thứ 2 và cột thứ 3.
ARTICLE,8852263163839,1
8852263163839 sẽ đưa vào cột TILLCODE.
Số 1: sẽ đưa vào cột QUANLITY
Và khi thêm file text số thứ tự sẽ sắp xếp tăng dần đều. 1,2,3,4.....
khi thêm File text thứ 2 thì số thứ tự sẽ bắt đầu từ 1.

 

[huonglien1901]

Dạ, Anh ơi em muốn xuất file txt qua excel giống như sheet TÊN đó anh

Dạ Em cảm ơn Anh Be9 nhiều nhé!