Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

Capítulo 15: Caixas de Diálogo Simples
249
Tabela 15-6 Argumentos do Método GetSaveAsFilename
Argumento
InitialFileName
FileFilter
FilterIndex
Title
O Que Ele Faz
Especifica um nome de arquivo padrão que aparece na caixa
(de diálogo) FileName.
Determina os tipos de arquivos que o Excel exibe na caixa de
diálogo (por exemplo, *.TXT). Você pode especificar vários
filtros diferentes a partir dos quais o usuário pode escolher.
Determina qual dos filtros de arquivo o Excel exibe por padrão.
Define uma legenda para a barra de título da caixa de diálogo.
Como Obter um Nome de Pasta
Às vezes, você não precisa obter um nome de arquivo, só precisa de um
nome de pasta. Se esse for o caso, o objeto FileDialog é exatamente o
que o médico recomendou.
O seguinte procedimento exibe uma caixa de diálogo que permite ao
usuário selecionar um diretório. O nome do diretório selecionado (ou
“Cancelado”) é então exibido, usando a função MsgBox.
Sub GetAFolder()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & “\”
.Title = “Please select a location for the backup”
.Show
If .SelectedItems.Count = 0 then
MsgBox “Cancelado”
Else
MsgBox .SelectedItems(1)
End If
End With
End Sub
O objeto FileDialog permite que você especifique o diretório de início,
especificando um valor para a propriedade InitialFileName. Neste caso, o
código usa o caminho de arquivo padrão do Excel como o diretório inicial.