Xin code chuyển 1 vùng dữ liệu sang file txt???

[ndu96081631]

Anh có thể giúp em sửa code sao cho sau khi cover và xuất ra file text thì bỏ hết dấu đi ( chỉ còn chữ không dấu) được không ạ? em mò mãi mà không được.

Thì dùng hàm này:

Function RemoveMarks(ByVal Text As String) As String
  Dim CharCode, ResText As String, i As Long, Tmp As String
  On Error Resume Next
  Tmp = Text
  CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
                   ChrW(7849), ChrW(7851), ChrW(7853), ChrW(225), ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), _
                   ChrW(259), ChrW(226), ChrW(273), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
                   ChrW(233), ChrW(232), ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), _
                   ChrW(7881), ChrW(297), ChrW(7883), ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), _
                   ChrW(7899), ChrW(7901), ChrW(7903), ChrW(7905), ChrW(7907), ChrW(243), ChrW(242), ChrW(7887), _
                   ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), _
                   ChrW(7921), ChrW(250), ChrW(249), ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), _
                   ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
  ResText = "aaaaaaaaaaaaaaaaadeeeeeeeeeeeiiiiiooooooooooooooooouuuuuuuuuuuyyyyy"
  For i = 0 To UBound(CharCode)
    Tmp = Replace(Tmp, CharCode(i), Mid(ResText, i + 1, 1))
    Tmp = Replace(Tmp, UCase(CharCode(i)), UCase(Mid(ResText, i + 1, 1)))
  Next
  RemoveMarks = Tmp
End Function

Trong Sub Data2txtFile chỉ cần sửa đoạn:
Tmp(lC) = VIQRConvert(sArray(lR, lC), True)
thành
Tmp(lC) = RemoveMarks(sArray(lR, lC))

 

[Anhvn5]

Các bác có thể cho em hỏi code để chuyển 1 vùng dữ liệu từ excel qua file text, tuy nhiên ở dạng UTF8 với được không ạ?

 

[cantl]

Các bác có thể cho em hỏi code để chuyển 1 vùng dữ liệu từ excel qua file text, tuy nhiên ở dạng UTF8 với được không ạ?

Chuyện này quá đơn giản đối với GPE. Nhưng bạn phải post chủ đề mới để sau này tớ cần tớ còn tìm được chứ.

 

[Anhvn5]

Chuyện này quá đơn giản đối với GPE. Nhưng bạn phải post chủ đề mới để sau này tớ cần tớ còn tìm được chứ.

Mình đã tạo bài post mới, bạn giúp t nhé!

 

[nam739478]

Nhờ các bác viết giúp em đoạn code xuất dữ liệu từ excel sang file text cụ thể
Chọn được nơi lưu trữ file text
Tại sheet 1
Dữ liệu tại cell b2 là tên file text
Dữ liệu tại cell b3 và b4 là nội dung file text (mỗi cell là 1 dòng trong file text)
Dự định em sd nút button để chuyển
Em cảm ơn