Access - Guardar exportaciones .html en carpeta definida

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 10/05/2024 05:42:37

Tengo una aplicación pequeña para captar una información, que se exporta en formato html, y que es guardada en una carpeta definida

Sucede que necesito que esa exportación se guarde en esa carpeta donde sea usada la aplicación, porque como es pequeña se puede usar desde una usb, en este momento está perdeterminada con el camino al disco F:\SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES (la usb) y como el fronteend se vincula dinámicamente al backend para que se use desde donde se ubiquen las bd necesito que así mismo sea las exportaciones de esos ficheros .html

El códio actual es

Private Sub ExpProgEmit_Click()
Dim Tbl_Temp As DAO.Recordset
Set Tbl_Temp = CurrentDb.OpenRecordset("Select FProg FROM ProgramaEmitidoFecha", , dbReadOnly)
Tbl_Temp.MoveFirst
Do Until Tbl_Temp.EOF
DoCmd.OutputTo acOutputQuery, "ProgramaEmitido", "HTML(*.html)", "D:\SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"
Tbl_Temp.MoveNext
Loop
Tbl_Temp.Close
Set Tbl_Temp = Nothing

ExpProgEmit_Exit:
Exit Sub
End Sub

le hice un cambio así

Private Sub ExpProgEmit_Click()
Dim Tbl_Temp As DAO.Recordset
Set Tbl_Temp = CurrentDb.OpenRecordset("Select FProg FROM ProgramaEmitidoFecha", , dbReadOnly)
Tbl_Temp.MoveFirst
Do Until Tbl_Temp.EOF
DoCmd.OutputTo acOutputQuery, "ProgramaEmitido", "HTML(*.html)", (CurrentProject.Path) & "\" & "SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"
Tbl_Temp.MoveNext
Loop
Tbl_Temp.Close
Set Tbl_Temp = Nothing

ExpProgEmit_Exit:
Exit Sub
End Sub

Pero me da este error

Se ha producido el error '2302' en tiempo de ejecución:

SGRAdiov2.0 np puede guardar los datos en el archivo que ha seleccionado.

(No pongo la imagen porque no deja subirla)

El error es en esta línea:

DoCmd.OutputTo acOutputQuery, "ProgramaEmitido", "HTML(*.html)", (CurrentProject.Path) & "\" & "SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

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

Pos: 8

Val: 414

Guardar exportaciones .html en carpeta definida

Publicado por Joan (100 intervenciones) el 10/05/2024 09:57:24

Prueba así:

Private Sub ExpProgEmit_Click()

Dim Tbl_Temp As DAO.Recordset

Dim vRuta As String

Set Tbl_Temp = CurrentDb.OpenRecordset("Select FProg FROM ProgramaEmitidoFecha", , dbReadOnly)

Tbl_Temp.MoveFirst

Do Until Tbl_Temp.EOF

vRuta = Application.CurrentProject.Path & "\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0\" & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

DoCmd.OutputTo acOutputQuery, "ProgramaEmitido", "HTML(*.html)", vRuta

Tbl_Temp.MoveNext

Loop

Tbl_Temp.Close

Set Tbl_Temp = Nothing

ExpProgEmit_Exit:

Exit Sub

End Sub

El fallo lo tienes seguro en la ruta que estás indicando.

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

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 10/05/2024 13:35:58

Gracias. Sigue el error

Sin-titulo

[code]

Valora esta respuesta

Comentar

Pos: 8

Val: 414

Guardar exportaciones .html en carpeta definida

Publicado por Joan (100 intervenciones) el 10/05/2024 16:38:02

Prueba a poner la ruta completa en la variable vRuta:

"D:\SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html," es en la que te funcionaba.

vRuta = Application.CurrentProject.Path & "\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0\" & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

Yo veo diferencias entre la primera ruta que sí te funciona, y la nueva, supongo que donde tienes la base de datos corriendo es en la carpeta SGRADIO-CAPTACIONESv1.0.

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 10/05/2024 23:23:49

Si, hay diferencias, el primer código siempre lo dirige a una ruta específica

Private Sub ExpProgEmit_Click()

Dim Tbl_Temp As DAO.Recordset

