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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Abrir Pasta de documentos com um botao

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
RaphaelMaciel



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

MensagemAssunto: Abrir Pasta de documentos com um botao   Qui 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Sex 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
RaphaelMaciel



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

MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Sex 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Sex 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
RaphaelMaciel



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

MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Sex 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??
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Sab Ago 18, 2012 3:47 am

Boa noite!!

Veja a resposta em www.Planilhando.com.br
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Abrir Pasta de documentos com um botao   Hoje à(s) 5:43 pm

Voltar ao Topo Ir em baixo
 
Abrir Pasta de documentos com um botao
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Abrir pasta especifica via VBA
» [Tutorial]Conhecendo e aprendendo a usar patch, keygen, keymaker, crack, etc
» [resolvido]letras do sonic na pasta do jogo
» Abrir o navegador em uma página da internet
» Como carregar musicas de uma pasta selecionada?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: