demanuel1974
Membro Pleno-
Posts
21 -
Cadastrado em
-
Última visita
Reputação
0-
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
-
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
-
Copiar conteúdo PDF para Planilha Excel 2007
demanuel1974 postou um tópico em Microsoft Office e similares
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 -
VBA - Droplist - Excel x Internet Explorer
demanuel1974 postou um tópico em Microsoft Office e similares
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