Excel macro - save to files from cells problem

Hi friends
If anybody can help about next problem
I found next macro on net
and working very good for outputting Excel rows to a series of text files

Getting name of file from first row and save content of cell from second row to a file (csv or text)

BUT problem is how output (export) from cells to files with UTF-8 format?

Any help possible?

Here is macro
**************************

Sub DataDump()

    Dim X
    Dim lngRow As Long
    Dim StrFolder As String

    StrFolder = "C:\temp"
    X = Range([a1], Cells(Rows.Count, 2).End(xlUp))
    For lngRow = 1 To UBound(X)
    Open StrFolder & "\" & X(lngRow, 1) & ".txt" For Output As #1
    Write #1, X(lngRow, 2)
    Close #1
    Next
    End Sub

*****************************

How does this work for you ?

Sub tst()
Dim X
Dim lngRow As Long
Dim StrFolder As String
StrFolder = "D:\"
X = Range([a1], Cells(Rows.Count, 2).End(xlUp))
With CreateObject("ADODB.Stream")
    For lngRow = 1 To UBound(X)
        .Type = 2
        .Charset = "utf-8"
        .Open
        .WriteText X(lngRow, 2)
        .SaveToFile StrFolder & "\" & X(lngRow, 1) & ".txt", 2
        .Close
    Next
End With
End Sub

@1universe

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

Thanks for feedback and rep+.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.