Giúp cháu sửa code báo lổi Runtime error 5 khi vùng cần copy có tiếng việt

1+1=2 · 14/7/20

Cháu xin chào tất cả cô chú anh chị diễn đàn Excel. Cháu có dùng đoạn code sau để copy dữ liệu trong excel xuất ra file Notepad đã chỉ định tại đường dẩn ô U1. Không hiểu sao code chạy lổi khi dữ liệu có dấu tiếng việt, còn không dấu thì không sao

Code

Mã:

Sub xuatexcelnotepad()
'On Error Resume Next
    Dim rngData As Range
    Dim strData As String
    Dim strTempFile As String

    ' Nguon copy
    Set rngData = Range("a1:s200")
    rngData.Copy

    ' mac dinh
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        strData = .GetText
    End With

    ' nguon notepad
    strTempFile = Range("U1").Value
    With CreateObject("Scripting.FileSystemObject")
        .CreateTextFile(strTempFile, True).Write strData
    End With

    ' Mo file Notepad len
    'Shell "cmd /c ""notepad.exe """ & strTempFile & """", vbHide
 
    Application.CutCopyMode = False


End Sub

Nhờ các cô chú xem giúp. Cháu cảm ơn thật nhiều. Chúc tất cả mọi người vui vẻ hạnh phúc bên gia đình và người thân

vu_tuan_manh_linh · 14/7/20

Liên quan đến mã UTF-8. Bạn vọc link này xem có giúp gì được không. Hoặc tìm các link khác với từ khóa "UTF-8 text file, vba code".

vba - read - vbscript utf-8 encoding

code.i-harness.com

stackoverrun.com

1+1=2 · 14/7/20

vu_tuan_manh_linh đã viết:
Liên quan đến mã UTF-8. Bạn vọc link này xem có giúp gì được không. Hoặc tìm các link khác với từ khóa "UTF-8 text file, vba code".

vba - read - vbscript utf-8 encoding

code.i-harness.com

stackoverrun.com

cháu đã thử. Nhưng bó tay bác ạ

ndu96081631 · 14/7/20

1+1=2 đã viết:
Cháu xin chào tất cả cô chú anh chị diễn đàn Excel. Cháu có dùng đoạn code sau để copy dữ liệu trong excel xuất ra file Notepad đã chỉ định tại đường dẩn ô U1. Không hiểu sao code chạy lổi khi dữ liệu có dấu tiếng việt, còn không dấu thì không sao

View attachment 241119

View attachment 241121

Code

Mã:

