Excel - Guardar nombre con contenido de celda

Pos: 501

Val: 6

Guardar nombre con contenido de celda

Publicado por Jesus David (3 intervenciones) el 29/01/2020 20:19:02

Hola a todos, mi consulta es la siguiente:

Tengo una base de datos con registros diarios, cada columna representa un día y tiene los registros de dicho día. Lo que quiero es que cuando seleccione la celda con el día, pueda con un botón generar un archivo .txt con el nombre del día-mes y los registros dentro de el.

Por ejemplo selecciono el 04-jun, entonces al presionar el botón deben crearme un archivo .txt que se llame "04-jun.txt y así sucesivamente si selecciono otro día.

El código que llevo es este y no se como poner dinámico el día. Además si es posible eliminar el espacio que se genera en el .txt seria de mucha ayuda.

Gracias. Adjunto el archivo que estoy trabajando.

Sub convertidor_txt()

Dim ruta As String

    ruta = "C:\Users\jesus santrich\Documents\Documentos escritorio\pruebas\04-Jun.txt"

    lastrow = Cells(Rows.Count, 1).End(xlUp).Row

    Open ruta For Output As #1

    For i = 1 To lastrow

        Print #1, Cells(i + 1, 1).Value

     Next i

    Close #1

End Sub

test.rar(18,8 KB)

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: 3

Val: 3.136

Guardar nombre con contenido de celda

Publicado por Andres Leonardo (1583 intervenciones) el 29/01/2020 22:20:17

ruta = "C:\Users\jesus santrich\Documents\Documentos escritorio\pruebas\"& range("A2").value

si es que en A2 esta la fecha

El tema donde seleccionas

**No abri el archivo estoy desde el mobil

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

Pos: 501

Val: 6

Guardar nombre con contenido de celda

Publicado por Jesus David (3 intervenciones) el 30/01/2020 14:11:31

Buenos días, gracias por tu mensaje Andres. Usando la ruta que recomienda no me imprime un archivo en formato .txt y la idea es que sea dinámico, en ese caso solo me imprimiría la celda A2.

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

Guardar nombre con contenido de celda

Publicado por Antoni Masana (2477 intervenciones) el 30/01/2020 14:41:52

Te pongo dos versiones:

En la primera tienes que estar en la fila 1 para que la macro grabe el fichero:

Sub convertidor_txt()

    Dim Fila As Long, Colu As Long, Ruta As String, File As String

    Const Text_1 = "¿Quiere Guardar el fichero: "

    Const Text_2 = vbYesNo + vbQuestion

    Const Text_3 = "GUARDAR"

    Fila = ActiveCell.Row

    Colu = ActiveCell.Column

    Ruta = "C:\Users\jesus santrich\Documents\Documentos escritorio\pruebas\"

    If Fila = 1 Then

        If Not Cells(Fila, Colu) = Empty Then

            File = Format(Cells(1, 3), "dd-mmm") + ".txt"

            If MsgBox(Text_1 & File, Text_2, Text_3) = vbYes Then

                Ruta = Ruta + File

                Open Ruta For Output As #1

                Fila = 2

                While Cells(Fila, Colu) <> Empty

                    Print #1, Cells(Fila, Colu).Value

                Wend

                Close #1

                MsgBox "Fichero guardado.", vbInformation + vbOKOnly, "Fin Macro"

            End If

        End If

    End If

End Sub

En esta segunda versión es lo mismo que la anterior pero puede estar en cualquier fila de la columna a grabar:

Sub convertidor_txt()

    Dim Fila As Long, Colu As Long, Ruta As String, File As String

    Const Text_1 = "¿Quiere Guardar el fichero: "

    Const Text_2 = vbYesNo + vbQuestion

    Const Text_3 = "GUARDAR"

    Fila = 1

    Colu = ActiveCell.Column

    Ruta = "C:\Users\jesus santrich\Documents\Documentos escritorio\pruebas\"

    If Not Cells(Fila, Colu) = Empty Then

        File = Format(Cells(1, 3), "dd-mmm") + ".txt"

        If MsgBox(Text_1 & File, Text_2, Text_3) = vbYes Then

            Ruta = Ruta + File

            Open Ruta For Output As #1

            Fila = 2

            While Cells(Fila, Colu) <> Empty

                Print #1, Cells(Fila, Colu).Value

            Wend

            Close #1

            MsgBox "Fichero guardado.", vbInformation + vbOKOnly, "Fin Macro"

        End If

    End If

End Sub

En todos los casos verifica que la celda de la fila 1 no esta vacía.
Pregunta antes de guardar.
Aviso de que finaliza la grabación.

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 501

Val: 6

Guardar nombre con contenido de celda

Publicado por Jesus David (3 intervenciones) el 01/02/2020 07:11:37

Gracias amigo, fenomenal!

Tuve que hacer algunas modificaciones pero me has salvado. Por cierto, los datos cuando se van al block de notas quedan con cierto espacio respecto al borde.. sabes si hay alguna forma de corregirlo?

Te agradezco mucho tu apoyo y el hecho de tomarte el tiempo de ayudarme.

Este fue el código final.

Sub convertidor_txt()

    Dim Fila As Long, Colu As Long, Ruta As String, File As String

    Const Text_1 = "¿Quiere Guardar el fichero: "

    Const Text_2 = vbYesNo + vbQuestion

    Const Text_3 = "GUARDAR"

    Fila = 1

    Colu = ActiveCell.Column

    Ruta = "C:\Users\Usuario\Desktop\pruebas\"

    If Not Cells(Fila, Colu) = Empty Then

        File = Format(Cells(1, Colu), "dd-mmm") + ".txt"

        If MsgBox(Text_1 & File, Text_2, Text_3) = vbYes Then

            lastrow = Cells(Rows.Count, Colu).End(xlUp).Row

            Ruta = Ruta + File

            Open Ruta For Output As #1

                For i = 1 To lastrow

                    Print #1, Cells(i + 1, Colu).Value

                   Next i

                Close #1

            MsgBox "Fichero guardado.", vbInformation + vbOKOnly, "Fin Macro"

        End If

    End If

End Sub

Saludos, Mil gracias!

Valora esta respuesta

Comentar

Mantener valor anterior de una celda.-

Es sumar.si.conjunto la formula ideal para esto?