Abrir pasta especifica com OpenDialog

2024 - VBA & Macros

Post Recente por Duvidoso 8 anos atrás

4 Posts

2 Usuários

0 Reactions

1,146 Visualizações

RSS

Duvidoso

(@duvidoso)

Posts: 35

Eminent Member

Topic starter

Bom dia!

Gostaria que o fileDialog de seleção de arquivo já abrisse em uma pasta especifica, por exemplo o código abaixo.

Set fDialog = Application.fileDialog(msoFileDialogFilePicker)
    With fDialog
        .AllowMultiSelect = False 'Seleção de múltipla?
        .Title = "Selecionar Arquivo"
        .Filters.Clear
        '.Filters.Add "Arquivos Excel - .xls", "*.xls"
        If .Show = True Then
            Caminho = .SelectedItems.Item(1)
            sNomeArquivo = Dir(Caminho)
            Cadastrar_arquivo = sNomeArquivo 
        End If
    End With

No caso ele abre em qualquer pasta a janela, queria que ja abrisse por exemplo em c:userdesktop entendem. Ai os arquivos ja estarão nesta pasta

Postado : 28/02/2017 7:45 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Acrescente essa linha antes de abrir a caixa de dialogos abrir

Chdir "Caminho para a pasta"

Exemplo se for para abrir na pasta clientes em C

ChDir "C:Clientes"

Seu codigo aqui.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 28/02/2017 8:13 am

Duvidoso

(@duvidoso)

Posts: 35

Eminent Member

Topic starter

Colega não funfo, olha o código abaixo Coloquei tanto dentro da SUB como antes a até na função

Private Sub cadastrar_NomeArquivo_Click() 'Pegar nome arquivo e inserir na Box Arquivo
ChDir "Z:Clientes"
Dim Caminho As String 'Caminho do arquivo
Dim fDialog As Office.fileDialog
Dim nome As Variant
Dim sNomeArquivo As String
Set fDialog = Application.fileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False 'Seleção de múltipla?
.Title = "Selecionar Arquivo"
.Filters.Clear
'.Filters.Add "Arquivos Excel - .xls", "*.xls" 'Caso queira Filtros
If .Show = True Then
Caminho = .SelectedItems.Item(1)
sNomeArquivo = Dir(Caminho)
Cadastrar_arquivo = sNomeArquivo 'Insere o Nome na Box
End If
End With
End Sub