Nhờ viết code xuất dữ liệu ra file .txt

soap1234 · 20/4/22

Nhờ anh chị tạo em macro xuất dữ liệu ra file txt em với
em xin chân thành cảm ơn ạ

BuiQuangThuan · 20/4/22

Topic kia cũng cùng nội dung à bạn

Maika8008 · 21/4/22

soap1234 đã viết:
Nhờ anh chị tạo em macro xuất dữ liệu ra file txt em với
em xin chân thành cảm ơn ạ

Ở chủ đề bên kia tôi nhắc bạn chuyển mã về Unicode rồi tính tiếp. Bạn không nói không rằng gì cả, đi mở chủ đề khác. Trước đó bạn có 2 chủ đề như vậy nữa, có người nhắc về chính tả, bạn cũng im và không sửa.

Bạn có biết làm như vậy là phạm quy, thiếu tôn trọng người khác không?

snow25 · 21/4/22

soap1234 đã viết:
Nhờ anh chị tạo em macro xuất dữ liệu ra file txt em với
em xin chân thành cảm ơn ạ

Thử code.

Mã:

Sub tach()
    Dim i As Long, lr As Long, arr, fso As Object, Filename As String, MyFile As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Filename = ThisWorkbook.Path & "\file.txt"
    Set MyFile = fso.CreateTextFile(Filename, True, True)
    With Sheets("sheet1")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:B" & lr).Value
         For i = 1 To UBound(arr)
             MyFile.WriteLine arr(i, 1) & " " & arr(i, 2)
         Next i
    End With
         MyFile.close
    Set MyFile = Nothing
    Set fso = Nothing
End Sub

soap1234 · 21/4/22

Dạ có gì các anh thông cảm cho em chứ em cũng lần đầu đăng bài. em có sửa Unicode rồi anh ạ nhưng không biết sao file TXT khi lưu Unicode nó vẫn lỗi anh à

lilknighthood · 21/4/22

soap1234 đã viết:
Dạ có gì các anh thông cảm cho em chứ em cũng lần đầu đăng bài. em có sửa Unicode rồi anh ạ nhưng không biết sao file TXT khi lưu Unicode nó vẫn lỗi anh à

chuyển sang UTF-8 khi lưu file .txt xem còn lỗi k b

befaint · 21/4/22

lilknighthood đã viết:
còn lỗi k b

Chuyển UTF-8 thì còn lỗi ca bờ.

soap1234 · 22/4/22

snow25 đã viết:

Thử code.

Mã:

Sub tach()
    Dim i As Long, lr As Long, arr, fso As Object, Filename As String, MyFile As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Filename = ThisWorkbook.Path & "\file.txt"
    Set MyFile = fso.CreateTextFile(Filename, True, True)
    With Sheets("sheet1")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:B" & lr).Value
         For i = 1 To UBound(arr)
             MyFile.WriteLine arr(i, 1) & " " & arr(i, 2)
         Next i
    End With
         MyFile.close
    Set MyFile = Nothing
    Set fso = Nothing
End Sub

snow25 đã viết:

Thử code.

Mã:

Sub tach()
    Dim i As Long, lr As Long, arr, fso As Object, Filename As String, MyFile As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Filename = ThisWorkbook.Path & "\file.txt"
    Set MyFile = fso.CreateTextFile(Filename, True, True)
    With Sheets("sheet1")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:B" & lr).Value
         For i = 1 To UBound(arr)
             MyFile.WriteLine arr(i, 1) & " " & arr(i, 2)
         Next i
    End With
         MyFile.close
    Set MyFile = Nothing
    Set fso = Nothing
End Sub

EM MUỐM XUẤT FILE CẤU TRÚC ..TXTX NHƯ HÌNH VÀ ĐẶT TÊN FILE THEO HỌ TÊN ĐƯỢC KHÔNG ANH

Maika8008 · 22/4/22

soap1234 đã viết:
EM MUỐM XUẤT FILE CẤU TRÚC ..TXTX NHƯ HÌNH VÀ ĐẶT TÊN FILE THEO HỌ TÊN ĐƯỢC KHÔNG ANH

