杭州交通信息网朱良春治病经验方:VB中把Excel文件另存为HTML文件
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 08:57:18
请问各位大虾我用一下代码把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
这样就应该能解决问题了吧
改一下，如果不行就没办法了！