Insert dữ liệu từ file TXT vào Excel (1 người xem)

[roadno1]

Em có 1 file TXT có 17 column nhưng em chỉ lấy 5 colum trong file này để insert vào file excel của mình. Nhưng em không biết phải viết macro như thế nào để Insert dữ liệu vào file excel. Công việc của em cần phải Isert nhiều file TXT nên rất mong mọi người giúp đỡ
Em có làm 1 file giả định bên dưới (trong đó có nội dung nhờ mọi người giúp đỡ)
Cảm ơn mọi người

 

[Quang_Hải]

Em có 1 file TXT có 17 column nhưng em chỉ lấy 5 colum trong file này để insert vào file excel của mình. Nhưng em không biết phải viết macro như thế nào để Insert dữ liệu vào file excel. Công việc của em cần phải Isert nhiều file TXT nên rất mong mọi người giúp đỡ
Em có làm 1 file giả định bên dưới (trong đó có nội dung nhờ mọi người giúp đỡ)
Cảm ơn mọi người

Vào đây nghiên cứu cách làm. Phải tự vận động mới mau biết. Dạng bài này không khó đâu
http://www.giaiphapexcel.com/forum/showthread.php?95898-Tổng-quan-về-FileSystemObject

 

[TrungChinhs]

Em có 1 file TXT có 17 column nhưng em chỉ lấy 5 colum trong file này để insert vào file excel của mình. Nhưng em không biết phải viết macro như thế nào để Insert dữ liệu vào file excel. Công việc của em cần phải Isert nhiều file TXT nên rất mong mọi người giúp đỡ
Em có làm 1 file giả định bên dưới (trong đó có nội dung nhờ mọi người giúp đỡ)
Cảm ơn mọi người

Việc chơi thẳng từ file txt vào file excel như bạn yêu cầu thì tôi chịu.

Do trình độ VBA còn hạn chế nên khi muốn nhdữ liệu từ file txt sang file excel tôi thường làm như sau:
1. Chuyển mỗi file txt sang 1 sheet mới (Sheet phụ). Ví dụ: file nguon.txt nằm trong thư mục BAI TAP của ổ D thì code như sau

Sub ImportFileTxt()
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add("TEXT;D:\BAI TAP\File Nguon.txt", [a1])
        .Name = "File Nguon"
        .Refresh
    End With
End Sub

2. Tại Sheet phụ rút bỏ một số cột cho phù hợp với yêu cầu
3. Copy dữ liệu từ Sheet phụ nối vào Sheet chính.

Với nhiều file txt thì đương nhiên phải dùng vòng lặp để xuất, nhập, ghép nối. Tôi nghĩ bạn đã biết cách làm.

 

[Quang_Hải]

Việc chơi thẳng từ file txt vào file excel như bạn yêu cầu thì tôi chịu.

Do trình độ VBA còn hạn chế nên khi muốn nhdữ liệu từ file txt sang file excel tôi thường làm như sau:
1. Chuyển mỗi file txt sang 1 sheet mới (Sheet phụ). Ví dụ: file nguon.txt nằm trong thư mục BAI TAP của ổ D thì code như sau

Sub ImportFileTxt()
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add("TEXT;D:\BAI TAP\File Nguon.txt", [a1])
        .Name = "File Nguon"
        .Refresh
    End With
End Sub

2. Tại Sheet phụ rút bỏ một số cột cho phù hợp với yêu cầu
3. Copy dữ liệu từ Sheet phụ nối vào Sheet chính.

Với nhiều file txt thì đương nhiên phải dùng vòng lặp để xuất, nhập, ghép nối. Tôi nghĩ bạn đã biết cách làm.

Đâu có phức tạp đâu anh. Thử vài lần thì thấy đơn giản lắm
Nếu dữ liệu mà không chuẩn thì cứ cho cái dòng On Error ... nữa là phang tới thôi

 

[roadno1]

Dear Anh Quanghai1969!
Code trong file book1.xls anh Quanghai1969 làm cần chỉnh sửa hay thêm những gì để khi import file TXT xong thì các cell trong row mới import đều được kẽ All borders và chiều cao đều là 45 hết
Anh giúp em vấn đề trên với nha. Thank anh nhiều

Đâu có phức tạp đâu anh. Thử vài lần thì thấy đơn giản lắm
Nếu dữ liệu mà không chuẩn thì cứ cho cái dòng On Error ... nữa là phang tới thôi

 

[Quang_Hải]

Dear Anh Quanghai1969!
Code trong file book1.xls anh Quanghai1969 làm cần chỉnh sửa hay thêm những gì để khi import file TXT xong thì các cell trong row mới import đều được kẽ All borders và chiều cao đều là 45 hết
Anh giúp em vấn đề trên với nha. Thank anh nhiều

Gần 1/2 năm mới quay lại?
Hãy record macro cho cái vụ định dạng này. Cũng không khó lắm đâu. Cũng nên vọc cho biết.

 

[roadno1]

Dear Anh!
record macro như vậy se mất thêm 1 lần chạy macro nữa
Mình không add sữa được trên code đã viết hả anh
Mong anh giúp đỡ