vb打开html格式文件

这个文件使用了UTF8编码或者别的编码方式，所以字符串显示不正确，解决方法有两种：

1、用记事本另存为，选择ANSI的字符集保存，之后就可以正常打开了。

2、把整个文件保存在一个字节数组里，然后用字符串转换函数strconv来转换，不过前提是你得知道是什么格式才行

UTF8编码可以用下面的函数来处理：

传入一个文件名，返回这个文件的内容，如果文件是UTF8的话则返回是转换后的代码

Public Function ReadUTF8(ByVal sUTF8File As String) As String

If Len(sUTF8File) = 0 Or Dir(sUTF8File) = vbNullString Then Exit Function

Dim ados As Object

Set ados = CreateObject("adodb.stream")

With ados

.Charset = "utf-8"

.Type = 2

.Open

.LoadFromFile sUTF8File

ReadUTF8 = .ReadText

.Close

End With

Set ados = Nothing

End Function

还可以使用xmlhttp，也就是类似于JavaScript的Ajax的方式：

Set xmlhttp = CreateObject("MicroSoft.XMLHTTP") '这三行是获取网页源码

xmlhttp.Open "get", "网址写在这", False

xmlhttp.Send

Set html = CreateObject("htmlfile") '这两行是把网页源码重新解析为html文档

html.Write xmlhttp.responseText

Set Acollection = html.All.tags("input") '这是获取html中的所有input元素

……后面的代码就跟你的完全一样了

这种方式，只会下载网页的html代码，不会下载网页中包含的图片、脚本、样式表等数据，而且不需要渲染和显示出网页内容，所以速度比用WebBrowser控件要快得多。

---