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: Dialog, box, message, mensagem, diálogo, caixa
Nenhum comentário:
Postar um comentário