Код VBA для обновления textarea

Question

Мне нужно обновить текстовую область HTML-страницы. Я использую код ниже.

Set hcol = doc.getElementsByTagName("textarea") 
    For Each txt In hcol 
     If txt.Name = Module Then 
      txt.innerText = Mark_Text 
      Sheets("Sheet1").Range("E" & i).Value = "Done" 
      Exit For 
     Else 
      Sheets("Sheet1").Range("E" & i).Value = "Module not found" 
     End If 
    Next 

После того, как вышеуказанный код будет успешно завершен, я использую ниже код для обновления веб-страницы.

Set hcol = doc.getElementsByTagName("input") 
     For Each inp In hcol 
      If inp.Value = "Update Configuration" Then 
       inp.Click 
       Delay 3 
       Exit For 
      End If 
     Next 

Как только обновление будет завершено, когда я вернусь на веб-страницу, текст не будет обновляться. Ниже детали просмотреть исходный код для веб-страницы

<td class="InputTitle" rowspan="3">Marketing Text</td> 
<td class="InputCell" colspan="3" rowspan="3"> 
<textarea name="MarketingText;;1" id="MarketingText;;1" onfocus="workingText = this.value" 
    onblur="updateTextValue(this, &#39;MarketingText&#39;);" 
    style="font:normal 11px Arial;width:300px;" rows="4"> 
</textarea></td> 

Моя проблема будет похож на тот, упомянутый в этой ссылке: please help me to write vba/vb6 code to update rich textbox

Я уже пытался как решения, представленной в приведенной выше ссылке но все же это не сработает.

Пожалуйста, помогите

Answer 1

я думаю, что проблема с событием OnFocus не запускается при установке значения через код.

вы можете добавить этот код после установки значения

Если txt.Name = Модуль Тогда

txt.innerText = Mark_Text 

«добавить эту часть

txt.fireevent "Onfocus" 
txt.fireevent "onblur"