Set Tbl_Temp = CurrentDb.OpenRecordset("Select FProg FROM ProgramaEmitidoFechaTI", , dbReadOnly)

Tbl_Temp.MoveFirst

Do Until Tbl_Temp.EOF

    DoCmd.OutputTo acOutputQuery, "ProgramaEmitidoTI", "HTML(*.html)", (CurrentProject.Path) & "\" & "SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

    Tbl_Temp.MoveNext

Loop

Tbl_Temp.Close

Set Tbl_Temp = Nothing

ExpProgEmit_Exit:

    Exit Sub

End Sub

en el segundo trato de que se guarde en la misma carpeta siempre, esté alojado en cualquier destino, C:\, D:\, E:\, etc y no me sale

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 10/05/2024 23:52:43

haciendo una prueba, paso la carpeta "SGRADIOv1.0 EXPORTACIONES" que es donde debe guardar la exportación, para dentro de la carpeta "SGRADIOv1.0" que es la que contiene los mdb y lo hace bien, porque hasta ahora la carpeta "SGRADIOv1.0 EXPORTACIONES" la tenía fuera de ella, o o sea forma parte de un conjunto de carpetas que están dentro de la principal "SGRADIO-CAPTACIONESv1.0"

explorer1

y el código quedó así

Private Sub ExpProgEmit_Click()

Dim Tbl_Temp As DAO.Recordset

Set Tbl_Temp = CurrentDb.OpenRecordset("Select FProg FROM ProgramaEmitidoFechaTI", , dbReadOnly)

Tbl_Temp.MoveFirst

Do Until Tbl_Temp.EOF

    DoCmd.OutputTo acOutputQuery, "ProgramaEmitidoTI", "HTML(*.html)", (CurrentProject.Path) & "\" & "SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

    Tbl_Temp.MoveNext

Loop

Tbl_Temp.Close

Set Tbl_Temp = Nothing

ExpProgEmit_Exit:

    Exit Sub

End Sub

cuando la carpeta queda en esta posición

explorer2

pero necesito que quede fuera, como en la primera imagen para que los usuarios no tengan que intervenir en la carpeta que están los mdb

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 10/05/2024 23:24:05

Si, hay diferencias, el primer código siempre lo dirige a una ruta específica

Private Sub ExpProgEmit_Click()

Private Sub ExpProgEmit_Click()

Dim Tbl_Temp As DAO.Recordset

Set Tbl_Temp = CurrentDb.OpenRecordset("Select FProg FROM ProgramaEmitidoFechaTI", , dbReadOnly)

Tbl_Temp.MoveFirst

Do Until Tbl_Temp.EOF

    DoCmd.OutputTo acOutputQuery, "ProgramaEmitidoTI", "HTML(*.html)", "D:\SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

    Tbl_Temp.MoveNext

Loop

Tbl_Temp.Close

Set Tbl_Temp = Nothing

ExpProgEmit_Exit:

    Exit Sub

End Sub

en el segundo trato de que se guarde en la misma carpeta siempre, esté alojado en cualquier destino, C:\, D:\, E:\, etc y no me sale

Private Sub ExpProgEmit_Click()

Dim Tbl_Temp As DAO.Recordset

Set Tbl_Temp = CurrentDb.OpenRecordset("Select FProg FROM ProgramaEmitidoFechaTI", , dbReadOnly)

Tbl_Temp.MoveFirst

Do Until Tbl_Temp.EOF

    DoCmd.OutputTo acOutputQuery, "ProgramaEmitidoTI", "HTML(*.html)", (CurrentProject.Path) & "\" & "SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

    Tbl_Temp.MoveNext

Loop

Tbl_Temp.Close

Set Tbl_Temp = Nothing

ExpProgEmit_Exit:

    Exit Sub

End Sub

Valora esta respuesta

Comentar

Pos: 8

Val: 414

Guardar exportaciones .html en carpeta definida

Publicado por Joan (100 intervenciones) el 11/05/2024 12:56:07

Hola,

He reproducido en código en una base de datos y sí que funciona:

(CurrentProject.Path) & "\" & "SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

El archivo creado lo está guardando en: SGRADIOv1.0 EXPORTACIONES.

