Как сохранить новую структуру веб-импортированных данных после обновления?

Question

Я создаю базу данных Excel. Я хотел бы импортировать имена, электронные письма и рабочие места всех сотрудников фирмы с веб-сайта фирмы. Я выбираю Data-> From Web и выбираю целую страницу, так как это единственная возможность.

На этой странице нет таблицы с данными; просто длинный список фотографий сотрудников с именами, адресами электронной почты и вакансиями рядом с ними

Я импортирую данные в электронную таблицу Excel: формат очень плох. Поэтому я начинаю вырезать и вставлять столбец для «имен», один для «email» и аналогично для «job position». Вся другая информация отменяется вручную.

Я хотел бы обновить данные, сохраняя этот новый формат. К сожалению, каждый раз, когда я обновляю импортированные данные с помощью кнопки «Обновить все», они возвращаются в исходный формат.

Как сохранить новый формат импортированных данных в Интернете после обновления?

Благодарю вас за вашу поддержку!

Kr,

Answer 1

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

код будет работать только при условии расположения базового html остается неизменным. Он не поддерживает обновление существующего списка (все, что на листе 1 удаляется до повторного чтения списка)

Чтобы использовать этот код, вы должны поместить его в новый модуль кода (а не в листы или разделы рабочей книги), а вы может запускать его либо из редактора кода, либо через меню макросов в главном окне excel.

' Note: This code requires the following references to be loaded. 
' Microsoft HTML Object Library (mshtml.tlb) 
' Microsoft Internet Controls (ieframe.dll) 
' To add a reference 
' In the VBA Code Editor, in the Tools Menu click the References item 
' Scroll through the list and ensure that the references are selected 
' Press OK and your done. 

Sub Scrape() 
Dim Browser As InternetExplorer 
Dim Document As HTMLDocument 
Dim Element As IHTMLElement 
Dim Elements As IHTMLElementCollection 
Dim empName As String 
Dim empTitle As String 

Dim Sheet As Worksheet 

    Set Sheet = ThisWorkbook.ActiveSheet 

    Sheet.UsedRange.ClearContents ' Nuke the old list 

    Set Browser = New InternetExplorer 

    Browser.navigate "http://www.hsbc.com/about-hsbc/leadership" 

    Do While Browser.Busy And Not Browser.readyState = READYSTATE_COMPLETE 
     DoEvents 
    Loop 

    Set Document = Browser.Document 

    Set Elements = Document.getElementsByClassName("profile-col1") 

    For Each Element In Elements 
     empName = Trim(Element.Children(1).Children(0).innerText) 
     empTitle = Trim(Element.Children(1).Children(1).innerText) 
     Sheet.Range("A1:B1").Insert xlShiftDown 
     Sheet.Cells(1, 1).Value = empName 
     Sheet.Cells(1, 2).Value = empTitle 
     'Debug.Print "[ name] " & empName 
     'Debug.Print "[ title] " & empTitle 
    Next Element 

    Set Browser = Nothing 
    Set Elements = Nothing 

End Sub