如何解决如何提取 HTML 源代码到 Excel VBA
I',尝试将整个 HTML 正文复制并粘贴到 Excel 工作表中。现在我有这个
Sub audycje()
Dim strona As Object
Dim adres As String
Dim wb As Workbook
Dim a As String
Set strona = CreateObject("InternetExplorer.Application")
Set wb = ThisWorkbook
adres = InputBox("Podaj adres strony")
strona.navigate (adres)
wb.Worksheets("Dane").Range("B2") = strona.body.innerHTML
strona.Quit
End Sub
只是无法将 HTML 插入到 excel 中;/
[编辑] 我得到了这个,它工作正常,但是...
Sub audycje()
Dim strona As Object
Dim adres As String
Dim wb As Workbook
Dim a As Object
Set strona = CreateObject("InternetExplorer.Application")
Set wb = ThisWorkbook
adres = InputBox("Podaj adres strony")
If adres = "" Then
MsgBox ("Nie podano strony do załadowania")
Exit Sub
End If
strona.Visible = True
strona.navigate (adres)
wb.Worksheets("Dane").Range("B2") = strona.document.body.innerHTML
End Sub
整个 HTML 正文都在一个单元格中。如何传播?
解决方法
Did you mean something like this?
Sub audycje()
Dim strona As Object
Dim adres As String
Dim wb As Workbook
Dim a As Object
Dim str_var As Variant
Set strona = CreateObject("InternetExplorer.Application")
Set wb = ThisWorkbook
adres = InputBox("Podaj adres strony")
If adres = "" Then
MsgBox ("Nie podano strony do zaladowania")
Exit Sub
End If
Set strona = CreateObject("htmlfile") 'Create HTMLFile Object
With CreateObject("msxml2.xmlhttp") 'Get the WebPage Content
.Open "GET",adres,False
.send
strona.Body.Innerhtml = .responseText
End With
'Split_with_delimiter_newline
split_var = Split(strona.Body.Innerhtml,Chr(10))
Application.ScreenUpdating = False
For i = 0 To UBound(split_var,1)
Cells(2 + i,2).Value2 = split_var(i)
Next i
Application.ScreenUpdating = True
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。