Saltar al contenido

Crear txt desde vba excel

publicado

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.

Featured Replies

publicado

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]

publicado
  • Autor

Hola JoaoM:

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

publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.