levi feirreira

Boa tarde Club, poderia por gentileza me ajudar neste código? Estou tentando no campo "Tipo de documento" clicar e selecionar "E" NF-e, porém já tentei de diversas forma pela classname, Id, Byname, xpatch etc e não consigo selecionar. Segue em anexo o codigo e a pagina onde preciso abrir o popup e selecionar NF-e. Set cc = driver.FindElementById("tipo") cc.Click

Boa noite, Agradeço me ajudarem num código vba abaixo para entrar no SAP: sapgui, porém dar erro de "não identifica o objeto ou biblioteca" Help me <If Not IsObject(Application) Then Set SapGuiAuto = GetObject("SAPGUI") Set Application = SapGuiAuto.GetScriptingEngine End If If Not IsObject(Connection) Then Set Connection = Application.Children(0) End If If Not IsObject(session) Then Set session = Connection.Children(0) End If If IsObject(WScript) Then WScript.ConnectObject session, "on"> WScript.ConnectObject Application, "on" End If

segue o erro: Status da resposta: 401 Resposta do servidor: {"code":"900902","message":"Missing Credentials","description":"Invalid Credentials. Make sure your API invocation call has a header: 'null : Bearer ACCESS_TOKEN' or 'null : Basic ACCESS_TOKEN' or 'apikey: API_KEY'"}

import requests url_danfe = "https://ws.meudanfe.com/api/v1/get/nfe/xmltodanfepdf/API" chave_acesso = '35230562055710000176550010001756821503980339' xml_nfe = 'Content-Type: text/plain' headers = '<?xml version="1.0" encoding="UTF-8"?><nfeProc ... </nfeProc>' response = requests.post(url_danfe, headers=headers, data=xml_nfe) if response.status_code == 200: print("Requisição bem-sucedida!") else: print(f"Falha na requisição. Código de Status HTTP: {response.status_code}") print(f"Resposta da API: {response.text}") Boa noite, alguém poderia me auxliar neste código abaixo? Preciso fazer a comunicação com a API abaixo gratuita de forma que o código seja validado em 200-OK: Segue o code: <import requests url_danfe = "https://ws.meudanfe.com/api/v1/get/nfe/xmltodanfepdf/API" chave_acesso = '35230562055710000176550010001756821503980339' xml_nfe = 'Content-Type: text/plain' headers = '<?xml version="1.0" encoding="UTF-8"?><nfeProc ... </nfeProc>' response = requests.post(url_danfe, headers=headers, data=xml_nfe) if response.status_code == 200: print("Requisição bem-sucedida!") else: print(f"Falha na requisição. Código de Status HTTP: {response.status_code}") print(f"Resposta da API: {response.text}")> segue orientação da API: API de conversão XML para DANFE * Esta API é grátis e sempre será. URL: https://ws.meudanfe.com/api/v1/get/nfe/xmltodanfepdf/API METHOD: POST | BODY RAW: (o xml da NFe em texto) HTTP STATUS: 200 = OK ou 500 = Falha ao gerar PDF do DANFE! Confira o seu XML RESPONSE: * A RESPONSE é o DANFE codificado em BASE64 * A RESPONSE pode estar contida em ASPAS duplas * Para visualizar no navegador: data:application/pdf;base64,RESPONSE_SEM_ASPAS REQUEST EXAMPLE:

Perfeito Midori, funcionou , muito obrigado. Deus abençoe sempre.

Perfeito Midori, conseguir usar on erro quando tem o nó. Quando o nó não existir tem como por condicional para isso? pois se o nó não existe, logo a sintaxe vem como " 0 ", seria bom se na condicional ele identificasse : se for maior que 0 faça isso, caso contrário faça aquilo

Boa noite pessoal, tudo bem ? <Poderia me auxiliar com este código em anexo? Preciso que a condicional seja atendida. Percebo que quando não tem a tag name IE por exemplo no xml logo o valor vem como "0" e dar erro por não ter a tag, gostaria de um jeito para quando não tiver a tagname ignorar ou que a condicional abaixo seja atendida : If xmlNode.SelectSingleNode("IE")(0).Text > 0 Then strIE = " ' " & xmlNode.SelectSingleNode("IE").Text End If Segue código mais completo: For Each xmlNode In xmlDoc.getElementsByTagName("transporta") strxNome = xmlNode.SelectNodes("xNome")(0).Text strCNPJTrsnp = "'" & xmlNode.SelectNodes("CNPJ")(0).Text If xmlNode.SelectSingleNode("IE")(0).Text > 0 Then strIE = "'" & xmlNode.SelectSingleNode("IE").Text End If> strxEnder = xmlNode.SelectNodes("xEnder")(0).Text & " | " strxMun = xmlNode.SelectNodes("xMun")(0).Text & " | " strUF = xmlNode.SelectNodes("UF")(0).Text & " | " Varre = strxEnder & strxMun & strUF Next

Boa tarde pessoal. Alguém poder ajudar agradeço. Estou usando biblioteca selenium, para programação webscripting - Selenium - chromedriver porém está dando este erro de tempo de execução, erro de automação.

Muito obrigado Gabriel, funcionou. Deus abençoe sempre

