Jump to content

Browse folder


Recommended Posts

Boa tarde caríssimos,

estou desenvolvendo uma pequena aplicação ( Sistema de gestão de notas técnicas) em VBA e pretendo colocar no botão "Browse", um evento que ira abrir a janela de selecção de directorios e ficheiros, para posteriormente guardar o caminho do ficheiro seleccionado numa célula em forma de link ou mesmo guardar o próprio ficheiro na célula.

Obrigado pela atenção.

🙂

Link to comment
Share on other sites

Óptimo, e exactamente isto que eu quero, mas ainda há um problema.

ele não esta a reconhecer nenhum ficheiro para carregar... não sei se há alguma propriedade que devo activar no próprio browse (FileDialogFolder).

eu queria que ele anexasse ficheiros de qualquer extensão (Ex: .xls, .doc, .txt, ...) e guardasse o caminho numa textbox.

algo parecido com:


me.txtCaminho = Application.FileDialog(msoFileDialogFolderPicker)

a path do ficheiro a ser carregado seja guardada no txtCaminho.

Obrigado. 😁

Link to comment
Share on other sites

É só alterar de msoFileDialogFolderPicker para msoFileDialogFilePicker (e adicionar os filtros)

 
With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "Microsoft Excel", "*.xls"
        .Filters.Add "Microsoft Word", "*.doc"
        
        .Show
        
        If .SelectedItems.Count > 0 Then
            MsgBox .SelectedItems(1)
        End If
End With
Link to comment
Share on other sites

Obrigado mestre.

o problema na verdade era do método.

em vez de      Application.FileDialog(msoFileDialogFolderPicker)

tem que ser  Application.FileDialog(msoFileDialogFilePicker)

para poder reconhecer os ficheiros que se encontram no directorio.

mais uma vez, muito obrigado pela ajuda.

Valeu!

fique bem.

😁

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.