demanuel1974
-
Posts
21 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por demanuel1974
-
-
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 SubObs: 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 -
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
-
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,DaviRibeirã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
Laravel 5.2 - Helper config não funciona
em Web e banco de dados
Postado
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:
Faço a chamada do helper no arquivo site.blade.php localizada na pasta resources\views\_site\ da seguinte forma:
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:
Você poderia, por gentileza, me ajudar?!
Grato,
Davi