none
如何用 NPOI 產生多個 Excel 檔?? RRS feed

  • 問題

  • 本人目前可以用 NPOI 順利的產個 "一個" excel 當案

    但若要用 For Next 的方式 產生兩個以上的 Excel 檔時, 執行結果會變成出現一個奇怪的檔名------->檔名.xls, attachment

     

    還請高手指點迷津

     

    Dim FileName = "Test"

                         For i = 0 To 5

                            For j = 0 To 10

    Dim FileName1 = FIleName & "[" & i & "][" & j & "]"

        略........

                                doWriteExcelFile(Me, Xl , FileName1)

                            Next j

                        Next i

     

            Shared Sub doWriteExcelFile(ByVal FormMe As System.Web.UI.Page, ByRef Xl As HSSFWorkbook, ByVal FileName As String)

                Dim ms As New MemoryStream()

                Xl.Write(ms)

                FormMe.Response.ContentType = "application/vnd.ms-excel"

                FormMe.Response.AddHeader("content-disposition", "attachment; filename=" & FileName & ".xls")

                FormMe.Response.Clear()

                FormMe.Response.BinaryWrite(ms.ToArray)

                Xl = Nothing

                ms.Close()

                ms.Dispose()

            End Sub

    2011年8月24日 上午 03:32

解答

所有回覆