VBA Excel - Caixa de Diálogo

Olá mais uma vez...

Segue código pronto para o COPIAR e COLAR (do jeito que eu gosto). Abra a caixa de diálogo e escolha o arquivo que desejar para o propósito que preferir. E porque não voltar ao básico? Isso é perfeito! Revemos o princípio e melhoramos o presente com excelentes perspectivas para o futuro.

Primeira opção

Dim strFilePath As String, strPath As String Dim fdgO As FileDialog, varSel As Variant MsgBox "A tabela não está correta, " & _ "e o arquivo de dados não pôde ser achado na respectiva pasta: " & _ strPath & ". Por favor,localize a pasta que contenha dados de exemplo " & _ ".: Dialog.", vbInformation, gstrAppTitle Set fdgO = Application.FileDialog(msoFileDialogFilePicker) With fdgO .AllowMultiSelect = False .Title = "Localize a pasta com dados de exemplo" .ButtonName = "Escolha" .Filters.Clear .Filters.Add "All Files", "*.*", 1 .FilterIndex = 1 .InitialFileName = strPath .InitialView = msoFileDialogViewDetails If .Show = 0 Then MsgBox "Houve falha para selecionar o arquivo correto. ATENÇÃO: " & _ "Você talvez não tenha aberto uma tabela conectada a aplicação. " & _ " Você pode re-abrir este formulário ou " & _ "inicie o formulário, tentando novamente.", vbCritical, gstrAppTitle Let CheckConnect = False Exit Function End If Let strFilePath = .SelectedItems(1) End With Let strPath = Left(strFilePath, InStrRev(strFilePath, "\") - 1) Let varSel = AttachAgain(strPath)

Segunda opção

Sub GetDat () ' Posiciona num local específico. ChDrive "C: \" ChDir "C: \ Teste \" Let FileToOpen = Application.GetOpenFilename _ (Title:="Por favor escolha o arquivo a importar:", FileFilter:="Arquivos Excel *.xls (*.xls),")'' If FileToOpen = False Then MsgBox "Arquivo não especificado!", vbExclamation, "Duh!!!" Exit Sub Else Workbooks.Open Filename:=FileToOpen End If End Sub

Fontes: https://sites.google.com/site/vbabernardes/blogs http://www.mrexcel.com

Tags: André Luiz Bernardes, Analista, Programador VBA, MOS, Microsoft Office Specialist, VBA, Visual Basic for Applications, MS, Microsoft, Office, MS Office, MS Access, MS Excel, MS Outlook, MS Powerpoint, MS Word, MS Visio, MS Communicator, MS OneNote, MS Publisher, InfoPath, SharePoint Workspace, Lync

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com