＋设为首页 ＋添加到收藏夹
Dim doc As IHTMLDocument2
Set doc = WebBrowser.Document
debug.print doc.all.toString
我用以上办法，得到的只是 [object]
请问应该如何才能 获得 WebBrowser 中的html 代码
Dim Fs,File
Dim Content
Set Fs = CreateObject("Scripting.FilesystemObject")
If Fs.FileExists("aaa.htm") Then
Set File = Fs.OpenTextFile("aaa.htm",1)
Content = File.ReadAll()
msgbox Content
debug.print doc.documentElement.outerHTML
