[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

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:

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