Bạn tạo 1 file text trắng có tên là Mau.txt ở cùng đường dẫn với file chứa code rồi bấm nút chạy code

snow25 · 22/4/22

soap1234 đã viết:
EM MUỐM XUẤT FILE CẤU TRÚC ..TXTX NHƯ HÌNH VÀ ĐẶT TÊN FILE THEO HỌ TÊN ĐƯỢC KHÔNG ANH

Thử code.

Mã:

Sub tach()
    Dim i As Long, lr As Long, arr, fso As Object, Filename As String, MyFile As Object, j As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    With Sheets("slieu")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:T" & lr).Value
         For i = 2 To UBound(arr)
             Filename = ThisWorkbook.Path & "\" & arr(i, 17) & ".txt"
             Set MyFile = fso.CreateTextFile(Filename, True, True)
             For j = 1 To UBound(arr, 2)
                 MyFile.WriteLine arr(1, j) & Space(18 - Len(arr(1, j))) & Application.Trim(arr(i, j))
             Next j
               MyFile.Close
         Next i
    End With
  
    Set MyFile = Nothing
    Set fso = Nothing
End Sub

soap1234 · 23/4/22

snow25 đã viết:

Thử code.

Mã:

Sub tach()
    Dim i As Long, lr As Long, arr, fso As Object, Filename As String, MyFile As Object, j As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    With Sheets("slieu")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:T" & lr).Value
         For i = 2 To UBound(arr)
             Filename = ThisWorkbook.Path & "\" & arr(i, 17) & ".txt"
             Set MyFile = fso.CreateTextFile(Filename, True, True)
             For j = 1 To UBound(arr, 2)
                 MyFile.WriteLine arr(1, j) & Space(18 - Len(arr(1, j))) & Application.Trim(arr(i, j))
             Next j
               MyFile.Close
         Next i
    End With
 
    Set MyFile = Nothing
    Set fso = Nothing
End Sub

snow25 · 23/4/22

soap1234 đã viết:
Em xin chân thành cảm ơn anh và diễn đàn đặc biệt hai anh là Maika8008, smow25 đã guip em. em muốn nhờ các anh và diễn đàn chỉnh sửa em code để lưu được nhiều file .TXT theo họ tên

Thử code.

Mã:

Sub tach()
    Dim i As Long, lr As Long, arr, fso As Object, Filename As String, MyFile As Object, j As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    With Sheets("GCNTT17")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:AC" & lr).Value
         For i = 2 To UBound(arr)
             Filename = ThisWorkbook.Path & "\KQ\" & arr(i, 16) & ".txt"
             Set MyFile = fso.CreateTextFile(Filename, True, True)
             For j = 1 To UBound(arr, 2)
                 MyFile.WriteLine arr(1, j) & Space(18 - Len(arr(1, j))) & Application.Trim(arr(i, j))
             Next j
               MyFile.Close
         Next i
    End With
 
    Set MyFile = Nothing
    Set fso = Nothing
End Sub

Maika8008 · 23/4/22

soap1234 đã viết:
Em xin chân thành cảm ơn anh và diễn đàn đặc biệt hai anh là Maika8008, smow25 đã guip em. em muốn nhờ các anh và diễn đàn chỉnh sửa em code để lưu được nhiều file .TXT theo họ tên

Code đã lưu mỗi dòng mỗi file rồi mà bạn!

Maika8008 · 23/4/22

soap1234 đã viết:
Em xin chân thành cảm ơn anh và diễn đàn đặc biệt hai anh là Maika8008, smow25 đã guip em. em muốn nhờ các anh và diễn đàn chỉnh sửa em code để lưu được nhiều file .TXT theo họ tên

@soap1234 : File cho bạn, không cần dùng file Mau.txt như bài #9 nữa. Code bài 9 vẫn đã xuất được 2 file cho 2 dòng dữ liệu rồi ấy chứ.

@snow25 : bài #12 bạn lấy arr(i, 16) & ".txt" làm tên mà arr(i, 16) cả 2 dòng đều là Tỉnh Nghệ An nên kết quả xuất ra chỉ có 1 file thôi. (xin lỗi: tôi nhầm với dữ liệu cũ)

