WriteEx([NewValue], [NewTimestamp], [NewQuality])

Permite modificar o valor, a data e hora e a qualidade de um Tag Interno em uma única operação. Este método retorna um Booleano que indica o sucesso ou não da operação.

O parâmetro NewValue especifica o novo valor do Tag. Se omitido, o valor do Tag não é modificado. O parâmetro NewTimestamp especifica a nova data e hora do Tag. Se omitido, utiliza-se a data e hora do momento da chamada do método. O parâmetro NewQuality especifica a nova qualidade do Tag. Se omitido, assume a qualidade Boa (192). Exemplo:

Sub CommandButton12_Click()
  Dim Ret
  Ret = Application.GetObject("Dados.TagInterno1")._
    WriteEx(123.456, "1/1/2001", 193)
  If Ret Then
    MsgBox "Funcionou!"
  Else
    MsgBox "Falhou!"
  End If
End Sub