El problema lo debes tener al crear la carpeta:

Dim strNombreCarpeta As String

Dim strTempCarpeta As String

Dim FSO As Object

    strNombreCarpeta = "SGRADIOv1.0 EXPORTACIONES"

    On Error Resume Next

    MkDir Application.CurrentProject.Path & "\" & strNombreCarpeta

Dim Tbl_Temp As DAO.Recordset

Set Tbl_Temp = CurrentDb.OpenRecordset("Select FProg FROM ProgramaEmitidoFechaTI", , dbReadOnly)

Tbl_Temp.MoveFirst

Do Until Tbl_Temp.EOF

DoCmd.OutputTo acOutputQuery, "ProgramaEmitidoTI", "HTML(*.html)", (CurrentProject.Path) & "\" & "SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

Tbl_Temp.MoveNext

Loop

Tbl_Temp.Close

Set Tbl_Temp = Nothing

ExpProgEmit_Exit:

    Exit Sub

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por Anonimo (3330 intervenciones) el 11/05/2024 15:17:26

Joan, si la carpeta donde se ubican los programas y la carpeta donde se guardan las exportaciones tienen el mismo nivel (ambas están ubicadas en otra carpeta de nivel superior), solo hay que tener en cuenta ese detalle al crear la ruta.

Tomando como referencia el 'CurrentProject.Path', con InSrtRev se puede obtener el nivel superior.
Añadiéndole al anterior resultado la carpeta destino mas el nombre y tipo de fichero se obtiene la ruta absoluta deseada.

Disculpas por la intromisión, es tu opción el generar el código y publicarlo.

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 11/05/2024 15:51:15

Gracias, exacto, así es

Valora esta respuesta

Comentar

Pos: 8

Val: 414

Guardar exportaciones .html en carpeta definida

Publicado por Joan (100 intervenciones) el 12/05/2024 12:18:47

Gracias por la apreciación Anónimo, el código de crear las carpetas era solo un ejemplo para que se viera que se guardaba en esas capetas creadas, tal como he dicho en el nuevo post, lo entendí mal desde el principio.

Saludos,

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 11/05/2024 15:42:40

Saludos Joan, sí, los dos códigos funcionan, el tuyo lo que permite es crear la carpeta detro del (CurrentProject.Path) si no existiera, lo que sucede es que, como te comenté, no quisiera que el ususario tenga que intervenir en la carpeta (CurrentProject.Path) para extraer el fichero que debe enviar a quien corresponda, por eso quería crear esa carpeta "SGRADIOv1.0 EXPORTACIONES" dentro de la carpeta general de la aplicación que es esta

explorer1

quiere decir que tanto la carpeta donde está alojadas las mbd como otras creadas con otras informaciones están ubicadas en la carpeta : "SGRADIO-CAPTACIONESv1.0" que es donde he tratado de que se cree el fichero .hmtl en la carpeta "SGRADIOv1.0 EXPORTACIONES" y no me ha salido ya que he previsto que la aplicación se pueda usar en cualquier parte, incluso, en memorias usb.

tal vez, desde cualquiera de los códigos, el tuyo o el mío, pueda mover el fichero a la carpeta que deseo y borrarlo de donde se crea, en el (CurrentProject.Path), y ahí volvería a caer en el problema del camino a ella ya que no es definido a ningún disco directamente si no a donde está ubicada la mbd, no se si me hago entender

gracias por todo

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 11/05/2024 22:24:16

Joan, sobre lo que plantea el usuario anónimo, no será esa la solución:

"Joan, si la carpeta donde se ubican los programas y la carpeta donde se guardan las exportaciones tienen el mismo nivel (ambas están ubicadas en otra carpeta de nivel superior), solo hay que tener en cuenta ese detalle al crear la ruta.

Tomando como referencia el 'CurrentProject.Path', con InSrtRev se puede obtener el nivel superior.
Añadiéndole al anterior resultado la carpeta destino mas el nombre y tipo de fichero se obtiene la ruta absoluta deseada.

Disculpas por la intromisión, es tu opción el generar el código y publicarlo."

