UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Manuel TR


Buenas tardes,
Tengo una macro que genera un "txt", pero necesito que esta a su vez se 
se comprima "ZIP", es decir que al momento de ejecutar la macro genere el archivo "txt" ya comprimido.

Gracias
Archivos
Importador Resumen.xlsm
No tienes los permisos para descargar los archivos.
(229 KB)



Última edición por Manuel TR el 06/12/16, 08:17 pm, editado 1 vez (Razón : falta de informacion)

sisvidal


Hola Amigo, pudiste
comprimir el txt?

Manuel TR


Hola amigo la verdad no de la forma que quisiera

sisvidal


aquí encontré algo pero no puedo conseguir para poner la ruta, esta macro hace que seleccione el archivo y no deseo eso.

http://www.programarexcel.com/2015/10/macro-de-excel-que-comprime-archivos-en.HTML

haber si podrías compartir tu código de macro.

Manuel TR


Es lo mismo que hago selecciono desde Excel el archivo y comprime solo que lo adapte para que la macro se ejecute en un tiempo es decir genera el archivo txt y con la misma me pide seleccionar el archivo a comprimir,si te parece bien me avisas o si deseas q t apoye déjame tu correo o Facebook para que la comunicación sea mas fluida.

sisvidal


logré generarlo, la ruta lo puedes colocar con variables para que tome de tu archivo. como ya tiene uno que te genera el txt, luego tiene que comprimir con este código.

Sub ComprimirArchivosZip()
    Dim ShellApp As Object
    Dim FileNameZip As Variant
    Dim i As Long, FileCount As Long
    Dim RutaTxt As Variant
    Dim nArch As Variant
   
'   Ruta y Nombre del Archivo txt

    nArch = ("D:\VIDAL\Macros\20517932346-20-20161031-3.txt")
    nArchZip = ("D:\VIDAL\Macros\20517932346-20-20161031-3.zip")
    
    FileNameZip = nArchZip
'   Crear archivo Zip vacío...
    Open FileNameZip For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1

    Set ShellApp = CreateObject("Shell.Application")

'   Copia los archivos a la carpeta comprimida
        ShellApp.Namespace(FileNameZip).CopyHere nArch

    On Error Resume Next
    Do Until ShellApp.Namespace(FileNameZip).items.Count = FileCount
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    
    If MsgBox(FileCount & " Los archivos se han comprimido en:" & _
       vbNewLine & FileNameZip & vbNewLine & vbNewLine & _
       " Quieres ver el archivo zip?", vbQuestion + vbYesNo) = vbYes Then _
       Shell "Explorer.exe /e," & FileNameZip, vbNormalFocus
      
End Sub

Manuel TR


A ver si te entiendo quieres que a la macro que me has enviado lo enlace por decirlo así con la macro para generar el txt???

sisvidal


a la macro de txt de adicionas con "call ComprimirArchivosZip"
de tal manera que luego que generas el txt comience a comprimir

Manuel TR


La macro q m has enviado no corre m salta un error en open filenamezip for púrpura as #1

Manuel TR


La macro q m has enviado no corre m salta un error en open filenamezip for output as #1

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.