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
⬛◼◾▪ CONTATO ▪◾◼⬛
