Notifications
Clear all
2024 - VBA & Macros
3
Posts
2
Usuários
0
Reactions
833
Visualizações
Topic starter
Bom dia, como eu faço para salvar uma planilha em diferentes micros sempre no mesmo local?
Explicando melhor, pelo que sei, cada PC tem um nome diferente, somente o C: é padrão em qq micro.
Queria que salvasse em uma pasta(a ser criada em C:) a planilha em formato PDF.
O nome da pasta para salvar seria Planilhas a imprimir, por exemplo.
Como montar essa macro?
Grato
Jaime
Postado : 05/02/2016 5:52 am
Essas duas macros estão interligadas é iniciada a sub salvar e ele pula para sub criapasta tenta criar a pasta se houver a pasta da erro mas com o tratamento de erro volta para a sub Salvar para exportar a planilha ativa com o nome de Seu documento.pdf
Sub criarPasta() On Error GoTo errado Dim NovaPasta As String NovaPasta = "C:Planilhas a imprimir" MkDir NovaPasta errado: Exit Sub End Sub Sub Salvar() criarPasta ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:Planilhas a imprimirSeu documento.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub
Postado : 05/02/2016 8:10 am
Topic starter
Caramba... muito 10!!!
Já cria o diretório, eu ia criar manualmente... mas assim fica bem mais fácil...
VAleu!!
Postado : 05/02/2016 8:33 am