0135-Utilizando caixas de diálogo do Excel em macros

Embora possamos utilizar os UserForms do Excel para criarmos interfaces personalizadas para melhorar a interação dos usuários com os códigos de macro, é possível também utilizar as caixas de diálogos nativas do Excel tais como Abrir Arquivo ou Salvar Como.
Nos exemplos a seguir não são executadas as ações de abrir ou salvar o arquivo, mas sim geradas cadeias de texto que representam os nomes dos arquivos. Estes strings podem ser usadas para as funcionalidades desejadas durante a execução dos códigos.

Exemplo de utilização utilizando a caixa de diálogo Abrir

Sub ExibirCaixaAbrir()

Dim Filtro As String
Dim Titulo As String
Dim Arquivo

Filtro = "Arquivos do Excel (*.xl*), *.xl*"
Titulo = "Selecionar arquivo"

Arquivo = Application.GetOpenFilename(FileFilter:=Filtro, _
Title:=Titulo, MultiSelect:=True)
MsgBox "Arquivos selecionados:" & vbLf & Join(Arquivo, vbLf)

End Sub

Comenttários:

– É possível selecionar múltiplos arquivos, pois o parâmetro MultiSelect foi definido como True

– Quando múltiplos arquivos são selecionados, ficam armazenados em um vetor de Strings

– O método Join foi utilizado para fundir os diferentes elemtnos do vetor numa única cadeia de texto.

Exemplo de utilização da caixa Salvar Como

Sub ExibirCaixaSalvarComo()

Dim Filtro  As String
Dim Titulo  As String
Dim Nome    As String
Dim Arquivo As String


Filtro = "Arquivos do Excel (*.xl*), *.xl*"
Titulo = "Especifique o nome do arquivo"

Arquivo = Application.GetSaveAsFilename(Filtro, Título)

MsgBox "Nome para salvamento :" & vbLf & Arquivo


End Sub
Anúncios

In Excel We Trust

Marcado com: , , , ,
Publicado em Nível: Avançado

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 2,077,129

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.537 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: