登录 | 注册 | FAQ
Anonymous

Erro de access denied 70 em um objeto html

+ 发表回复

2 篇帖子 分页: 1 / 1


Erro de access denied 70 em um objeto html

Adriano Prado » 周三 12月 14, 2016 5:59 pm

Boa tarde!

Estou com um problema em um código de automação.

O trecho do código é este:

'pega a tabela onde estão as informações
Set tabela = IE.Document.all("ctl00_ctl00_head_mainProposta_grvTransmissaoAuto")

'Pega a quantidade de linhas da tabela
Totallinhatabela = tabela.getElementsByTagName("tr").length - 1

Set rs1 = New ADODB.Recordset

For Each linha In tabela.getElementsByTagName("tr")

If InStr(linha.outerText, "Proposta") = 0 Then

IE.Document.getElementsByTagName("td")(0).getElementsByTagName("input")(0).Click
Call SIeBusy(IE, 2)

Set tabela2 = IE.Document.all("ctl00_ctl00_head_mainProposta_grvDadosTransmissaoAuto")

For Each linha2 In tabela2.getElementsByTagName("tr")

If InStr(linha2.outerText, "Erro Complemento") = 0 Then

linha2.getElementsByTagName("td")(0).getElementsByTagName("input")(0).Click
Call SIeBusy(IE, 2)

If IE.Document.all("ctl00_ctl00_head_mainProposta_grvDadosTransmissaoAuto_ctl02_ctl00").Checked Then
If InStr(IE.Document.all("txtRetornoComplemento").innerText, "CEP") <> 0 Then
TipoErro = "Erro de CEP"
ElseIf InStr(IE.Document.all("txtRetornoComplemento").innerText, "Bônus") <> 0 Then
TipoErro = "Erro de Bônus"
ElseIf InStr(IE.Document.all("txtRetornoComplemento").innerText, "Chassi") <> 0 Then
TipoErro = "Erro de Chassi"
Else
TipoErro = "Erros Diversos (exemplo data de emissão da NF divergente"
End If
Else
TipoErro = "Erro de Transmissão"
End If
'Grava a proposta na tabela de Controle de Execução dos Robôs
SqlInclui = "INSERT INTO tbl_ControleExecucaoRobos (IDRobo, NrControleExecucao, DtExecucao, StatusExecucao) "
SqlInclui = SqlInclui & "VALUES (" & IDRobo
SqlInclui = SqlInclui & ",'" & RTrim(IE.Document.all("ctl00_ctl00_head_mainProposta_txtTituloProposta").innerText)
SqlInclui = SqlInclui & "',convert(datetime,'" & DateTime.Now & "',103),"
SqlInclui = SqlInclui & "'" & TipoErro & " ')"
Set rs1 = cnn.Execute(SqlInclui)

'Sai da tela de erros
IE.Document.all("ctl00$ctl00$head$mainProposta$btnFecharPopUp").focus
IE.Document.all("ctl00$ctl00$head$mainProposta$btnFecharPopUp").Click
Call SIeBusy(IE, 2)
End If

Next


End If

Next

O problema está nesta linha: IE.Document.getElementsByTagName("td")(0).getElementsByTagName("input")(0).Click

Ao ler esta linha é gerado o erro de permissão 70 na variável "linha" que está no primeiro For Each e impede que o programa leia as outras linhas da tabela.

Alguém consegue me dar uma luz do porque isto ocorre?

Obrigado pela atenção.

Adriano
头像

Adriano Prado

  • 帖子: 1
  • 注册: 周三 12月 14, 2016 5:53 pm

Re: Erro de access denied 70 em um objeto html

coco » 周六 12月 17, 2016 4:36 pm

[i]bonjour les grands[/i][code][b][img][color=#BF8080]malade yes yes php html css regarde moi je suis lalalalala merde chin qui tte[/color][/img][/b][/code]
头像

coco

  • 帖子: 1
  • 注册: 周六 12月 17, 2016 4:23 pm


+ 发表回复

分页: 1 / 1