Sub M_Excel()
Dim mydir As String
Dim i As Long
Dim tlines As Variant
Dim fsT As Object
mydir = ThisWorkbook.Path & "\UTF8Text.txt"
Set fsT = CreateObject("ADODB.Stream")
lstr = Cells(Rows.Count, 1).End(3).Row
fsT.Type = 2
fsT.Charset = "utf-8"
fsT.Open
ReDim tlines(1 To lstr)
For i = 1 To lstr
tlines(i) = Cells(i, 1) & "," & Cells(i, 2) _
& "," & Cells(i, 3) & "," & Cells(i, 4)
Next
fsT.WriteText Join(tlines, vbCrLf)
fsT.SaveToFile mydir, 2
End Sub
کامنت