Царапающий сайт не может получить доступ к элементу фрейма - PullRequest
Новая
       32

Царапающий сайт не может получить доступ к элементу фрейма

0 голосов
/ 08 июля 2019

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

После этого шага я хочу заполнить разные поля, но у меня это не работает 

У моего поля есть «ID», но я не могу получить к нему доступ.

Мне кажется, что я не получаю доступ к iframe правильно, и мне нужна поддержка здесь.

Я уже много чего перепробовал, но сам не могу разобраться. 

Example Source code  

<html class
 <body class
  <table
   <tbody
    <tr
     <td
      <table
       <body>
        <tr
         <td
          <div
           <iframe
            <html
             <frameset
              <frame name
               <html
                <frameset
                 <frame name
                  <html
                   <frameset
                    <frame name
                     <html
                      <frameset
                       <frame name
                        <html
                         <body
                          <div
                           <div
                            <table
                             <tbody
                              <tr class
                        <td class
            <form class
                                    <table class
                  <tbody
                   <tr class
                    <td class
                     <table class
                       <tbody
                    <tr class
                     <td class

<input class="Name Example" id=" ABCDEF " style="padding: 0px; width: 225px; height: 18px;" onhelp="showWimHelp(this)" onchange="" oncontextmenu="showViewerColumnsMenu('AABB45PR','','0','','','',event);return false;" type="TEXT" maxlength="50">

Пример кода: 

Dim ie As SHDocVw.InternetExplorer
Dim Doc As MSHTML.HTMLDocument
Dim elements As MSHTML.IHTMLElementCollection
Dim nachnameValueInput As MSHTML.HTMLInputElement

Set ie = New SHDocVw.InternetExplorer

With ie
    .Visible = True
    .navigate "https://Link"
    Do Until Not .Busy And .readyState = 4
        DoEvents
    Loop
...