高考问答耽美往菊花里塞东西:VB中把Excel文件另存为HTML文件
来源：百度文库 编辑：高考问答 时间：2024/05/01 06:27:05
请问各位大虾我用一下代码把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
这样就应该能解决问题了吧
改一下，如果不行就没办法了！