Crear txt desde vba excel

[juliosolis]

Hola muy buenos días compañeros del foro, solicitando su valiosa ayuda:

Como puedo crear un archivo txt con la codificación UTF-8 o en su caso hacer la conversión de ANSI a UTF-8 desde VBA Excel.

De antemano, gracias.

[JoaoM]

Tienes 10 posts creados o mensajes que dejaste pero casi seguro que no has leído las normas, en especial la part 5º

Te dejo esta macro, no la hice yo, si no el amigo CachoR porque yo también tuve que recorrir a manos (dedos) de Dios

Sub GeneraTxt() 'codigo de Cacho para crear un archivo txt de la hoja activa, _

sobre un rango determinado

Dim MiRango As Range, Largo As Integer, FilaActual As Long

On Error Resume Next

Set MiRango = Application.InputBox("Seleccione rango a exportar", Type:=8)

On Error GoTo 0

    If MiRango Is Nothing Then Exit Sub

    Open "C:\0\" & ActiveSheet.Name & ".txt" For Output As #1

For Each Celda In MiRango

    If Largo <= Len(Celda) Then Largo = 1 + Len(Celda)

Next Celda

    FilaActual = MiRango.Cells(1).Row

For Each Celda In MiRango

    If FilaActual < Celda.Row Then

        FilaActual = Celda.Row: Print #1, ""

    End If

    Print #1, CStr(Celda); Space(Largo - Len(Celda));

Next Celda

    Close #1

    Set MiRango = Nothing

End Sub[/CODE]

[juliosolis]

Hola JoaoM:

Efectivamente se crea el txt, pero con la codificación ANSI y yo necesito se guarde con la codificación UTF-8.

[JoaoM]

UUUffffffffffff tenemos que esperar la opinión de algún experto en la materia