RaphaelMaciel
Mensagens : 3 Data de inscrição : 16/08/2012
| Assunto: 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 | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
RaphaelMaciel
Mensagens : 3 Data de inscrição : 16/08/2012
| Assunto: 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 | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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
| |
|
RaphaelMaciel
Mensagens : 3 Data de inscrição : 16/08/2012
| Assunto: 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?? | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Abrir Pasta de documentos com um botao Sáb Ago 18, 2012 3:47 am | |
| Boa noite!!
Veja a resposta em www.Planilhando.com.br | |
|
Conteúdo patrocinado
| Assunto: Re: Abrir Pasta de documentos com um botao | |
| |
|