Vb.net 使用ePlus在循环中保存

我正在尝试使用EPplus在循环中生成Excel文件

这是我的职责：

Function CreerExcel(ByVal val1 As String, ByVal val2 As String, ByVal val3 As String, ByVal val4 As String, ByVal val5 As String)
    'Ouverture de mon fichier Excel existant
    Dim ExistFile = Server.MapPath("~/Styles/Excel/fiche_evaluation.xlsx")

    Dim File = New FileInfo(ExistFile)

    'Définition du package EPplus
    Using package As New ExcelPackage(File)
        package.Load(New FileStream(ExistFile, FileMode.Open))

        'Selection de l'onglet de travail (Excel)
        Dim workSheet As ExcelWorksheet = package.Workbook.Worksheets("Feuil1")
        'Ecriture
        workSheet.Cells("B6").Value = val1
        workSheet.Cells("F6").Value = val2
        workSheet.Cells("C7").Value = val3
        workSheet.Cells("G7").Value = val4
        workSheet.Cells("C8").Value = val5
        'Enregistrement du nouveau fichier
        Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
        Response.AddHeader("content-disposition", "attachment;  filename=Eval_" & val1 & "-" & val5 & ".xlsx")
        Response.BinaryWrite(package.GetAsByteArray())
        Response.Flush()
        Response.End()
    End Using

End Function

我正在用VB工作，当我调用这个函数时，它工作了，但是如果我的循环，循环X次，我可以只保存第一个文件。我想保存所有的文件

当我被替换的时候

Response.end()

借

我的循环第一次工作，但之后：

“发送HTTP标头后，服务器无法追加标头。”

---

有人能帮我吗

可能是的副本，其中有一些建议（压缩文件，或通过客户端上的脚本打开多个窗口/选项卡）？我不知道如何做到这一点，但似乎我必须做的是（在其他论坛和帮助聊天中，他们告诉了我同样的事情）

Response.clear()