Lição 13: O Objeto Application - Propriedades e Métodos - Parte III
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.
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.
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.
Voltar ao início
| PRODUTOS RELACIONADOS - EXCEL |
| LIVROS |
VÍDEO-AULAS |
E-BOOKS |
|
|
|
|
|
|
|
Uma verdadeira especialização em Office, com 6208 páginas de conteúdo que vai do básico ao avançado, detalhadamente explicado e exemplificado. Desde os recursos básicos, passando pelos recursos avançados, pela criação de macros e pela automação de tarefas usando programação VBA.
Apenas: R$ 195,00 (valor do frete já incluído)
CLIQUE AQUI PARA SABER COMO COMPRAR ESTE CD |
|
CD-01
