Comprar Coleção de 15.000 Macros, Funções e Fórmulas do Excel         Dicas 


Pergunta:
É possível escrever uma Macro que abra no Drive A: a janela "File Open" para que o Usuário escolha um dentre os arquivos do tipo .xls disponíveis ? E se o Usuário desistir da tarefa teclando Cancel ? Como proceder ?

Resposta:

Sub CapturandoFileName( )
ChDir "A:" <file:///A:/>
FileToOpen = _
Application.GetOpenFilename(filefilter:="Excel Files(*.xls),", _
MultiSelect:=True)
z = TypeName(FileToOpen)
MsgBox z
Select Case z
Case "Boolean"
MsgBox "Você Teclou Cancel"
Case "Variant( )"
MsgBox "Você Fez uma Seleção Simples"
End Select
End Sub