MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Abrir diretório de uma pasta

    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty [Resolvido]Abrir diretório de uma pasta

    Mensagem  lerasmo 5/7/2022, 19:14

    Boa tarde senhores!
    Em um aplicativo desenvolvido em access 2003 tinha um procedimento para gravar em um modelo word e depois abrir a pasta exibindo
    todos os arquivos gravados.
    A gravação está funcionando bem, mas a abertura do diretório não funciona mais.
    O procedimento é o seguinte:

    Private Sub Comando95_Click()
       Dim strCaminho As String, strPastaInicial As String
       strPastaInicial = "C:\SIB\Informações 2022"
       strCaminho = Buscar(Me.hWnd, "Selecionar arquivo", strPastaInicial, _
       "Arquivos Word(*.docx)" & vbNullChar & "*.docx")
       If Len(strCaminho) > 0 Then
       Call Shell("explorer.exe " & strCaminho, vbMaximizedFocus)
       End If

    End Sub

    Será que o exporer.exe está em outro local no windows 10?
    Saudações
    Luiz


    Última edição por lerasmo em 8/7/2022, 13:14, editado 1 vez(es) (Motivo da edição : Alterar título)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Abrir diretório de uma pasta Empty Re: [Resolvido]Abrir diretório de uma pasta

    Mensagem  Marcelo David 7/7/2022, 14:47

    Olá,
    lerasmo escreveu:...depois abrir a pasta exibindo todos os arquivos gravados...
    O que você pretende é abrir a pasta e não o word. Poderia por gentileza corrigir seu título para facilitar nas pesquisas?

    Vamos a sua questão:
    nas versões (se não engano) a partir da 2007 temos o FollowHyperlink.

    Dessa forma seu código fica assim:

    Código:
    Private Sub Comando95_Click()
         Dim strCaminho As String, strPastaInicial As String
         strPastaInicial = "C:\SIB\Informações 2022"
         strCaminho = Buscar(Me.hWnd, "Selecionar arquivo", strPastaInicial, _
         "Arquivos Word(*.docx)" & vbNullChar & "*.docx")
         If Len(strCaminho) > 0 Then
                 application.FollowHyperlink strCaminho
         End If
    End Sub


    .................................................................................
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir diretório de uma pasta Marcel11
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 8/7/2022, 13:20

    Bom dia Marcelo David!
    Não conhecia o FollowHyperlink.
    Apliquei o seu código mas infelizmente Não funcionou.
    Pensei que pudesse ser uma falta de referência, mas o procedimento para
    criar um arquivo word baseado em um modelo funciona.
    Para esse procedimento precisaria selecionar alguma outra biblioteca.
    A propósito, alterei o título.
    Atenciosamente,
    Luiz
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Abrir diretório de uma pasta Empty Re: [Resolvido]Abrir diretório de uma pasta

    Mensagem  Marcelo David 8/7/2022, 14:07

    Que erro ocorreu?


    .................................................................................
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir diretório de uma pasta Marcel11
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Re: [Resolvido]Abrir diretório de uma pasta

    Mensagem  lerasmo 8/7/2022, 15:32

    Nao da' erro, mas nao executa nada.
    Obrigado pela atençao.
    Sudaçoes,
    Luiz
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Abrir diretório de uma pasta Empty Re: [Resolvido]Abrir diretório de uma pasta

    Mensagem  Marcelo David 8/7/2022, 15:50

    Vamos ver o conteúdo da variável strCaminho:

    Execute novamente com o código abaixo, veja o caminho que será exibido na MsgBox.
    Confronte se ele existe. Se a MsgBox vier vazia, então não está recendo o caminho corretamente...

    Faça o seguinte:

    Código:
    Private Sub Comando95_Click()
          Dim strCaminho As String, strPastaInicial As String
          strPastaInicial = "C:\SIB\Informações 2022"
          strCaminho = Buscar(Me.hWnd, "Selecionar arquivo", strPastaInicial, _
          "Arquivos Word(*.docx)" & vbNullChar & "*.docx")
          MsgBox strCaminho
          If Len(strCaminho) > 0 Then
                  application.FollowHyperlink strCaminho
          End If
    End Sub


    .................................................................................
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir diretório de uma pasta Marcel11
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 8/7/2022, 18:10

    Boa tarde Marcelo!
    É, tem alguma coisa errada.
    O strCaminho está contendo "Microsoft Access".
    Vou examinar outra vez o código para ver se consigo entender.
    Gracias,
    Luiz
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 8/7/2022, 18:44

    Continuo examinando o código e pensando: Hã! Hã!
    De vez em quando penso que o VBA é candomblé.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Abrir diretório de uma pasta Empty Re: [Resolvido]Abrir diretório de uma pasta

    Mensagem  Marcelo David 11/7/2022, 12:23

    O erro deve estar na função Buscar.
    Use o FileDialog do próprio Office.

    Veja como usa nesse tópico:
    https://www.maximoaccess.com/t8306-resolvidouso-do-application-filedialog-para-selecao-de-arquivos


    .................................................................................
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir diretório de uma pasta Marcel11
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 11/7/2022, 12:48

    Bom dia, Marcelo David!
    Sua ajuda foi meu presente de aniversário.
    Vou estudar com atenção os tópicos.
    Saudações,
    Luiz
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Abrir diretório de uma pasta Empty Re: [Resolvido]Abrir diretório de uma pasta

    Mensagem  Marcelo David 11/7/2022, 15:09

    Isso aí! Grato pelo retorno e Feliz Aniversário, saúde paz, prosperidade e Graça para sua vida!


    .................................................................................
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir diretório de uma pasta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir diretório de uma pasta Marcel11
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 12/7/2022, 13:19

    Bom dia, Marcelo!
    Achei o código muito bacana!
    Acontece que não sei nem por onde começar.
    Se não for pedir muito, será que poderia adaptar ao meu código.
    Sim, sou grosso em VBA.
    Sou do tempo do Assembler, Fortran e Cobol.
    Saudações,
    Luiz
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 13/7/2022, 19:16

    Boa tarde senhores,
    Usei o código do JPaulo adaptado:

    Function BuscaDoc()
    'Habilite a Referencia VBA Microsoft Office 12.0 object library (Ms Access 2007)
    'Ou Microsoft Office 11.0 object library (Ms Access 2003)
    Dim CaminhoDoc As String
    Dim JanelaDeProcura As Office.FileDialog
    Dim MeusFiltros As Office.FileDialogFilter

    Set JanelaDeProcura = Application.FileDialog(msoFileDialogFilePicker)

    With JanelaDeProcura
    .Title = "Selecione o documento"
    .Filters.Clear
    .Filters.Add "Word", "*.docx"

    .FilterIndex = 2

    .ButtonName = "Selecione"
    .InitialView = msoFileDialogViewDetails
    .InitialFileName = "C:\SIB\Informações 2022"
    If .Show = -1 Then
    CaminhoDoc = CStr(JanelaDeProcura.SelectedItems.Item(1))
    Else
    Exit Function
    End If
    Debug.Print CaminhoDoc
    End With
    End Function

    E no botão localizar entrei com BuscaDoc.

    Na declaração
    Dim JanelaDeProcura As Office.FileDialog

    ocorreu o erro de compilação:
    O tipo definido pelo usuário não foi definido.

    Não tenho a mínima idéia do que está ocorrendo.
    Poderiam me ajudar?

    Saudações,
    Luiz
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 14/7/2022, 13:58

    Bom dia senhores!
    Funcionou maravilhosamente.
    Foi só acrescentar nas referências:
    Microsoft Office 16.0 Object Library.
    Estava emperrado neste projeto Há muito tempo.
    Agradecimentos a todos.
    Luiz
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 14/7/2022, 14:18

    Cantei vitória muito cedo.
    A função abre o diretório, mas quando tento abrir o documento word
    não funciona. Será que faltou alguma coisa?
    Saudações,
    Luiz
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Abrir diretório de uma pasta Empty Abrir diretório de uma pasta

    Mensagem  lerasmo 14/7/2022, 14:22

    Engraçado, quando tento abrir o documento com duplo clique não funciona,
    mas quando clico com o botão direito e seleciono abrir aí funfa.
    Alguém tem uma explicação?

    Conteúdo patrocinado


    [Resolvido]Abrir diretório de uma pasta Empty Re: [Resolvido]Abrir diretório de uma pasta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 23:45