Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Interação excel com web e impressão

Dúvidas gerais sobre Excel
uamaral
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qui Fev 08, 2018 8:48 pm

Interação excel com web e impressão

Mensagem por uamaral »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
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

Mensagem por Mikel Silveira Fraga »

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.


uamaral
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qui Fev 08, 2018 8:48 pm

Re: Interação excel com web e impressão

Mensagem por uamaral »

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=


Avatar do usuário
Mikel Silveira Fraga
Jedi
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

Mensagem por Mikel Silveira Fraga »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


uamaral
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qui Fev 08, 2018 8:48 pm

Re: Interação excel com web e impressão

Mensagem por uamaral »

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.


sandrojrs
Colaborador
Colaborador
Mensagens: 38
Registrado em: Seg Fev 19, 2018 5:32 pm

Re: Interação excel com web e impressão

Mensagem por sandrojrs »

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.


sandrojrs
Colaborador
Colaborador
Mensagens: 38
Registrado em: Seg Fev 19, 2018 5:32 pm

Re: Interação excel com web e impressão

Mensagem por sandrojrs »

caso não saiba onde colocar o código me chama ai que te ajudo


recon_edson
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sáb Jun 01, 2019 11:53 pm

Re: Interação excel com web e impressão

Mensagem por recon_edson »

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.


AndersonDorneles
Colaborador
Colaborador
Mensagens: 21
Registrado em: Ter Mai 03, 2011 7:58 am

Re: Interação excel com web e impressão

Mensagem por AndersonDorneles »

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.
Olá Bom dia,

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder