[Fabio Mitsueda]

Qual seria o campo? consegue postar o script do campo?

[Fabio Mitsueda]

Bom dia,

 

Você pode usar o tratamento de erro, visto que vai dar um erro quando a janela não estiver disponivel, coloque ela dentro de um On Error Resume Next

Visual Basic

On Error Resume Next session.findById(“wnd[1]/usr/btnSPOP-OPTION1″).press On Error GoTo 0

1 2 3

On Error Resume Next     session.findById(“wnd[1]/usr/btnSPOP-OPTION1″).press On Error GoTo 0

Assim quando pedir ele vai enviar e quando não pedir vai dar um erro, mas vai pular para proxima linha graças ao Next

 

Abraço

[Fabio Mitsueda]

Bom dia,

Você pode exportar em Excel para algum local depois abrir carregando como variável por workbook.open.

E jogar na IW49, posta parte do seu script e a gente tenta dar continuidade.

Abraço

[Fabio Mitsueda]

Boa noite,

Na postagem vi que seu código não esta funcionando, o que pode ser são as referencias do seu projeto, entre no VBA Project depois em Ferramentas…>Referencia e procure por Microsoft XML, v6.0 ou v5.0 ou outra referencia disponível na sua biblioteca.

Utilizando o mesmo aquivo da postagem só substituir a função abaixo:

Visual Basic

Sub LerXml(ByVal strFolderPath As String) 'Declaração de variaveis de objeto para leitura do XML Dim xmlDoc As DOMDocument Dim xmlList As IXMLDOMNodeList Dim xmlNode As IXMLDOMNode 'Declaração de variaveis diversas para o código Dim shtXml As Worksheet Dim strXml As String Dim x, y, i As Long Dim objPasta As FileDialog 'Declaração de variaveis de retorno do XML Dim strNumerII As String Dim strDtaSitu As String Dim strNomSitu As String 'Carregando Planilha Set shtXml = ThisWorkbook.Sheets("LerXml") 'Atribuindo caminho do arquivo a variavel strXml = strFolderPath 'Carregando o objeto que irá representar o documento XML Set xmlDoc = New DOMDocument 'Carregando o arquivo xmlDoc.Load (strXml) 'Capturando a ultima linha da planilha i = shtXml.Range("A1048576").End(xlUp).Row + 1 'Aqui vamos iniciar a ler os produtos da nota fiscal e carregar as linhas no excel conforme esses produtos Set xmlList = xmlDoc.getElementsByTagName("li-simplificada") For Each xmlNode In xmlList 'Capturando dados do xml strNumerII = GetNodeValue(xmlNode, "numero-li") strDtaSitu = GetNodeValue(xmlNode, "data-situacao") strNomSitu = GetNodeValue(xmlNode, "nome-situacao") 'Carregando informações na planilha shtXml.Cells(i, 1).Value = strNumerII shtXml.Cells(i, 2).Value = strDtaSitu shtXml.Cells(i, 3).Value = strNomSitu 'Incrementando a linha i = i + 1 Next Set shtXml = Nothing Set xmlList = Nothing Set xmlNode = Nothing Set xmlDoc = Nothing End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

Sub LerXml(ByVal strFolderPath As String) 'Declaração de variaveis de objeto para leitura do XML Dim xmlDoc As DOMDocument Dim xmlList As IXMLDOMNodeList Dim xmlNode As IXMLDOMNode   'Declaração de variaveis diversas para o código Dim shtXml As Worksheet Dim strXml As String Dim x, y, i As Long Dim objPasta As FileDialog   'Declaração de variaveis de retorno do XML Dim strNumerII As String Dim strDtaSitu As String Dim strNomSitu As String   'Carregando Planilha Set shtXml = ThisWorkbook.Sheets("LerXml")   'Atribuindo caminho do arquivo a variavel strXml = strFolderPath   'Carregando o objeto que irá representar o documento XML Set xmlDoc = New DOMDocument   'Carregando o arquivo xmlDoc.Load (strXml)   'Capturando a ultima linha da planilha i = shtXml.Range("A1048576").End(xlUp).Row + 1   'Aqui vamos iniciar a ler os produtos da nota fiscal e carregar as linhas no excel conforme esses produtos Set xmlList = xmlDoc.getElementsByTagName("li-simplificada") For Each xmlNode In xmlList 'Capturando dados do xml strNumerII = GetNodeValue(xmlNode, "numero-li") strDtaSitu = GetNodeValue(xmlNode, "data-situacao") strNomSitu = GetNodeValue(xmlNode, "nome-situacao")   'Carregando informações na planilha shtXml.Cells(i, 1).Value = strNumerII shtXml.Cells(i, 2).Value = strDtaSitu shtXml.Cells(i, 3).Value = strNomSitu   'Incrementando a linha i = i + 1 Next   Set shtXml = Nothing Set xmlList = Nothing Set xmlNode = Nothing Set xmlDoc = Nothing End Sub

 

[Autor]

Posts