Imprimir página | Cerrar ventana

Error al cargar el XML

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=87095
Fecha de impresión: 26/Marzo/2026 a las 13:27


Tema: Error al cargar el XML
Publicado por: EMB
Asunto: Error al cargar el XML
Fecha de publicación: 24/Septiembre/2025 a las 11:57
Buenos días y saludos a todos, soy nueva por aquí.
Tengo un problema al leer un archivo xml, el mensaje de error es : No es posible pasar de la codificación actual a la especificada.

El archivo xml contiene la respuesta que recibo de web server y que guardo de la siguiente manera :

Contenido = objWinHttp.ResponseText

' Guardar respuesta
  file = VBA.FreeFile
        Open Archivo For Binary Access Write As #file
        ' Comprueba que se puede escribir sin problema
        Close #file
        ' Contenido = req.ResponseBody
        Open Archivo For Binary Access Write As #file
        Put #file, , Contenido
  Close #file

¿Cómo puedo arreglar el archivo para poder ser leido?

Gracias a todos de antemano.


Respuestas:
Publicado por: Mihura
Fecha de publicación: 24/Septiembre/2025 a las 12:57
Con Scripting se hace muy fácil:

Cita
        With CreateObject("Scripting.FileSystemObject")
            With .OpenTextFile(Ruta, 8, True, 0)            '8=ForAppending, True=crea si no existe, 0=ASCII
                .Write Texto
                .Close
            End With
        End With


-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: EMB
Fecha de publicación: 24/Septiembre/2025 a las 13:19
Perfecto!!! Muchísimas gracias Mihura.
Se puede cerrar el hilo.


Imprimir página | Cerrar ventana