Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Interação excel com web e impressão
Interação excel com web e impressão
Preciso muito de ajuda.
Na empresa eu preciso imprimir CTe e Danfe de varias notas, porem faço todo processo usando leitor de código
de barras e bipando nota por nota.
Tem um site que se chama: https://www.fsist.com.br/#Nova\NovaConsulta que consigo consultar tanto nfe quanto Cte.
Gostaria de automatizar o processo no excel.
Preciso muito de ajuda.
Preciso de uma planilha que entre no chrome e abra a pagina e cole as chaves de acesso que estiverem na coluna
"A" uma a uma e faça a impressão do pdf. Sei que e muito complicado, mais me ajudaria muito...
Observação: Pelo que percebi a validação captcha não precisa ser correta, as vezes digitando qualquer coisa ela passa. Preciso de fazer a impressão de pdf's e faço em media de 250 a 300 notas, isso em dias normais. Quando e fechamento de mês tenho que fazer em media 450 impressões fora o lançamento de todas as notas no sistema.
Eu estou começando no vba, começando mesmo... básico do básico..
Me ajudem..
Na empresa eu preciso imprimir CTe e Danfe de varias notas, porem faço todo processo usando leitor de código
de barras e bipando nota por nota.
Tem um site que se chama: https://www.fsist.com.br/#Nova\NovaConsulta que consigo consultar tanto nfe quanto Cte.
Gostaria de automatizar o processo no excel.
Preciso muito de ajuda.
Preciso de uma planilha que entre no chrome e abra a pagina e cole as chaves de acesso que estiverem na coluna
"A" uma a uma e faça a impressão do pdf. Sei que e muito complicado, mais me ajudaria muito...
Observação: Pelo que percebi a validação captcha não precisa ser correta, as vezes digitando qualquer coisa ela passa. Preciso de fazer a impressão de pdf's e faço em media de 250 a 300 notas, isso em dias normais. Quando e fechamento de mês tenho que fazer em media 450 impressões fora o lançamento de todas as notas no sistema.
Eu estou começando no vba, começando mesmo... básico do básico..
Me ajudem..
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Interação excel com web e impressão
Bom dia Uamaral e seja bem vindo ao fórum.
Cara, conhece essa ferramenta do Fernando (proprietário do site informado):
- CONVERTE O XML DA NFE PARA DANFE OU XML DO CTE PARA DACTE
Como você disse que precisa imprimir e, pela descrição do seu trabalho, você já tem as chaves, provavelmente deva ter os Xml´s. Usando esse serviço, você consegue enviar lotes de 100 Xml´s para conversão em PDF.
Conheço bem as ferramentas desse site e, a um tempo atrás, precisei imprimir mais de 1500 documentos em PDF. O serviço de Conversão de Xml/Pdf do Fernando funcionou maravilhosamente.
Vai ser muito mais fácil fazer dessa forma, do que criar uma rotina que faça todo o trabalho de interação necessária.
Analise essa possibilidade e dê um retorno.
Cara, conhece essa ferramenta do Fernando (proprietário do site informado):
- CONVERTE O XML DA NFE PARA DANFE OU XML DO CTE PARA DACTE
Como você disse que precisa imprimir e, pela descrição do seu trabalho, você já tem as chaves, provavelmente deva ter os Xml´s. Usando esse serviço, você consegue enviar lotes de 100 Xml´s para conversão em PDF.
Conheço bem as ferramentas desse site e, a um tempo atrás, precisei imprimir mais de 1500 documentos em PDF. O serviço de Conversão de Xml/Pdf do Fernando funcionou maravilhosamente.
Vai ser muito mais fácil fazer dessa forma, do que criar uma rotina que faça todo o trabalho de interação necessária.
Analise essa possibilidade e dê um retorno.
Re: Interação excel com web e impressão
Bom dia Mikel!
Na verdade agente tem um um monitor de notas fiscais que se chama Neogrid.
Porem se você pra fazer utilizando esta ferramenta agente teria que baixar os xml do monitor de notas "neogrid".
Fazendo a rotina eu uso apenas a chave de acesso.
Se a rotina não pode ser criada no fsist, a outra alternativa seria o site da receita. Porem lá tem aquele negócio de não sou um robô: http://www.nfe.fazenda.gov.br/portal/co ... 9fwabTnLk=
Na verdade agente tem um um monitor de notas fiscais que se chama Neogrid.
Porem se você pra fazer utilizando esta ferramenta agente teria que baixar os xml do monitor de notas "neogrid".
Fazendo a rotina eu uso apenas a chave de acesso.
Se a rotina não pode ser criada no fsist, a outra alternativa seria o site da receita. Porem lá tem aquele negócio de não sou um robô: http://www.nfe.fazenda.gov.br/portal/co ... 9fwabTnLk=
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Interação excel com web e impressão
Uamaral, bom dia.
Já trabalhei com o NeoGrid, entre 2009 e 2014. A ferramenta era muito boa, mas já deve ter evoluído muito.
Em relação ao uso do Portal NFe, acredito que seja bem mais complicado e menos produtivo.
Enfim, posso ver se esse tipo de uso no Fsist é viável e não trabalhoso, de acordo com o código do site. Assim que tiver uma posição, te aviso.
Já trabalhei com o NeoGrid, entre 2009 e 2014. A ferramenta era muito boa, mas já deve ter evoluído muito.
Em relação ao uso do Portal NFe, acredito que seja bem mais complicado e menos produtivo.
Enfim, posso ver se esse tipo de uso no Fsist é viável e não trabalhoso, de acordo com o código do site. Assim que tiver uma posição, te aviso.
Re: Interação excel com web e impressão
Obrigado. Aguardo retorno.
Na verdade tive uma ajuda no desenvolvimento deste código. Porem preciso de um comando para imprimir esta página.
Um ctrl + P seria ótimo.
Sub Impressão()
Application.DisplayAlerts = False
Plinha = Plan1.Range("A:A").Find("").Row
Ulinha = Plan1.Range("B:B").Find("").Row - 1
For j = Plinha To Ulinha
If Plan1.Cells(j, 1) <> "" Then GoTo pula
endereço = "https://www.fsist.com.br/PaginaAlternat ... vaConsulta"
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate (endereço)
IE.Visible = True
'Aguarda atualização da página
While IE.LocationURL <> "https://www.fsist.com.br/PaginaAlternat ... vaConsulta"
Wend
sng = Timer
Do While sng + 1 > Timer
Loop
chave = Plan1.Cells(j, 2)
senha = "testando"
IE.Document.all("chave").innerText = chave
IE.Document.all("ConsultaTxt").Click
'Aguarda atualização da página
While IE.LocationURL <> "https://www.fsist.com.br/PaginaAlternativa#_Consultar"
Wend
sng = Timer
Do While sng + 1 > Timer
Loop
IE.Document.all("chave").innerText = senha
IE.Document.all("ConsultaTxt").Click
IE.Quit
Application.SendKeys "%{F4}", True
DoEvents
Application.Wait (Now + TimeValue("00:00:02"))
pula:
Plan1.Cells(j, 1) = "Impresso"
Application.SendKeys "{NUMLOCK}", True
Next j
'Application.DisplayAlerts = True
'MsgBox "Todas as notas foram impressas com sucesso", vbExclamation, "Impressão Concuída"
End Sub
Desde já agradeço.
Na verdade tive uma ajuda no desenvolvimento deste código. Porem preciso de um comando para imprimir esta página.
Um ctrl + P seria ótimo.
Sub Impressão()
Application.DisplayAlerts = False
Plinha = Plan1.Range("A:A").Find("").Row
Ulinha = Plan1.Range("B:B").Find("").Row - 1
For j = Plinha To Ulinha
If Plan1.Cells(j, 1) <> "" Then GoTo pula
endereço = "https://www.fsist.com.br/PaginaAlternat ... vaConsulta"
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate (endereço)
IE.Visible = True
'Aguarda atualização da página
While IE.LocationURL <> "https://www.fsist.com.br/PaginaAlternat ... vaConsulta"
Wend
sng = Timer
Do While sng + 1 > Timer
Loop
chave = Plan1.Cells(j, 2)
senha = "testando"
IE.Document.all("chave").innerText = chave
IE.Document.all("ConsultaTxt").Click
'Aguarda atualização da página
While IE.LocationURL <> "https://www.fsist.com.br/PaginaAlternativa#_Consultar"
Wend
sng = Timer
Do While sng + 1 > Timer
Loop
IE.Document.all("chave").innerText = senha
IE.Document.all("ConsultaTxt").Click
IE.Quit
Application.SendKeys "%{F4}", True
DoEvents
Application.Wait (Now + TimeValue("00:00:02"))
pula:
Plan1.Cells(j, 1) = "Impresso"
Application.SendKeys "{NUMLOCK}", True
Next j
'Application.DisplayAlerts = True
'MsgBox "Todas as notas foram impressas com sucesso", vbExclamation, "Impressão Concuída"
End Sub
Desde já agradeço.
Re: Interação excel com web e impressão
tenho a resposta para você amigo, mas vamos usar outra tecla de atalho pois essa ja é para impressão, vái la em
DESENVOLVEDOR>MACROS>ESCOLHA A MACRO> DEPOIS EM OPÇÕES E AI VC ESCOLHE A TECLA DE ATALHO DE COMO FAZER ELA INICIAR.
DESENVOLVEDOR>MACROS>ESCOLHA A MACRO> DEPOIS EM OPÇÕES E AI VC ESCOLHE A TECLA DE ATALHO DE COMO FAZER ELA INICIAR.
Re: Interação excel com web e impressão
caso não saiba onde colocar o código me chama ai que te ajudo
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Sáb Jun 01, 2019 11:53 pm
Re: Interação excel com web e impressão
Boa noite, sou novato nesse mundo de VBA e gostaria de saber se alguém teria disponível a planilha com o código acima que esteja funcionando pois estou com o mesmo problema do colega. Caso essa rotina funcione e se puderem disponibilizar ficarei muito agradecido.
-
- Colaborador
- Mensagens: 21
- Registrado em: Ter Mai 03, 2011 7:58 am
Re: Interação excel com web e impressão
Olá Bom dia,uamaral escreveu: ↑Seg Fev 19, 2018 4:48 pm Obrigado. Aguardo retorno.
Na verdade tive uma ajuda no desenvolvimento deste código. Porem preciso de um comando para imprimir esta página.
Um ctrl + P seria ótimo.
Sub Impressão()
Application.DisplayAlerts = False
Plinha = Plan1.Range("A:A").Find("").Row
Ulinha = Plan1.Range("B:B").Find("").Row - 1
For j = Plinha To Ulinha
If Plan1.Cells(j, 1) <> "" Then GoTo pula
endereço = "https://www.fsist.com.br/PaginaAlternat ... vaConsulta"
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate (endereço)
IE.Visible = True
'Aguarda atualização da página
While IE.LocationURL <> "https://www.fsist.com.br/PaginaAlternat ... vaConsulta"
Wend
sng = Timer
Do While sng + 1 > Timer
Loop
chave = Plan1.Cells(j, 2)
senha = "testando"
IE.Document.all("chave").innerText = chave
IE.Document.all("ConsultaTxt").Click
'Aguarda atualização da página
While IE.LocationURL <> "https://www.fsist.com.br/PaginaAlternativa#_Consultar"
Wend
sng = Timer
Do While sng + 1 > Timer
Loop
IE.Document.all("chave").innerText = senha
IE.Document.all("ConsultaTxt").Click
IE.Quit
Application.SendKeys "%{F4}", True
DoEvents
Application.Wait (Now + TimeValue("00:00:02"))
pula:
Plan1.Cells(j, 1) = "Impresso"
Application.SendKeys "{NUMLOCK}", True
Next j
'Application.DisplayAlerts = True
'MsgBox "Todas as notas foram impressas com sucesso", vbExclamation, "Impressão Concuída"
End Sub
Desde já agradeço.
Estou muito interessado nessa sua macro. Testei ela aqui e não deu erro, porem nada aconteceu. A unica troca que eu fiz nela foi os Plan1 por ActiveSheet. Se eu entendi bem as chaves precisam estar na coluna A, é isso? dai ela envia ao navegador, que faz a consulta e gera o PDF? Me explica melhor.
Posso te ajudar com uma macro que cria atalhos, eu até uso ela em vez de criar um atalho na guia-desenvolvedor do excel.
Desde já agradeço!
Anderson S. Dorneles