У меня есть таблица на веб-странице, которую я пытаюсь превзойти. Он извлекает информацию из таблицы на веб-странице в определенные ячейки c. У меня проблема в том, что таблица импортирует все слова в ячейке таблицы как 1 ячейку, но я хочу, чтобы она построчно разделялась по имени, почтовому адресу и почтовому индексу города штата. Каждая из них - это отдельная строка в таблице, из которой я импортирую, но я не уверен, как вытащить каждую строку отдельно. Кто-нибудь может помочь?
Мой код выглядит следующим образом:
Sub ParcelIDSearch2()
Dim i As Integer
Dim IE As New InternetExplorer
IE.Visible = True
'Start count at 2 to begin iterations in while loop until it finds an empty cell
i = 2
lr = Range("A" & Rows.Count).End(xlUp).Row
nr = lr + 1
Do Until i = nr
IE.Navigate "https://wedge1.hcauditor.org/view/re/" & Cells(i, "A") & "/2019/summary"
Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE
Set doc = IE.document
Dim sTD As String
sTD = doc.getElementsByTagName("div")(24).innerText
aTD = Split(sTD, ",")
Cells(i, 2) = aTD(0)
i = i + 1
Loop
End Sub