请教关于excel转html的问题

Question

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook 
Dim xlSheet As Excel.Worksheet 
Dim strr As String 
Dim i As Integer 
Set xlBook = xlApp.Workbooks.Open("d:\vb\excel\1.xls") 
Set xlSheet = xlBook.Worksheets(1) 
str1 = xlSheet.SaveAs("d:\vb\excel\te.htm", xlHtml) 
我用如上代码来将一个xls文件另存为html文件,但是报错 
“缺少函数或变量” 
请问这是什么原因？

Answer 1

Call xlSheet.SaveAs("d:\vb\excel\te.htm", xlHtml)

Answer 2

Call xlSheet.SaveAs("d:\vb\excel\te.htm", Excel.XlFileFormat.xlHtml)