Giúp code kết hợp dữ liệu từ file txt vào exel (1 người xem)

[buonviem]

Chào mọi người!
Mình có một vấn đề thế này,Mình có một file .txt trong đó có chứa dữ liệu.nó có từng cột một...Mình muốn chuyển dữ liệu này vào file exel có mẫu sẵn cũng từng cột từng hàng vậy...Bạn nào có cách nào có thể giúp mình không...Làm sao để gán dữ liệu từ file TXT vào Exell được ạ.

 

[qdtoday]

Bạn xài font chữ gì?
Mà nhìn nó lộn xộn thế này thì import kiểu j, hic.
Dữ liệu phải có format chuẩn từ trên xuống dưới giống nhau mới được.

 

[befaint]

Bạn xài font chữ gì?
Mà nhìn nó lộn xộn thế này thì import kiểu j, hic.
Dữ liệu phải có format chuẩn từ trên xuống dưới giống nhau mới được.

- Không rõ là font chữ gì nhưng bảng mã TCVN3 (ABC). Dùng UniKey Toolkit đổi sang Unicode là được.
- Format chuẩn: Ở Notepad >> Format >> bỏ check dòng "Word Wrap" là thấy "chuẩn" ngay.

 

[qdtoday]

Uhm cậu, mà bên tay phải, nó vẫn nằm lung tung thế này. Cái dấu | nó cũng nằm búa xua.

 

[buonviem]

Uhm cậu, mà bên tay phải, nó vẫn nằm lung tung thế này. Cái dấu | nó cũng nằm búa xua.

Uả bạn ơi vào format rồi bỏ tích ở work map là hết mà bạn .Mình bỏ như bạn ở trên nó đúng hàng luôn bạn ơi.

 

[buonviem]

Của mình đây nè bạn...Ai có thể giúp mình với được không ạ

 

[quanluu]

Của mình đây nè bạn...Ai có thể giúp mình với được không ạ

Chuyển từ text sang excel mình nghĩ bạn nên làm tay, copy 1 cái là xong. Còn để cho giống file excel thì phải coi lại vì trong file text ko có số tờ bản đồ

 

[befaint]

Chào mọi người!
Mình có một vấn đề thế này,Mình có một file .txt trong đó có chứa dữ liệu.nó có từng cột một...Mình muốn chuyển dữ liệu này vào file exel có mẫu sẵn cũng từng cột từng hàng vậy...Bạn nào có cách nào có thể giúp mình không...Làm sao để gán dữ liệu từ file TXT vào Exell được ạ.

Bạn thử file đính kèm nhé. Click nút "ImportText" rồi chọn tới file text của bạn >> Open.

 

[phulien1902]

Chào mọi người!
Mình có một vấn đề thế này,Mình có một file .txt trong đó có chứa dữ liệu.nó có từng cột một...Mình muốn chuyển dữ liệu này vào file exel có mẫu sẵn cũng từng cột từng hàng vậy...Bạn nào có cách nào có thể giúp mình không...Làm sao để gán dữ liệu từ file TXT vào Exell được ạ.

Bạn thử với Code:

Sub ImportTextToExcel()
    Dim fso As Object, FilesToOpen, TextSource As Object, TotalLines, Res()
    Dim ItemsOfLine, TextItem, Des As Range, Delimiter
    Dim k As Long, x As Byte, Cols As Integer, LineNum As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Des = [A1]
    Delimiter = "|"
    FilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , , , True)
    If Not IsArray(FilesToOpen) Then Exit Sub
    For x = LBound(FilesToOpen) To UBound(FilesToOpen)
        k = 0
        Set TextSource = fso.OpenTextFile(FilesToOpen(x), 1, , -2)
        TotalLines = Split(TextSource.ReadAll, vbCrLf)
        ReDim Res(1 To 1 + UBound(TotalLines), 1 To 1)
        For LineNum = LBound(TotalLines) To UBound(TotalLines)
            ItemsOfLine = TotalLines(LineNum)
            TextItem = Split(ItemsOfLine, Delimiter)
            If UBound(Res, 2) < UBound(TextItem) + 1 Then
                ReDim Preserve Res(1 To 1 + UBound(TotalLines), 1 To UBound(TextItem) + 1)
            End If
            If ItemsOfLine <> String(Len(ItemsOfLine), vbTab) Then
                k = k + 1
                For Cols = LBound(TextItem) To UBound(TextItem)
                    Res(k, Cols + 1) = TextItem(Cols)
                Next
            End If
        Next
        Des.Resize(k, UBound(Res, 2)) = Res
        Set Des = Des.Offset(k)
    Next
    Rows("1:1").EntireRow.Delete
    Rows("2:2").EntireRow.Delete
End Sub

 

[buonviem]

Chuyển từ text sang excel mình nghĩ bạn nên làm tay, copy 1 cái là xong. Còn để cho giống file excel thì phải coi lại vì trong file text ko có số tờ bản đồ

Cảm ơn bạn !
Vì mỗi file txt là 1 tờ bản đồ ví dụ "dc4" tờ txt mình xuất lên đó là đc gọi tờ số 4 đấy bạn.Nếu bạn có cách nào làm giúp mình với.Hoặc có thể k cần số tờ cũng đc.Bạn có thể giúp mình được không ạ

 

[buonviem]

Bạn thử file đính kèm nhé. Click nút "ImportText" rồi chọn tới file text của bạn >> Open.

Cảm ơn bạn mình thử nhưng nó lỗi như thế này là sao bạn

 

[buonviem]

