Como: Exibir uma caixa de diálogo para abrir arquivos do Excel
O código a seguir solicita que os usuários abram uma nova pasta de trabalho do Excel de Microsoft Office. Define propriedades para permitir várias seleções, limpa a lista de filtros disponíveis e adiciona dois novos filtros. O código, em seguida, chama o Execute método da FileDialog o objeto para abrir os arquivos solicitados.
Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Excel 2007 e Excel 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.
Exemplo
With Me.Application.FileDialog(Microsoft.Office.Core.MsoFileDialogType.msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Clear()
.Filters.Add("Excel Files", "*.xls;*.xlw")
.Filters.Add("All Files", "*.*")
If .Show = True Then
.Execute()
End If
End With
Microsoft.Office.Core.FileDialog fd =
this.Application.get_FileDialog(Microsoft.Office.Core.MsoFileDialogType.msoFileDialogOpen);
fd.AllowMultiSelect = true;
fd.Filters.Clear();
fd.Filters.Add("Excel Files", "*.xls;*.xlw", missing);
fd.Filters.Add("All Files", "*.*", missing);
if (fd.Show() != 0)
{
fd.Execute();
}
Consulte também
Tarefas
Como: Lista os arquivos da pasta de trabalho usados recentemente
Como: Pastas de trabalho abertas
Como: Ativar as pastas de trabalho