创建HTMLDocument实例 网页头部内容丢失
Dim doc As New HTMLDocument
'方法1
doc.body.innerHTML "<HTML><HEAD><TITLE> 我的测试网页</TITLE><META NAME='Keywords' CONTENT='我的, 测试, 网页'></HEAD><BODY>BODY内容我的测试网页</BODY></HTML>"
MsgBox doc.documentElement.innerHTML
'msgbox 的内容为:(<HTML><HEAD></HEAD><BODY>BODY内容我的测试网页</BODY></HTML>)
'网页头部内容(<TITLE> 我的测试网页</TITLE><META NAME='Keywords' CONTENT='我的, 测试, 网页'>)丢失
'方法2
doc.documentElement.innerHTML "<HTML><HEAD><TITLE> 我的测试网页</TITLE><META NAME='Keywords' CONTENT='我的, 测试, 网页'></HEAD><BODY>BODY内容我的测试网页</BODY></HTML>"
'提示错误,属性使用无效 ?怎样才能吧整个网页的代码解析成一个HTMLDocument对象
Dim doc As New HTMLDocument
'方法1
doc.body.innerHTML "<HTML><HEAD><TITLE> 我的测试网页</TITLE><META NAME='Keywords' CONTENT='我的, 测试, 网页'></HEAD><BODY>BODY内容我的测试网页</BODY></HTML>"
MsgBox doc.documentElement.innerHTML
'msgbox 的内容为:(<HTML><HEAD></HEAD><BODY>BODY内容我的测试网页</BODY></HTML>)
'网页头部内容(<TITLE> 我的测试网页</TITLE><META NAME='Keywords' CONTENT='我的, 测试, 网页'>)丢失
'方法2
doc.documentElement.innerHTML "<HTML><HEAD><TITLE> 我的测试网页</TITLE><META NAME='Keywords' CONTENT='我的, 测试, 网页'></HEAD><BODY>BODY内容我的测试网页</BODY></HTML>"
'提示错误,属性使用无效 ?怎样才能吧整个网页的代码解析成一个HTMLDocument对象
doc.body.innerHTML = "BODY内容我的测试网页"