1

У меня есть таблица исключений, содержащая URL, например, так:

|        column A        |        column B        |
---------------------------------------------------
| www.example.com/page1  |
| www.example.com/page2  |

Я хотел бы скопировать html-контент из URL-адреса, приведенного в столбце A, в столбец B. Теперь я уже нашел некоторую документацию по импорту веб-контента с использованием VB (https://msdn.microsoft.com/en-us/library/aa203721% 28v = office.11% 29.aspx)

редактировать: мои извинения, мне уже удалось выполнить части моего запроса, используя вышеуказанный источник. Теперь я могу извлечь содержимое из URL, перебирая список URL:

Sub WebData()

Dim wSU As Worksheet
Dim wSR As Worksheet
Dim wSS As Worksheet

Dim iForRow As Integer
Dim iLastRow As Integer
Dim sURL As String

Set wSU = ThisWorkbook.Sheets("URLs")
Set wSR = ThisWorkbook.Sheets("Results")
Set wSS = ThisWorkbook.Sheets("Scrape")

Application.ScreenUpdating = False
iLastRow = wSU.Cells(wSU.Rows.Count, "a").End(xlUp).Row
For iForRow = 1 To iLastRow Step 1
sURL$ = wSU.Cells(iForRow, "a").Value
With wSS.QueryTables.Add(Connection:= _
"URL;" & sURL, Destination:=wSS.Range("A1"))
.Name = _
"example.aspx"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlNone
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
wSR.Cells(iForRow + 1, "a").Value = wSS.Range("A3").Value + "<br>" +    wSS.Range("A5").Value

Next iForRow
Application.ScreenUpdating = True
MsgBox "Process Completed"
End Sub

Есть ли способ импортировать необработанный HTML-код источника в Excel? Теперь он преобразует веб-контент в простой текст, но я хотел бы сохранить разметку HTML. Я уже попробовал установку.Вебформатирование и.WebPreFormattedTextToColumns в нет, без успеха

|источник

0