snow25 · 23/4/22

Maika8008 đã viết:
@snow25 : bài #12 bạn lấy arr(i, 16) & ".txt" làm tên mà arr(i, 16) cả 2 dòng đều là Tỉnh Nghệ An nên kết quả xuất ra chỉ có 1 file thôi. (xin lỗi: tôi nhầm với dữ liệu cũ)

Thực ra viết code tôi không để ý dữ liệu.Nếu mà đã tách thì thêm cái gì cho khác nhau là được.Chẳng qua là do tác giả cần thế nào thì viết thôi.Chứ cùng tên thì nó sẽ xóa cái trước là đúng rồi.

soap1234 · 23/4/22

snow25 đã viết:
Thực ra viết code tôi không để ý dữ liệu.Nếu mà đã tách thì thêm cái gì cho khác nhau là được.Chẳng qua là do tác giả cần thế nào thì viết thôi.Chứ cùng tên thì nó sẽ xóa cái trước là đúng rồi.

Các anh ơi code khi xuất file .txt ngon lành rồi nhưng khi em nhập file .txt vào phần mềm. phần mềm yêu cầu giữa các cột trong file.TXT là một khoảng tab như hình vẽ mới nhận dữ liệu các anh à. nếu dùng đoạn code em gửi trong file HoSoTXT thì phần mềm nhận nhưng lại chỉ lưu được 1 file anh à
giờ em muốn nhờ các anh chỉnh sửa code trong file HoSoTXT để lưu được nhiều file
hoặc các anh chỉnh sửa code của anh Maik80008 và anh smow25 với. em xin chân thành cảm ơn các anh

Maika8008 · 23/4/22

soap1234 đã viết:
Các anh ơi code khi xuất file .txt ngon lành rồi nhưng khi em nhập file .txt vào phần mềm. phần mềm yêu cầu giữa các cột trong file.TXT là một khoảng tab như hình vẽ mới nhận dữ liệu các anh à. nếu dùng đoạn code em gửi trong file HoSoTXT thì phần mềm nhận nhưng lại chỉ lưu được 1 file anh à
giờ em muốn nhờ các anh chỉnh sửa code trong file HoSoTXT để lưu được nhiều file
hoặc các anh chỉnh sửa code của anh Maik80008 và anh smow25 với. em xin chân thành cảm ơn các anh

Thay: Space(18 - Len(aTitle(1, j))) bằng vbTab

hoặc code của snow25, thay Space(18 - Len(arr(1, j))) bằng vbTab

soap1234 · 23/4/22

Maika8008 đã viết:
Thay: Space(18 - Len(aTitle(1, j))) bằng vbTab

hoặc code của snow25, thay Space(18 - Len(arr(1, j))) bằng vbTab

Anh có thể guip em chỉnh sửa code trong file HoSoTXT để lưu được nhiều file không anh . em biết ơn anh nhiều lắm

Maika8008 · 23/4/22

soap1234 đã viết:
Anh có thể guip em chỉnh sửa code trong file HoSoTXT để lưu được nhiều file không anh . em biết ơn anh nhiều lắm

Ghi file kiểu đó lỗi mã Unicode thì bạn dùng làm gì?

soap1234 · 23/4/22

Maika8008 đã viết:
Ghi file kiểu đó lỗi mã Unicode thì bạn dùng làm gì?

Dạ em cũng đang loay hoay vì phần mềm này dùng định dạng font .vntime, .Vnarial anh à. có cách gì xuất sang file. TXT mà font .vntime, .Vnarial không anh.

Nhờ viết code xuất dữ liệu ra file .txt

Thành viên hoạt động

File đính kèm

​

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên gạo cội

Thành viên gạo cội

Thành viên hoạt động

Thành viên mới

|||||||||||||

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên gạo cội

Thành viên hoạt động

​

Thành viên gạo cội

​

Thành viên gạo cội

​

Thành viên gạo cội

​

File đính kèm

Thành viên gạo cội

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động