asp保存excel时报错类 Workbook 的 SaveAs 方法无效，不知该怎么解决？

我刚做vb，就想试着将数据保存为excel，报错Workbook 的 SaveAs 方法无效，网上也找了好多答案，也都没啥用，下面是我的代码
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
ExcelApp.DefaultSaveFormat = 56
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.WorkSheets(1).cells(1,1).value ="订单号"
ExcelBook.WorkSheets(1).cells(2,1).value = "商品代码"
ExcelBook.WorkSheets(1).cells(3,1).value = "商品名称"

    cnt = 2

    ExcelBook.WorkSheets(1).cells(cnt,1).value = "123456"
    ExcelBook.WorkSheets(1).cells(cnt,2).value = "C151515"
    ExcelBook.WorkSheets(1).cells(cnt,3).value = "钢笔"
    
    Excelbook.SaveAs "d:\myfile.xls" 
    ExcelApp.Application.Quit 
    Set ExcelApp = Nothing 

望有知道的给予解答一下，感谢！

你好，
你这个格式不对啊！
格式：

Excelbook.SaveAs Filename:=fName

或者：

Dim path As String = "D:\Users" & "//" & clientName
Excelbook.SaveAs(path & "//" & fileName)