Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Abrir Pasta de documentos com um botao

Ir para baixo 
2 participantes
AutorMensagem
RaphaelMaciel




Mensagens : 3
Data de inscrição : 16/08/2012

Abrir Pasta de documentos com um botao Empty
MensagemAssunto: Abrir Pasta de documentos com um botao   Abrir Pasta de documentos com um botao EmptyQui Ago 16, 2012 4:19 pm

Olá, estou desenvolvendo um sisteminha e gostaria de uma ajuda!

Eu tenho um botao no meu formulario e quero somente que ele abra uma pasta onde estarao varios arquivos. Achei varios exemplos que abrem outros arquivos, mas somente a pasta nao achei.

Segue um pedaço do que eu criei mas ele dá ele de acesso na pasta, porque é uma pasta de rede!

Private Sub CommandButton1_Click()
Dim sPasta As String
Dim wb As Workbook
Dim vResultado

'Mude os parâmetros abaixo de acordo com suas necessidades
sPasta = ThisWorkbook.Path

Set wb = Workbooks.Open("S:\PT\Inter_Setor\12_CtP_Pentagono_Eletronico\99. Desenvolvimento")

End Sub

Obrigado pela ajuda
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Abrir Pasta de documentos com um botao Empty
MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Abrir Pasta de documentos com um botao EmptySex Ago 17, 2012 4:55 am

Boa noite!!

Eu ainda não entendi...
Exemplo:

Código:
Sub OpenFiles()
Dim sDir As String
Dim sPath As String

sPath$ = "c:\Test"
sDir$ = Dir(sPath, vbDirectory)
If sDir = "" Then
MsgBox "Path " & sDir & " Not Found"
End
End If
sDir$ = Dir(sPath & "\*.txt")
Do Until sDir = ""
your code to open text file here
Loop

End Sub

Código:
Sub OpenFiles()
Dim oFso As Object, oFolder As Object, oFile As Object
Dim wbMain As Workbook, wbTemp As Workbook
Dim stName As String
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    Set wbMain = ActiveWorkbook
    Set oFso = CreateObject("Scripting.FileSystemObject")
    'your folder path in line below
    Set oFolder = oFso.GetFolder("C:\temp\")
   
    For Each oFile In oFolder.Files
        Workbooks.Open oFile
        Set wbTemp = ActiveWorkbook
        stName = Left(ActiveWorkbook.Name, 31)
        wbTemp.Sheets(1).Name = stName
Ir para o topo Ir para baixo
RaphaelMaciel




Mensagens : 3
Data de inscrição : 16/08/2012

Abrir Pasta de documentos com um botao Empty
MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Abrir Pasta de documentos com um botao EmptySex Ago 17, 2012 3:21 pm

Olá. Bom dia!

Eu estou tentando criar um código que através do botao do meu formulário eu consiga somente abrir uma pasta de rede, não quero abrir nenhum arquivo em especifico com o codigo desse botao.

Quero abrir uma pasta, essa pasta terá vários arquivos e a pessoa vai escolher qual vai abrir. Com esse botao só quero facilitar para que encontre mais facil a pasta.

Abraaaaço
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Abrir Pasta de documentos com um botao Empty
MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Abrir Pasta de documentos com um botao EmptySex Ago 17, 2012 3:23 pm

Bom dia!!

Tente
Código:
Sub Botão1_Clique()

    Dim b As Variant
    b = Application.GetOpenFilename("files,*", _
    1, "Selecione Para Abrir o Arquivo", , False)
    If TypeName(b) = "Boolean" Then Exit Sub
   
End Sub
Ir para o topo Ir para baixo
RaphaelMaciel




Mensagens : 3
Data de inscrição : 16/08/2012

Abrir Pasta de documentos com um botao Empty
MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Abrir Pasta de documentos com um botao EmptySex Ago 17, 2012 3:31 pm

Ola alexandre!

Funcionou, o único problema é que está abrindo a pasta meus documentos! onde eu posso colocar o endereço da minha pasta especifica, para abrir direto??
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Abrir Pasta de documentos com um botao Empty
MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Abrir Pasta de documentos com um botao EmptySáb Ago 18, 2012 3:47 am

Boa noite!!

Veja a resposta em www.Planilhando.com.br
Ir para o topo Ir para baixo
Conteúdo patrocinado





Abrir Pasta de documentos com um botao Empty
MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Abrir Pasta de documentos com um botao Empty

Ir para o topo Ir para baixo
 
Abrir Pasta de documentos com um botao
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Origem de Dados em Pasta de Trabalho
» Compartilhar pasta de trabalho em rede
» Inserir fotografias a partir de pasta
» Copiar e Colar para outra pasta
» Importar Dados de sub-pasta com diversas condições

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: