繼上篇" 【VB】使用NPOI元件來匯出Excel ",這次則利用DataTableToExcel方式來實作,執行結果一樣,所以不在抓畫面了。 引用: Imports System.IO Imports System.Data Imports NPOI.HSSF.UserModel Imports NPOI.HPSF Imports NPOI.POIFS.FileSystem Imports NPOI.Util 程式碼(參考) : 本人做法是撈取DB內容,然後透過DataTable匯出Excel。 Dim file_name As String = Format(Now, "yyyyMMdd") & "採購單.xls" Dim ms As MemoryStream = New MemoryStream() '==需要 System.IO命名空間 ' 抓 DB Dim conn As String = Get_Val(Me.DropDownList1.SelectedValue) ads.ConnectionString = conn ads.SelectCommand = Me.SqlDataSource1.SelectCommand Dim dv As Data.DataView = ads.Select(New DataSourceSelectArguments) dv = ads.Select(New DataSourceSelectArguments) ...
留言
張貼留言