Views

Histats

Vitrine

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

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


A&A® - Work smart, not hard.

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...