Ir ao conteúdo
  • Cadastre-se

demanuel1974

Membro Pleno
  • Posts

    21
  • Cadastrado em

  • Última visita

Reputação

0
  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...