Как получить исходный код в столбце в Excel VBA?

Question

Как вставить исходный код в столбец (столбец C), а не в ячейку (C1)?

Sub Tester()
Range("c1").Value = GetSource("https://www.yahoo.com/")
End Sub


Function GetSource(sURL As String) As String

Dim oXHTTP As Object

Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET", sURL, False
oXHTTP.send
GetSource = oXHTTP.responsetext
Set oXHTTP = Nothing

End Function

Хотите это

Не так

Answer 1

, чтобы сделать то, что вы хотите, вам нужен действительный разделитель строк, если вы знаете это, вы можете попробовать этот код

Sub Tester()
s = GetSource("https://www.google.com/")
separator="?" '<<< to changed
arr = Split(s, separator)
For r = 0 To UBound(arr)
  Cells(r + 1, 1) = arr(r)
Next
End Sub