如何将源代码放入Excel vba的列中？

2024-05-03 • 问答

如何将源代码粘贴到列（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

想要

不喜欢

avepointer111 回答：如何将源代码放入Excel vba的列中？

要执行所需的操作，您需要一个有效的行分隔符，如果知道的话，您可以尝试以下代码

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

excel vba

本文链接：https://www.f2er.com/3152262.html

如何将源代码放入Excel vba的列中？

avepointer111 回答：如何将源代码放入Excel vba的列中？

大家都在问