Sub xuatexcelnotepad() 'On Error Resume Next Dim rngData As Range Dim strData As String Dim strTempFile As String ' Nguon copy Set rngData = Range("a1:s200") rngData.Copy ' mac dinh With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard strData = .GetText End With ' nguon notepad strTempFile = Range("U1").Value With CreateObject("Scripting.FileSystemObject") .CreateTextFile(strTempFile, True).Write strData End With ' Mo file Notepad len 'Shell "cmd /c ""notepad.exe """ & strTempFile & """", vbHide Application.CutCopyMode = False End Sub

Nhờ các cô chú xem giúp. Cháu cảm ơn thật nhiều. Chúc tất cả mọi người vui vẻ hạnh phúc bên gia đình và người thân

Sửa chỗ:

Mã:

With CreateObject("Scripting.FileSystemObject")
  .CreateTextFile(strTempFile, True).Write strData
End With

thành vầy:

Mã:

CreateObject("Scripting.FileSystemObject").CreateTextFile(strTempFile, True, True).Write strData

xem sao
--------------------------------------

Quochuyhdbt · 14/7/20

With CreateObject("Scripting.FileSystemObject")
.CreateTextFile(strTempFile, True,true).Write strData
End With
Bạn phải sử dụng thuoc tính unicode

1+1=2 · 14/7/20

ndu96081631 đã viết:
Sửa chỗ:

Mã:

With CreateObject("Scripting.FileSystemObject") .CreateTextFile(strTempFile, True).Write strData End With

thành vầy:

Mã:

CreateObject("Scripting.FileSystemObject").CreateTextFile(strTempFile, True, True).Write strData

xem sao
--------------------------------------

Quá hay chú ạ. cháu thử nảy giờ 4 5 lần code chạy ok hết kể cả tiếng phát tiếng mỹ . Cháu cảm ơn chú nhiều. Chú chúc 1 buổi tối vui vẻ hạnh phúc bên gia đình

1+1=2 · 14/7/20

Quochuyhdbt đã viết:
With CreateObject("Scripting.FileSystemObject")
.CreateTextFile(strTempFile, True,true).Write strData
End With
Bạn phải sử dụng thuoc tính unicode

cháu cảm ơn chú nhiều

1+1=2 · 14/7/20

ndu96081631 đã viết:
Sửa chỗ:

Mã:

With CreateObject("Scripting.FileSystemObject") .CreateTextFile(strTempFile, True).Write strData End With

thành vầy:

Mã:

CreateObject("Scripting.FileSystemObject").CreateTextFile(strTempFile, True, True).Write strData

xem sao
--------------------------------------

Cháu mới thử lại nó còn 1 trường hợp này nữa vẫn . Mong chú giúp cháu 1 lần nữa.
Nghĩa là nếu vùng copy mà bị ẩn thì nó bỏ qua vùng ẩn
Ví dụ Vùng copy là A1:E1000 mà cháu ẩn từ hàng 100 đến 1000 . thì code nó chỉ copy vùng đang hiện là A1:E99. Vậy sửa code làm sao để nó copy đúng địa chỉ Copy đã cho trước không quan trọng vùng đó đã hiện hay đã ẩn. Mong chú giúp cái này nữa là quá tuyệt vời. Cháu xin cảm ơn chú trước

Bài đã được tự động gộp: 14/7/20

Quochuyhdbt đã viết:
With CreateObject("Scripting.FileSystemObject")
.CreateTextFile(strTempFile, True,true).Write strData
End With
Bạn phải sử dụng thuoc tính unicode

Cháu mới thử lại nó còn 1 trường hợp này nữa vẫn . Mong chú giúp cháu 1 lần nữa.
Nghĩa là nếu vùng copy mà bị ẩn thì nó bỏ qua vùng ẩn
Ví dụ Vùng copy là A1:E1000 mà cháu ẩn từ hàng 100 đến 1000 . thì code nó chỉ copy vùng đang hiện là A1:E99. Vậy sửa code làm sao để nó copy đúng địa chỉ Copy đã cho trước không quan trọng vùng đó đã hiện hay đã ẩn. Mong chú giúp cái này nữa là quá tuyệt vời. Cháu xin cảm ơn chú trước

ndu96081631 · 15/7/20

1+1=2 đã viết:
Cháu mới thử lại nó còn 1 trường hợp này nữa vẫn . Mong chú giúp cháu 1 lần nữa.
Nghĩa là nếu vùng copy mà bị ẩn thì nó bỏ qua vùng ẩn
Ví dụ Vùng copy là A1:E1000 mà cháu ẩn từ hàng 100 đến 1000 . thì code nó chỉ copy vùng đang hiện là A1:E99. Vậy sửa code làm sao để nó copy đúng địa chỉ Copy đã cho trước không quan trọng vùng đó đã hiện hay đã ẩn. Mong chú giúp cái này nữa là quá tuyệt vời. Cháu xin cảm ơn chú trước

Bài đã được tự động gộp: 14/7/20

Cháu mới thử lại nó còn 1 trường hợp này nữa vẫn . Mong chú giúp cháu 1 lần nữa.
Nghĩa là nếu vùng copy mà bị ẩn thì nó bỏ qua vùng ẩn
Ví dụ Vùng copy là A1:E1000 mà cháu ẩn từ hàng 100 đến 1000 . thì code nó chỉ copy vùng đang hiện là A1:E99. Vậy sửa code làm sao để nó copy đúng địa chỉ Copy đã cho trước không quan trọng vùng đó đã hiện hay đã ẩn. Mong chú giúp cái này nữa là quá tuyệt vời. Cháu xin cảm ơn chú trước

Có nhiều cách để lấy dữ liệu từ một Range mà copy rồi "moi" mọi thứ từ trong clipboard là cách khá đơn giản. Tuy nhiên nó cũng có giới hạn, chính là không thể lấy được dữ liệu mà nó không "nhìn thấy" (dòng ẩn)
Vậy trong trường hợp của bạn, cứ dùng cách bình thường là được:

Mã:

Private Sub Data2txtFile(ByVal Range2Export As Range, ByVal txtFile As String)
  Dim aSource, tmp(), Arr(), lR As Long, lC As Long
  On Error GoTo ExitSub
  aSource = Range2Export.Value
  If Not IsArray(aSource) Then
    ReDim aSource(1 To 1, 1 To 1)
    aSource(1, 1) = Range2Export.Value
  End If
  If UCase(Right(txtFile, 4)) <> ".TXT" Then txtFile = txtFile & ".txt"
  ReDim tmp(1 To UBound(aSource, 2))
  ReDim Arr(1 To UBound(aSource, 1))
  With CreateObject("Scripting.FileSystemObject")
    With .CreateTextFile(txtFile, True, True)
      For lR = 1 To UBound(aSource, 1)
        For lC = 1 To UBound(aSource, 2)
          tmp(lC) = aSource(lR, lC)
        Next
        Arr(lR) = Join(tmp, vbTab)
      Next
      .Write Join(Arr, vbCrLf)
      .Close
    End With
  End With
ExitSub:
End Sub
Sub xuatexcelnotepad()
'On Error Resume Next
    Dim rngData As Range
    Dim strData As String
    Dim strTempFile As String
    ' Nguon copy
    Set rngData = Range("A1:S200")
    strTempFile = Range("U1").Value
    Data2txtFile rngData, strTempFile
    ' Mo file Notepad len
    Shell "cmd /c ""notepad.exe """ & strTempFile & """", vbHide
End Sub

Nói chung là cách nào cũng có ưu điểm, nhược điểm riêng, tùy chuyện mà xài thôi

Quochuyhdbt · 15/7/20

Tớ nghĩ cậu cho nó hiện

ndu96081631 đã viết:
Có nhiều cách để lấy dữ liệu từ một Range mà copy rồi "moi" mọi thứ từ trong clipboard là cách khá đơn giản. Tuy nhiên nó cũng có giới hạn, chính là không thể lấy được dữ liệu mà nó không "nhìn thấy" (dòng ẩn)
Vậy trong trường hợp của bạn, cứ dùng cách bình thường là được:

Mã:

Private Sub Data2txtFile(ByVal Range2Export As Range, ByVal txtFile As String) Dim aSource, tmp(), Arr(), lR As Long, lC As Long On Error GoTo ExitSub aSource = Range2Export.Value If Not IsArray(aSource) Then ReDim aSource(1 To 1, 1 To 1) aSource(1, 1) = Range2Export.Value End If If UCase(Right(txtFile, 4)) <> ".TXT" Then txtFile = txtFile & ".txt" ReDim tmp(1 To UBound(aSource, 2)) ReDim Arr(1 To UBound(aSource, 1)) With CreateObject("Scripting.FileSystemObject") With .CreateTextFile(txtFile, True, True) For lR = 1 To UBound(aSource, 1) For lC = 1 To UBound(aSource, 2) tmp(lC) = aSource(lR, lC) Next Arr(lR) = Join(tmp, vbTab) Next .Write Join(Arr, vbCrLf) .Close End With End With ExitSub: End Sub Sub xuatexcelnotepad() 'On Error Resume Next Dim rngData As Range Dim strData As String Dim strTempFile As String ' Nguon copy Set rngData = Range("A1:S200") strTempFile = Range("U1").Value Data2txtFile rngData, strTempFile ' Mo file Notepad len Shell "cmd /c ""notepad.exe """ & strTempFile & """", vbHide End Sub

Nói chung là cách nào cũng có ưu điểm, nhược điểm riêng, tùy chuyện mà xài thôi

very Good

VetMini · 15/7/20

Quochuyhdbt đã viết:
...very Good

Tiếng Tây khen thì "excellent" chứ. Dùng "very Good" hỏng được "cool" lắm.

Quochuyhdbt · 15/7/20

VetMini đã viết:
Tiếng Tây khen thì "excellent" chứ. Dùng "very Good" hỏng được "cool" lắm.

excellent

1+1=2 · 15/7/20

ndu96081631 đã viết:
Có nhiều cách để lấy dữ liệu từ một Range mà copy rồi "moi" mọi thứ từ trong clipboard là cách khá đơn giản. Tuy nhiên nó cũng có giới hạn, chính là không thể lấy được dữ liệu mà nó không "nhìn thấy" (dòng ẩn)
Vậy trong trường hợp của bạn, cứ dùng cách bình thường là được:

Mã:

Private Sub Data2txtFile(ByVal Range2Export As Range, ByVal txtFile As String) Dim aSource, tmp(), Arr(), lR As Long, lC As Long On Error GoTo ExitSub aSource = Range2Export.Value If Not IsArray(aSource) Then ReDim aSource(1 To 1, 1 To 1) aSource(1, 1) = Range2Export.Value End If If UCase(Right(txtFile, 4)) <> ".TXT" Then txtFile = txtFile & ".txt" ReDim tmp(1 To UBound(aSource, 2)) ReDim Arr(1 To UBound(aSource, 1)) With CreateObject("Scripting.FileSystemObject") With .CreateTextFile(txtFile, True, True) For lR = 1 To UBound(aSource, 1) For lC = 1 To UBound(aSource, 2) tmp(lC) = aSource(lR, lC) Next Arr(lR) = Join(tmp, vbTab) Next .Write Join(Arr, vbCrLf) .Close End With End With ExitSub: End Sub Sub xuatexcelnotepad() 'On Error Resume Next Dim rngData As Range Dim strData As String Dim strTempFile As String ' Nguon copy Set rngData = Range("A1:S200") strTempFile = Range("U1").Value Data2txtFile rngData, strTempFile ' Mo file Notepad len Shell "cmd /c ""notepad.exe """ & strTempFile & """", vbHide End Sub

Nói chung là cách nào cũng có ưu điểm, nhược điểm riêng, tùy chuyện mà xài thôi

Quá tuyệt vời . cháu cảm ơn chú nhiều

Giúp cháu sửa code báo lổi Runtime error 5 khi vùng cần copy có tiếng việt

1+1=2

Thành viên bị đình chỉ hoạt động

File đính kèm

vu_tuan_manh_linh

linhvtm84@gmail.com

vba - read - vbscript utf-8 encoding

1+1=2

Thành viên bị đình chỉ hoạt động

vba - read - vbscript utf-8 encoding

ndu96081631

Huyền thoại GPE

Quochuyhdbt

Thành viên mới

1+1=2

Thành viên bị đình chỉ hoạt động

1+1=2

Thành viên bị đình chỉ hoạt động

1+1=2

Thành viên bị đình chỉ hoạt động

ndu96081631

Huyền thoại GPE

Quochuyhdbt

Thành viên mới

VetMini

Ăn cùng góc phố

Quochuyhdbt

Thành viên mới

1+1=2

Thành viên bị đình chỉ hoạt động

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng