У меня есть код VBA, который копирует вставки значений Excel на сайт. После того, как все значения скопированы на сайт, страницу веб-таблицы необходимо сохранить. Проблема здесь заключается в том, что перед сохранением веб-таблицы 3-й столбец (всего) автоматически обновляется на основе вставленных значений. Я пытаюсь автоматизировать это обновление, я пытался вручную проверить сайт, чтобы узнать, как форма может автоматически обновляться. Итак, если я нажму на столбец 4 и введите 0 и нажмите вкладку. Поле «итого» обновляется, я скопировал ту же функциональность в VBA, и код работает нормально, но поле «Итого» не заполняется автоматически. Когда я нарушаю код и вручную делаю это на месте, это работает. Я что-то упускаю здесь?
Do While row <= 95
If n Mod 8 = 0 And tr_id <> 1 Then tr_id = tr_id + 1
td_id = 1
Do While td_id <= 2
Set TD = .Document.getElementById("table_data").getElementsByTagName("tr")
(tr_id).getElementsByTagName("td")(td_id).getElementsByTagName("input")(0)
TD.Value = Sheets("Sheet1").Cells(row, col).Value
col = col + 1
td_id = td_id + 1
Loop
col = firstcol
row = row + 1
tr_id = tr_id + 1
n = n + 1
Loop
Set cell = ie.Document.getElementById("table_data").getElementsByTagName("tr")
(1).getElementsByTagName("td")(3).getElementsByTagName("input")(0)
cell.Focus
cell.Click
cell.Value = 0
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "{TAB}", True