Curso Grátis de Excel Avançado com Júlio Battisti - O Objeto Application - Propriedades e Métodos

Método FindFile:

Esse método exibe a caixa de diálogo Abrir.

Sintaxe:

expressão.FindFile

expressão: Obrigatória. Uma expressão que retorne um objeto Application.

Comentários: Este método exibe a caixa de diálogo Abrir e permite que o usuário abra um arquivo. Se um novo arquivo for aberto com sucesso, esse método retornará True. Se o usuário cancelar a caixa de diálogo, este método retornará False.

Este exemplo exibe a caixa de diálogo Abrir:

Application.FindFile

Método GetOpenFilename:

Esse método exibe a caixa de diálogo Abrir padrão e obtém um nome de arquivo do usuário sem realmente abrir nenhum arquivo.

Sintaxe:

expressão.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

expressão: Obrigatória. Uma expressão que retorna um objeto Application.

FileFilter: Variant opcional. Uma seqüência que especifica critérios de filtragem do arquivo.

Esta seqüência consiste em pares de seqüências de filtro de arquivo seguidas pela especificação de arquivo curinga do MS-DOS, com cada parte e cada par separados por vírgulas. Cada par separado é listado na caixa de listagem suspensa Arquivos do tipo. Por exemplo, a seguinte seqüência especifica dois filtros de arquivo-texto e suplemento:

"Arquivos de texto (*.txt),*.txt,Arquivos de suplemento (*.xla),*.xla"

Para usar várias expressões curingas do MS-DOS para um único tipo de filtro, separe as expressões curinga com pontos-e-vírgulas; por exemplo, "Arquivos do Visual Basic (*.bas; *.txt),*.bas;*.txt".

Se omitido, o padrão desse argumento será "Todos os arquivos (*.*),*.*".

FilterIndex: Variant opcional. Especifica os números de índice dos critérios padrão de filtragem de arquivo, de 1 até o número de filtros especificado em FileFilter. Se esse argumento for omitido ou for superior ao número de filtros presentes, o primeiro filtro de arquivo será usado.

Title: Variant opcional. Especifica o título da caixa de diálogo. Se esse argumento for omitido, o título será "Abrir".

ButtonText: Variant opcional. Somente para computadores Macintosh.

MultiSelect: Variant opcional. True para permitir que vários nomes de arquivo sejam selecionados. False para permitir que somente um nome de arquivo seja selecionado. O valor padrão é False.

Comentários: Esse método retorna o nome de arquivo selecionado ou o nome fornecido pelo usuário. O nome retornado pode incluir uma especificação de caminho. Se MultiSelect for True, o valor de retorno será uma matriz dos nomes de arquivo selecionados (mesmo que somente um nome de arquivo seja selecionado). Retorna False se o usuário cancelar a caixa de diálogo.

Esse método pode alterar a unidade ou pasta atual.

Exemplo do método GetOpenFilename:

Este exemplo exibe a caixa de diálogo Open, com o filtro de arquivo definido para arquivos de texto. Se o usuário escolher um nome de arquivo, o código exibirá esse nome de arquivo em uma caixa de mensagens.


					fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")

					If fileToOpen <> False Then

					   MsgBox "Arquivo selecionado: " & fileToOpen

					End If

Método SendKeys

Esse método envia pressionamentos de teclas para o aplicativo ativo.

Sintaxe

expressão .SendKeys(Keys,Wait)

expressão: Opcional. Uma expressão que retorne um objeto Application .

Keys: Variant obrigatória. A tecla ou combinação de teclas que você deseja enviar para o aplicativo, na forma de texto.

Wait: Variant opcional. True para que o Microsoft Excel espere que as teclas sejam processadas antes de devolver o controle à macro. False (ou omitido) para continuar a executar a macro sem esperar que as teclas sejam processadas.

Comentários: Este método coloca os pressionamentos de teclas em uma memória intermediária de teclas. Em alguns casos, você precisa chamar esse método antes de chamar o método que irá usar os pressionamentos de teclas. Por exemplo, para enviar uma senha para uma caixa de diálogo você precisa chamar o método SendKeys antes de exibir a caixa de diálogo.

O argumento Keys pode especificar qualquer tecla única ou qualquer tecla combinada com ALT, CTRL ou SHIFT (ou qualquer combinação dessas teclas). Cada tecla é representada por um ou mais caracteres, tais como "a" para o caractere a, ou "{ENTER}" para a tecla ENTER.

Para especificar caracteres que não são exibidos quando você pressiona a tecla correspondente (por exemplo, ENTER ou TAB), use os códigos listados na tabela seguinte. Cada código da tabela representa uma tecla no teclado.

Tecla	Código
BACKSPACE	{BACKSPACE} ou {BS}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
CLEAR	{CLEAR}
DELETE ou DEL	{DELETE} ou {DEL}
SETA PARA BAIXO	{DOWN}
END	{END}
ENTER (teclado numérico)	{ENTER}
ENTER	~ (til)
ESC	{ESCAPE} ou {ESC}
HELP	{HELP}
HOME	{HOME}
INS	{INSERT}
SETA PARA ESQUERDA	{LEFT}
NUM LOCK	{NUMLOCK}
PAGE DOWN	{PGDN}
PAGE UP	{PGUP}
RETURN	{RETURN}
SETA PARA DIREITA	{RIGHT}
SCROLL LOCK	{SCROLLLOCK}
TAB	{TAB}
SETA PARA CIMA	{UP}
F1 a F15	{F1} a {F15}

Você também pode especificar teclas combinadas com SHIFT e/ou CTRL e/ou ALT. Para especificar uma tecla combinada com uma outra tecla ou teclas, use a tabela seguinte.

Para combinar uma tecla com:	Preceda o código da tecla com:
SHIFT	+ (sinal de mais)
CTRL	^ (circunflexo)
ALT	% (sinal de porcentagem)

Exemplo do método SendKeys:

Este exemplo usa o método SendKeys para encerrar o Microsoft Excel.

Application.SendKeys("%ar")

%a -> Alt+A -> Abre o menu arquivo.

R -> Seleciona o comando Sair.

Com isso encerramos o estudo dos principais métodos e propriedades do objeto Application. A partir da Próxima lição passaremos a estudar os principais métodos e propriedades do objeto Workbook.

Curso Grátis de Excel Avançado - Módulo 6 - Lição: O Objeto Application - Propriedades e Métodos - Parte 3

Método FindFile:

Método GetOpenFilename:

Método SendKeys

Exemplo do método SendKeys:

Módulo 6 - VBA - O Modelo de Objetos do Excel:

contato