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:

• MS Excel - Zipando - Abra uma Janela e Escolha os Arquivos que deseja Compacatar
• MS Excel - Zipando - Escolha uma Pasta e Compacte Tudo Nela
• MS Excel - Zipando - Compacte Todos os Arquivos Contidos na Pasta Informada no Código
• MS Excel - Zipando - Compactando a Planilha Atual
• MS Excel - Zipando - Compactando e Enviando por e-Mail

#A&A #PIECEOFCAKE #POC #VBA #RondeBruin #MS #Excel

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com