aunque realmente no sabría como hacerlo, me has ayudado otras veces con tus soluciones y aunque no lo he dicho soy aprendíz de programador, jajajaja, no lo había dicho, no me apena decirlo, pero se me fue, perdón

gracias

Valora esta respuesta

Comentar

Pos: 8

Val: 414

Guardar exportaciones .html en carpeta definida

Publicado por Joan (100 intervenciones) el 12/05/2024 12:11:50

Creo que lo he entendido mal desde el principio.

Quieres buscar una unidad USB que contenga la carpeta de exportación, por lo tanto, has de buscar las unidades USB que contengan esos datos.

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim unidades As Object

Set unidades = fso.Drives

Dim carpetaexportacion As String

Dim nombrearchivo As String

Dim vRuta As String

Dim unidadUSB As String

Dim nombrecarpetausb As String

nombrecarpetausb = "SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES"

nombrearchivo = "ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

For Each unidad In unidades

If unidad.IsReady And unidad.DriveType = 1 Then

unidadUSB = unidad.Path

carpetaexportacion = unidadUSB & "\" & nombrecarpetausb & "\"

If fso.FolderExists(carpetaexportacion) Then

vRuta = carpetaexportacion & nombrearchivo

DoCmd.OutputTo acOutputQuery, "ProgramaEmitidoTI", "HTML(*.html)", vRuta

Exit For

End If

End If

Next unidad

If Dir(carpetaexportacion) = "" Then

MsgBox "No se ha encontrado la carpeta de exportación."

End If

Set fso = Nothing

Es un código para buscar unidades extraíbles en el PC.

Si ya no es esto lo que intentas ya no damos para más.

Saludos,

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 12/05/2024 14:19:03

amigo, gracias por todo, funciona muy bien, solo me queda por decirte que en realidad lo que necesitaba es que trabajara tanto en usb como en una pc, que el código buscara los caminos en dependencia de donde estuviera ubicado y que la carpeta donde está ubicada la mdb esta dentro de una superior llamada SGRADIO-CAPTACIONESv1.0, es así:
SGRADIO-CAPTACIONESv1.0 -----SGRADIOv1.0 (donde está la mdb)
SGRADIOv1.0 EXPORTACIONES ( a donde van las exportaciones)
SGRADIOv1.0 INFORMES INCIDENTAL (para informes)
SGRADIOv1.0 INFORMES PROGRAMAS (para informes)

la vinculación con la base de datos si me salió bien, se vincula tanto en una usb como en una pc, en las exportaciones es deonde tuve el problema y es porque (CurrentProject.Path) busca hasta SGRADIOv1.0 (donde está la mdb) y no alcanza a SGRADIO-CAPTACIONESv1.0 que es donde debería buscar SGRADIOv1.0 EXPORTACIONES ( a donde van las exportaciones)

Gracias por tu tiempo y tu ayuda, que por cierto no es la primera vez pues en otros momentos me has ayudado a dar soluciones.

Bendiciones

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por Anonimo (3330 intervenciones) el 12/05/2024 19:56:45

Añadir esta línea para obtener la ruta de la carpeta destino:

Dim Ruta: Ruta = CurrentProject.Path: Ruta = Left(Ruta, InStrRev(Ruta, "\")) & "SGRADIOv1.0 EXPORTACIONES\"

Línea original:

DoCmd.OutputTo acOutputQuery, "ProgramaEmitido", "HTML(*.html)", "D:\SGRADIO-CAPTACIONESv1.0\SGRADIOv1.0 EXPORTACIONES\ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

Se modificaría así:

DoCmd.OutputTo acOutputQuery, "ProgramaEmitido", "HTML(*.html)", Ruta & "ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".html"

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por carlos (66 intervenciones) el 14/05/2024 00:41:14

Amigo, gracias por todo, quedó muy bien ese código en mi aplicación.

Gracias nuevamente y bendiciones

Valora esta respuesta

Comentar

Guardar exportaciones .html en carpeta definida

Publicado por Eduardo Pérez Fernández (320 intervenciones) el 10/05/2024 14:51:28

Le respondí por TodoExpertos.

Valora esta respuesta

Comentar

exportar a excel con nombre específico de hoja

Problema con el access