Макрос Excel не может поместить значение на веб-страницу - PullRequest
0 голосов
/ 18 марта 2020

Я делаю макрос в Excel, который берет значения из таблицы Excel и записывает их на веб-страницу, записывает некоторые значения в некоторые поля, но в других он не позволяет мне писать.

Далее я собираюсь поместить код макроса и код HTML страницы, на которой он не позволяет писать:

Dim ie As InternetExplorer
Set ie = New InternetExplorerMedium
ie.Navigate "https://thisisapage.com"

Do
    DoEvents
Loop Until ie.ReadyState = READYSTATE_COMPLETE

ie.Document.getElementById("ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1_upLevelDiv").Value = Range("B1").Value
ie.Document.getElementById("ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_V1_I1_T5").Value = Range("B2").Value

ie.Visible = True
Set ie = Nothing

Это поле, которое выиграло ' Позвольте мне написать значение там:

ie.Document.getElementById("ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1_upLevelDiv").Value= Range("B1").Value

И эта ошибка показывает:

enter image description here

Выполнить ошибка '438': объект не поддерживает это свойство или метод

Это код HTML поля, в котором он не позволяет мне записать значение:

<div tabindex="0" title="People Picker" class="ms-inputuserfield ms-inputBox" id="ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1_upLevelDiv" role="textbox" aria-haspopup="true" style="height: 20px; -ms-overflow-x: hidden; -ms-word-wrap: break-word;" contenteditable="true" spellcheck="false" aria-multiline="true" onkeydown="return onKeyDownRw('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1', 3, true, event);" onkeyup="return onKeyUpRw('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1');" onclick="onClickRw(true, true,event,'ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1');" onchange='CustomControl.OnValueChanged("ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1");' ondragstart="canEvt(event);" oncopy="docopy('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1',event);" onpaste="dopaste('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1',event);" onfocusin="StoreOldValue('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1'); saveOldEntities('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1'); Sys.UI.DomElement.addCssClass(this, 'ms-inputBoxActive');" onfocusout="if(typeof(ExternalCustomControlCallback)=='function'){ if(ShouldCallCustomCallBack('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1',event)){if(!ValidatePickerControl('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1')){ShowValidationError();return false;}else {ExternalCustomControlCallback('ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1');}}} Sys.UI.DomElement.removeCssClass(this, 'ms-inputBoxActive');" name="upLevelDiv" prefercontenteditablediv="true" autopostback="0" isblankruleset="true" onvaluesetfrompicker='CustomControl.OnValueChanged("ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0_ctl00_ctl33_g_208a2c49_d0a0_4f86_8940_a36b9b4b55bd_FormControl0__customcontrol1");' rows="1"><br></div>
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...