Приведенный ниже код сохраняет страницу 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