Hola buenos dias, a partir de una tabla genero un xml con el siguiente código el problema es que el xml que se genera no esta en formato UTF-8 sino en ANSI. Algun truco para convertirlo de tiron en UTF-8 o para escribirlo en UTF-8.
Muchas Gracias de antemano
Sub toXML()
Dim strNombreArchivo, strRuta, strArchivoTexto As String
Dim f As Integer
strNombreArchivo = "mixml.xml"
strRuta = "C:\"
strArchivoTexto = strRuta & strNombreArchivo
'abrimos el archivo para escribir
f = FreeFile
Open strArchivoTexto For Output As #f
'Encabezado del Archivo
Print #f, "<?xml version='1.0' encoding='UTF-8'?>"
'escribimos al archivo
Print #f, "<categoria>"
Nombre = ActiveSheet.Name
Set X = Worksheets(Nombre)
With X
Fila = Range("A65000").End(xlUp).Row
For I = 1 To Fila
If Trim(Range("A" & I).Value) = "tema" Then
temaid = Trim(Range("H" & I).Value)
End If
If Range("D" & I).Value <> "" And Range("F" & I).Value <> "" And Trim(Range("G" & I).Value) <> "***" Then
Print #f, "<usuario>"
Print #f, "<codigo>" & Cliente_cod & "</codigo>"
Print #f, "<documento>" & Trim(.Range("E" & I).Value) & "</documento>"
Print #f, "<fecha>" & Range("M" & I).Value & "</fecha>"
Print #f, "<vencimiento>" & Range("N" & I).Value & "</vencimiento>"
Print #f, "<nick>" & Range("O" & I).Value & "</nick>"
Print #f, "</usuario>"
End If
Next I
End With
'Footer del Archivo
Print #f, "</categoria>"
'cerramos el archivo de texto
Close f
End Sub
