Access - Exportar informe

Exportar informe

Publicado por slopezve (2 intervenciones) el 13/11/2004 20:00:38

Tengo un informe en access 2000 de varias paginas,cuando lo exporto como documento html se me generan varias paginas en html denominadas como InformePágina1, InformePágina2,etc...Necesito generar esas paginas automaticamente pero sin que la palabra Página1 lleve acento,es decir- InformePagina1-,etc...

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Cómo exportar un informe a HTML y cambiar nombres de archivos sin acentos

Publicado por Alejandro (4142 intervenciones) el 16/05/2023 20:41:32

Para generar las páginas en HTML con nombres que no contengan acentos, puedes utilizar una macro en Access para modificar el nombre del archivo exportado. A continuación, te proporciono un ejemplo de cómo hacerlo:

1. Abre el informe en Access.
2. Ve a la pestaña "Crear" y haz clic en "Macros" para crear una nueva macro.
3. En la macro, agrega las siguientes acciones:

- Acción: Exportar con formato HTML
- Nombre del objeto: Nombre de tu informe
- Tipo de exportación: Hoja de datos (*html)
- Nombre del archivo: "InformePagina" & [NombreArchivo] & ".html"

- Acción: Ejecutar código de VBA
- Nombre de la función: CambiarNombreArchivoHTML

4. Cierra la macro y guarda los cambios.

A continuación, necesitarás agregar un módulo de VBA para escribir la función "CambiarNombreArchivoHTML" que se utilizará en la macro. Sigue estos pasos:

1. Ve a la pestaña "Crear" y haz clic en "Módulo" para crear un nuevo módulo de VBA.
2. En el módulo, escribe el siguiente código:

Function CambiarNombreArchivoHTML()

    Dim strNombreArchivo As String

    strNombreArchivo = Dir(CurrentProject.Path & "\InformePagina*.html")

    Do While strNombreArchivo <> ""

        Dim strNuevoNombre As String

        strNuevoNombre = Replace(strNombreArchivo, "á", "a")

        strNuevoNombre = Replace(strNuevoNombre, "é", "e")

        strNuevoNombre = Replace(strNuevoNombre, "í", "i")

        strNuevoNombre = Replace(strNuevoNombre, "ó", "o")

        strNuevoNombre = Replace(strNuevoNombre, "ú", "u")

        Name CurrentProject.Path & "\" & strNombreArchivo As CurrentProject.Path & "\" & strNuevoNombre

        strNombreArchivo = Dir()

    Loop

End Function

Este código buscará los archivos HTML exportados con nombres que contengan acentos en el directorio de tu proyecto de Access y los renombrará sin los acentos reemplazando las letras acentuadas por sus equivalentes sin acento.

Guarda el módulo y ciérralo.

Ahora, cuando ejecutes la macro para exportar el informe a HTML, se generará un archivo llamado "InformePagina1.html" y así sucesivamente. Además, se ejecutará la función "CambiarNombreArchivoHTML" que renombrará los archivos HTML exportados para eliminar los acentos de sus nombres.

Espero que esto resuelva tu problema.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar