Ir ao conteúdo
  • Cadastre-se

demanuel1974

Membro Pleno
  • Posts

    21
  • Cadastrado em

  • Última visita

posts postados por demanuel1974

  1. Olá Amigos,

     

    Estou com problemas na hora de utilizar o helper config do Laravel 5.2

     

    Na pasta config do projeto criei o arquivo seo.php com a seguinte estrutura:

     

    <?php
    
    return [
    
    'titulo' => 'Site Dinâmico',
    
    ];

    Faço a chamada do helper no arquivo site.blade.php localizada na pasta resources\views\_site\ da seguinte forma:

     

    <title>{{ config('seo.titulo') }}</title>

     

    O resultado na aba de título do navegador firefox é http://localhost:8000/

     

    Obs: Tentei utilizar um outro arquivo da pasta config existente e funcionou no site.blade.php , como por exemplo:

     

    <title>{{ config('app.timezone') }}</title>

     

    Você poderia, por gentileza, me ajudar?!

     

    Grato,

     

    Davi

     

     

     

  2. Prezados,

    O código abaixo, abre um determinado arquivo PDF, seleciona todo seu conteúdo e cola na planilha especificada. Todo o processo ocorre dentro da normalidade esperada, entretanto, qualquer instrução que tento colocar depois do sendkeys "^v", o conteúdo da área de tranferência não é colado no excel. O último código que tentei foi colocar um tempo de 10 segundos (Application.Wait (Now + TimeValue("0:00:10"))) antes da chamada do MsgBox Cells(1, 1).value, na esperança do conteúdo ser exibido, infelizmente sem sucesso.

    Código :

    Public Sub PgtoCEF()
      Dim arquivo As Variant
      Dim caminho As String
     
      caminho = "C:\"
      arquivo = "arquivo.pdf"
     
      ActiveWorkbook.FollowHyperlink caminho & arquivo, , True
       
      'Espera o Acrobat Reader abrir o arquivo
      Application.Wait (Now + TimeSerial(0, 0, 2))
       
      'maximiza a janela do Adoble Reader
      Windows(1).Application.WindowState = xlMinimized
       
      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader abrir o arquivo
       
      SendKeys "^a"   'Seleciona todo o conteúdo do PDF
      SendKeys "^c"   'Instução copiar do windows
       
      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat mandar para a área de transferência
       
      SendKeys "%{F4}"  'Fecha o Acrobat Reader
       
      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader Fechar
       
      'maximiza a janela do excel que receberá o PDF que está na área de transferência
      Windows(1).Application.WindowState = xlMaximized
      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader Fechar
       
      SendKeys "^v"  'Colar conteúdo
     
      Application.Wait (Now + TimeValue("0:00:10"))
     
      SendKeys "{UP}"

      MsgBox Cells(1, 1).value
    End Sub

    Obs: Sem o msgbox(1,1).value no final do código o arquivo é copiado e colado normalmente. Preciso percorrer no excel todas as linhas coladas.

    Quem puder me ajudar, ficarei imensamente agradecido,

    Cordialmente,

    Davi

    Ribeirão Preto-SP
    Brasil

  3. Prezados,

     

    O código abaixo, abre um determinado arquivo PDF, seleciona todo seu conteúdo e cola na planilha especificada. Todo o processo ocorre dentro da normalidade esperada, entretanto, qualquer instrução que tento colocar depois do sendkeys "^v", o conteúdo da área de tranferência não é colado no excel. O último código que tentei foi colocar um tempo de 10 segundos (Application.Wait (Now + TimeValue("0:00:10"))) antes da chamada do MsgBox Cells(1, 1).value, na esperança do conteúdo ser exibido, infelizmente sem sucesso.

    Public Sub PgtoCEF()  Dim arquivo As Variant  Dim caminho As String   caminho = "C:\"  arquivo = "arquivo.pdf"   ActiveWorkbook.FollowHyperlink caminho & arquivo, , True      'Espera o Acrobat Reader abrir o arquivo  Application.Wait (Now + TimeSerial(0, 0, 2))     'maximiza a janela do Adoble Reader  Windows(1).Application.WindowState = xlMinimized      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader abrir o arquivo     SendKeys "^a"   'Seleciona todo o conteúdo do PDF  SendKeys "^c"   'Instução copiar do windows      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat mandar para a área de transferência     SendKeys "%{F4}"  'Fecha o Acrobat Reader      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader Fechar      'maximiza a janela do excel que receberá o PDF que está na área de transferência  Windows(1).Application.WindowState = xlMaximized  Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader Fechar      SendKeys "^v"  'Colar conteúdo   Application.Wait (Now + TimeValue("0:00:10"))   SendKeys "{UP}"  MsgBox Cells(1, 1).valueEnd Sub

    Obs: Sem o msgbox(1,1).value no final do código o arquivo é copiado e colado normalmente. Preciso percorrer no excel todas as linhas coladas.

     

    Quem puder me ajudar, ficarei imensamente agradecido,

     

    Cordialmente,

     

    Davi

    Ribeirão Preto-SP

  4. Bom dia Pessoal, 

     

    Estou enfrentando um problema na hora de escolher um item numa droplist de um site aberto pelo VBA. 

     

    O código recorrente que aparece nos sites especializados, é o seguinte:

     

    IE.Document.All.Item("campo").Item(1).Selected = True

     

    Ao utilizar o código acima reparei que a opção demarcada pelo código VBA, era correta, entretanto, sem "refresh" para visualizar a opção escolhida no controle em questão. Digo isso porque ao abrir "manualmente" a caixa a opção executada pelo VBA estava ali marcada.

     
    Alguém poderia me ajudar?
     
    Att,
     
    Davi
    Ribeirão Preto-SP

     

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!