OFFICE2007下如何使vb另存为 xls 2003

Question

我的电脑安装的是OFFICE2007 ，如何使vb另存为 xls 2003
 Dim xlApp As New Excel.Application    '---创建 Excel 对象
    Dim xlBook As Excel.Workbook  '---工作簿
    Dim xlSheet As Excel.Worksheet  '---工作表
    Dim xlQuery As Excel.QueryTable  '---查询表
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Set xlBook = xlApp.Workbooks().Add
    Set xlSheet = xlBook.Worksheets("sheet1")
    xlApp.Visible = False
    
    xlSheet.Cells(1, 1) = "测试" '写入内容
    xlBook.SaveAs ("c:\111\yes") '保存文件
    xlBook.Close
    Set xlApp = Nothing  '"交还控制给Excel
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Screen.MousePointer = 0

Answer 1

xlBook.SaveAs ("c:\111\yes") '保存文件
---->
xlBook.SaveAs Filename:="c:\111\yes.xls" , FileFormat:=18