VB.net中的EPPlus

Question

我正在尝试用EPPlus填充现有的xls文件，但是我从未使用过它。 我必须在数据库中搜索数据。

插入数据后，用户可以将文件保存在他的计算机上，我对EPPlus一无所知，所以我这样做了：

Dim ExistFile = Server.MapPath("~/Vues/tableau_qualif1.xlsx")

Dim File = New FileInfo(ExistFile)
Dim Connection As New SqlConnection(ConfigurationManager.ConnectionStrings("Formation_2014ConnectionString").ConnectionString)
Dim i = 3
Dim Query = "SELECT * FROM personnes"

Using package As New ExcelPackage(File)
    package.Load(New FileStream(ExistFile, FileMode.Open))

    Dim workSheet As ExcelWorksheet = package.Workbook.Worksheets("Feuil1")

    Try
        'Ouverture de la connexion
        Connection.Open()
        'Définition de la commande et de ses paramètres
        Dim Commande As New SqlCommand(Query, Connection)

        'Création du SqlDataAdapter et du DataSet (En fonction de la Commande)
        Dim Adaptateur As New SqlDataAdapter(Commande)
        Dim MonDataSet As New DataSet
        Try
            'Définition de l'adaptateur
            Adaptateur.Fill(MonDataSet, "Personnes")

            For Each Ligne As DataRow In MonDataSet.Tables("Personnes").Rows()
                workSheet.Cells("A" & i).Value = Ligne("Prenom_personne").ToString() & " " & Ligne("Nom_personne").ToString()
                i = i + 1
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    'Fermeture de la connexion
    Connection.Close()

    package.Save()


    Response.Clear()
    Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"

    Response.BinaryWrite(package.GetAsByteArray())

    Response.End()

End Using

此代码在

Response.BinaryWrite(package.GetAsByteArray())

有人可以帮助我吗？ 非常感谢 ！

Answer 1

我的线

package.save()

造成我的问题，我只需删除此行，一切正常！