✔ Programação GLOBAL®: PIECE OF CAKE - MS Excel - Zipando - Compacte no formato Zip usando o programa padrão do Windows - Zip file(s) with the default Windows zip program (VBA)

PIECE OF CAKE - MS Excel - Zipando - Compacte no formato Zip usando o programa padrão do Windows - Zip file(s) with the default Windows zip program (VBA)

Copie o código abaixo num módulo padrão de sua planilha.

O código abaixo não é suportado pela Microsoft.
Não é possível ocultar a caixa de diálogo de cópia quando copia para uma pasta zip (isso só funciona com pastas normais, até onde eu sei). Também não há possibilidade de evitar que alguém possa cancelar a operação ou que seu código VBA notifique algo caso a operação seja cancelada.

Não redimensione, por exemplo, FileNameZip como String nos exemplos de código. Essa deve ser Variant, caso contrário, o código não funcionará.

Sub NewZip (sPath)
    If Len(Dir(sPath)) > 0 Then Kill sPath


    Open sPath For Output As #1


    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)


    Close #1
End Sub


Function bIsBookOpen (ByRef szBookName As String) As Boolean

    On Error Resume Next


    bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing)
End Function

Function Split97 (sStr As Variant, sdelim As String) As Variant
    Let Split97 = Evaluate("{""" & _
                       Application.Substitute(sStr, sdelim, """,""") & """}")
End Function

Veja também: