杭州交通信息网如何加强项目前期工作:VB中把Excel文件另存为HTML文件
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 05:47:51
请问各位大虾我用一下代码把Excel文件另存为HTML文件,为什么转换好的HTML文件打开是乱码？
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = Excel.Application
Set xlWorkBook = xlApp.Workbooks.Open("c:/te.xls")
xlApp.Visible = True
Set xlSheet = xlWorkBook.Worksheets(1)
xlSheet.SaveAs FileName:="c:/te
xlWorkBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlWorkBook = Nothing
Unload Me
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = Excel.Application
Set xlWorkBook = xlApp.Workbooks.Open("c:/te.xls")
xlApp.Visible = True
Set xlSheet = xlWorkBook.Worksheets(1)
xlSheet.SaveAs FileName:="c:/te
xlWorkBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlWorkBook = Nothing
Unload Me
稍稍改动一下：
xlSheet.SaveAs FileName:="c:/te.htm",FileFormat:=xlHtml
这样就应该能解决问题了吧
你的IE设置是否有问题?