用户从vbscript applicayion下载xlsx文件

Question

我有以下代码创建xlsx文件并将其保存在本地服务器端。

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = true

objExcel.Workbooks.Add()

Set objWorkbook = objExcel.Workbooks(1)

objWorkbook.Sheets(1).Cells(1,1).value = 111

objWorkbook.SaveAs strFilePath

我需要将其返回给用户，以便将其保存为客户端（浏览器询问您保存文件的位置）

我尝试过设置内容类型

Response.ContentType = "application/x-msexcel"
Response.AddHeader "Content-Disposition", "attachment; filename=Enquiry_List.xlsx"

然后打印

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

Response.Write objStream.Read

或

Response.BinaryWrite objStream.Read

但它下载的文件不是xlsx。

有人有任何建议吗？