Boa tarde, tudo bem pessoal? Alguém poderia me auxiliar ? Preciso clicar através da programação vba no certificado digital, segue em imagem a estrutura que usei, porém não está funcionando: Muito obrigado.

Alguém poderia me auxiliar ? Preciso acessar uma url pelo google chrome, depois preciso manipular a as partes do site para buscar informaçõe spara o excel ou levar da planilha para o site. Porém deu erro ao acessar

Boa tarde, Se puder ajudar agradeço. O primeiro erro o vba atende, mas o segundo não. Porque a função on error funciona na de cima e não na de baixo? Obrigado.

Muito obrigado Wendell Menezes, com certeza vou verificar. Tenho outra dúvida. Se poder ajudar agradeço.: o código busca informações no xml, porém quando chega nesta fase abaixo de cnpj e cpf ele depura, pois tem xml que o destinatário é pessoa física (CPF) e tem destinatário que é pessoa jurídica (CNPJ). Preciso condicionar um código que atenda os 2 (CPF e CNPJ), o xml que tem como destinatário CPF ele atende o código o CPF , porém quando é CNPJ ele depura. For Each xmlNode In xmlDoc.getElementsByTagName("dest") 'Razão social do destinatário strDestino = xmlNode.SelectNodes("xNome")(0).Text 'CNPJ do emitente If Len(xmlNode.SelectNodes("CNPJ")(0).Text) = 14 Then strCNPJDestino = "'" & xmlNode.SelectNodes("CNPJ")(0).Text End If If Len(xmlNode.SelectNodes("CPF")(0).Text) = 11 Then strCNPJDestino = "'" & xmlNode.SelectNodes("CPF")(0).Text End If 'Inscrição Estadual do emitente If Len(xmlNode.SelectNodes("IE")(0).Text) = 12 Then strIEDestino = "'" & xmlNode.SelectNodes("IE")(0).Text Else strIEDestino = " " End If Next

Entendo, seria possível atraves de um código VBA saber quantas linhas de sintaxe (scrip/códigos) tem numa macro ? Neste sentido dava para achar o todo e a cada execução de código seria atualizada cada evento.

Boa tarde, preciso criar uma barra de progresso com várias macros. em anexo ela funciona do jeito que fiz, porém no primeiro call ela demora pois o Código é longo, eu preciso que ela executa a medida que vai lendo os códigos, isso é possível ? Preciso que executa sem fica para o andamento por muito tempo. Muito obrigado Sub MxM_() Application.ScreenUpdating = False Dim ucel As Long Dim i As Long, lin As Long, cont As Long AbrirBarraProgresso cont = 100 Call vamp_ progredirBarraProgresso (cont / 400) DoEvents 'cont = cont + 100 cont = 200 Call AjustarMigo_ progredirBarraProgresso (cont / 400) DoEvents 'cont = cont + 100 cont = 300 Call AjustarMiro_ progredirBarraProgresso (cont / 400) DoEvents 'cont = cont + 100 cont = 400 Call Conclusão_ progredirBarraProgresso (cont / 400) DoEvents 'cont = cont + 100 FecharBarraProgresso Application.ScreenUpdating = True End Sub Function AbrirBarraProgresso() BarraDeProgresso.quadroProgresso.Width = 0 BarraDeProgresso.Show (vbMoldeless) End Function Function progredirBarraProgresso(andamento As Double) WidthTotal = 300 WidthAtual = WidthTotal * andamento BarraDeProgresso.quadroProgresso.Width = WidthAtual BarraDeProgresso.textoAndamento.Caption = Round(andamento * 100, 0) & " % Completo" End Function Function FecharBarraProgresso() Unload BarraDeProgresso End Function

@MidoriMuito obrigado @Midori, agora deu certo. vocês são excelentes o Activate, seria esta a definição para o caso acima ? O Activate ativa uma planilha específica; o Select seleciona uma ou mais. O Activate só pode ser aplicado a uma única Sheet enquanto o Select permite selecionar mais de uma, por exemplo. Às vezes temos várias planilhas no Select, usamos o Activate para deixar que uma delas seja a única Ativa entre as selecionadas. Obrigado

@Midori coloquei desse jeito e ainda da outro erro 424 obketo é obrigatorio: Sub vamp_() Dim Procura As Range Application.ScreenUpdating = False Dim linha As Double Dim x, ucel Sheets("Migo").Select ucel = Sheets("Migo").Cells(100000, 1).End(xlUp).Row For x = 2 To ucel Range("a1:f1").Select Rows(1).AutoFilter '========================================= Busca 102 Range("A2").Select Set Procura = Range(Selection, Selection.End(xlDown)).Select Selection.Find(What:="102", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate If Procura Is Nothing Then Exit Sub End If @Midori agora arrumado, mas mesmo assim não funciona

@Edson Luiz Branco Selection.Find(What:="102", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate o scrip acima está procurando o n 102, quando ele não acha ele dar erro 91. Preciso : quando não encontrar 102 saia do sub. Como escrever isso? acho que seria assim, mas não funciona: If Not Selection.Find Then Exit Sub End If Agradeço ajudar. Muito obrigado