Я пытаюсь сохранить веб-страницу как HTML страницу в моей локальной системе через VBA, но не могу сохранить ее правильно, как исходную страницу - PullRequest
0 голосов
/ 20 апреля 2020

Приведенный ниже код сохраняет страницу HTML в моей локальной системе, проблема в том, что она сохраняется только в необработанной форме HTML, я могу видеть только содержимое и ссылки, а не CSS связанные элементы, цвета. Я хочу сохранить страницу так, как это было с оригинальной страницей. Пожалуйста, помогите мне изменить мой код для достижения цели.

Sub SaveHTML()
Dim URL as String
Dim IE as Object
Dim i as Long
Dim FileName as String
Dim FF as Integer

URL = "http://google.com" 'for TEST
Filename = "C:\Test.htm"

Set IE = CreateObject("Internetexplorer.Application")
 IE.Visible = True
 IE.Navigate URL
 Do
Loop While IE.Busy


CreateObject("Scripting.FileSystemObject").CreateTextFile FileName

FF = FreeFile
Open Filename For Output As #FF

With IE.Document.Body
Print #FF, .OuterHtml & .InnerHtml
End With

Close #FF

IE.Quit
Set IE = Nothing
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...