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
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