Como prometido estou postando alguns comandos úteis que podem facilitar a vida vcs com Macros e VBA, segue abaixo:
'Fecha o arquivo "NomeDoArquivo" sem salvar
Workbooks("NomeDoArquivo").Close False
'Fecha o arquivo "NomeDoArquivo" salvando
Workbooks("NomeDoArquivo").Close true
'Abre o programa "Google Chrome" (para abrir outro arquivo
basta alterar o caminho)
Shell ("C:\Program
Files\Google\Chrome\Application\chrome.exe")
'Abre outra planilha, no caso "Pasta1"
Workbooks.Open "C:\Users\AVELL\Desktop\Pasta1.xlsx"
'Exibir tela inteira
Application.DisplayFullScreen = True
'Abri a planilha teste localizada em “C:\” . Para abrir outra planilha
basta mudar caminho e nome do arquivo
Workbooks.Open Filename:="C:\Teste.xlsm"
'Abri pasta
de trabalho teste localizada na unidade C:
Shell
"C:\teste"
'Salva a área de trabalho da planilha em PDF, no endereço destinado.
ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\
" & “Teste” & ".pdf"
Lembrando que cada um desses comandos precisa estar entre o "SUB e o "END SUB" ou dentro de um controle ActiveX, na guia desenvolvedor...
Forte abraço e até a próxima!
Prof. Darlan
Sem comentários:
Enviar um comentário