Bạn thử file đính kèm nhé. Click nút "ImportText" rồi chọn tới file text của bạn >> Open.

Cảm ơn bạn mình thử nhưng nó lỗi như thế này là sao bạn

 

[buonviem]

Bạn thử với Code:

Sub ImportTextToExcel()
    Dim fso As Object, FilesToOpen, TextSource As Object, TotalLines, Res()
    Dim ItemsOfLine, TextItem, Des As Range, Delimiter
    Dim k As Long, x As Byte, Cols As Integer, LineNum As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Des = [A1]
    Delimiter = "|"
    FilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , , , True)
    If Not IsArray(FilesToOpen) Then Exit Sub
    For x = LBound(FilesToOpen) To UBound(FilesToOpen)
        k = 0
        Set TextSource = fso.OpenTextFile(FilesToOpen(x), 1, , -2)
        TotalLines = Split(TextSource.ReadAll, vbCrLf)
        ReDim Res(1 To 1 + UBound(TotalLines), 1 To 1)
        For LineNum = LBound(TotalLines) To UBound(TotalLines)
            ItemsOfLine = TotalLines(LineNum)
            TextItem = Split(ItemsOfLine, Delimiter)
            If UBound(Res, 2) < UBound(TextItem) + 1 Then
                ReDim Preserve Res(1 To 1 + UBound(TotalLines), 1 To UBound(TextItem) + 1)
            End If
            If ItemsOfLine <> String(Len(ItemsOfLine), vbTab) Then
                k = k + 1
                For Cols = LBound(TextItem) To UBound(TextItem)
                    Res(k, Cols + 1) = TextItem(Cols)
                Next
            End If
        Next
        Des.Resize(k, UBound(Res, 2)) = Res
        Set Des = Des.Offset(k)
    Next
    Rows("1:1").EntireRow.Delete
    Rows("2:2").EntireRow.Delete
End Sub

code này bỏ vào đâu vậy bạn mình không biết về lập trình lắm ạ .
À được rồi bạn ơi.Mình bỏ vào macrros nhưng khi mở file txt lên nó ra y nội dung như trong file txt chứ k phải ra như nội dung "các cột" của file exel mình gửi kèm theo đó ạ

 

[phulien1902]

Cảm ơn bạn mình thử nhưng nó lỗi như thế này là sao bạn

Bạn đã Enable Macro trước khi chạy Code?
Tôi đã xem Code của befaint rồi, việc cập nhật dữ liệu và xử lý dòng thừa hay khoảng trắng thừa tốt đấy bạn buomviem à.

 

[quanluu]

Cảm ơn bạn !
Vì mỗi file txt là 1 tờ bản đồ ví dụ "dc4" tờ txt mình xuất lên đó là đc gọi tờ số 4 đấy bạn.Nếu bạn có cách nào làm giúp mình với.Hoặc có thể k cần số tờ cũng đc.Bạn có thể giúp mình được không ạ

làm tay với text vào excel là bạn chỉ copy paste vào excel sau đó dùng Text to Column để tách ra các cột, đồng thời chền thêm 1 cột cho tờ bản đồ. Còn sao cho khớp với file excel thì mình thấy chỉ lấy đc vài cột đầu thui chứ lấy làm sao hết được. Bạn nên nêu cột số bao nhiêu trong text sẽ là cột nào trong excel thì mng sẽ dễ làm và đỡ phải so sanh hơn.

 

[buonviem]

Bạn đã Enable Macro trước khi chạy Code?
Tôi đã xem Code của befaint rồi, việc cập nhật dữ liệu và xử lý dòng thừa hay khoảng trắng thừa tốt đấy bạn buomviem à.

Mình không biết ạ! Bạn có thể chỉ giúp mình với được không mình mù khoản này lắm

 

[buonviem]

làm tay với text vào excel là bạn chỉ copy paste vào excel sau đó dùng Text to Column để tách ra các cột, đồng thời chền thêm 1 cột cho tờ bản đồ. Còn sao cho khớp với file excel thì mình thấy chỉ lấy đc vài cột đầu thui chứ lấy làm sao hết được. Bạn nên nêu cột số bao nhiêu trong text sẽ là cột nào trong excel thì mng sẽ dễ làm và đỡ phải so sanh hơn.

Vậy mất thời gian nên mình mới tìm cách khác có thể nhanh hơn.Nếu file txt khó quá,mình có thể thay thế nó bằng file Exel và gán vào exel vậy dễ hơn không bạn.Để mình gửi 2 file exel 1 file dữ liệu và 1 file mẫu...Bạn có lệnh nào có thể gán nó vào cho nhanh k...Vì mình có rất nhiều file muốn gán 1 lần vào như vậy cho nhanh đó bạn

 

[phulien1902]

Mình không biết ạ! Bạn có thể chỉ giúp mình với được không mình mù khoản này lắm

Bạn đọc bài viết này nhé:
http://www.giaiphapexcel.com/forum/...ẫn-Enable-Macros-trong-Excel-(2003-2007-2010)

 

[befaint]

Mình không biết ạ! Bạn có thể chỉ giúp mình với được không mình mù khoản này lắm

Enable macro lên.......

 

[buonviem]

Bạn đọc bài viết này nhé:
http://www.giaiphapexcel.com/forum/...ẫn-Enable-Macros-trong-Excel-(2003-2007-2010)

Mình làm được rồi bạn ạ.Nhưng sao khi xuất ra nó lại không ra theo đúng mẫu exel mình dính kém vậy...Cái này có làm được không bạn