VB.NET無法產生EXCEL檔

我使用
Imports System.IO

DataGridView匯出EXCEL

我使用OFFICE為2010

發生問題是匯出寫入時無法寫入C:\

有無同時支援XLS檔及XLSX檔?

Dim a As String = "C:\" & Format(Now, "yyyyMMdd_HH_mm_ss")  ".xls"
Dim ab As StreamWriter = New StreamWriter(a, False, ab.Text.Encoding.Default)
...

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

輸出時不是檔名一樣就可以了,以下是我很久以前寫的提供你參考一下

1.    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
   
2.         'Confirms that an HtmlForm control is rendered for the specified ASP.NET
   
3.         ' server control at run time. */
   
4.         ' 我是不知這函數做什麼用, 但還不能少了這個部份
   
5.     End Sub
   
6. 
   
7.     Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
   
8.         Dim dDate As String = Replace(FormatDateTime(Now, 2), "/", "")
   
9.         ' 匯出的檔名, 不能用中文哦!會變亂碼
   
10.         Dim PrnFileName As String = "LogType-" & Replace(FormatDateTime(Now, 2), "/", "") & ".xls"
    
11.         ' --- Excel 輸出的部份 -----------------------------------------------------------------------
    
12.         Response.Clear()
    
13.         Response.AddHeader("content-disposition", "attachment;filename=" & PrnFileName)
    
14.         Response.Charset = "BIG5"
    
15.         Response.ContentEncoding = System.Text.Encoding.GetEncoding("BIG5")
    
16.         Response.Cache.SetCacheability(HttpCacheability.NoCache)
    
17.         Response.ContentType = "application/vnd.ms-excel"
    
18.         Dim stringWrite As System.IO.StringWriter = New System.IO.StringWriter()
    
19.         Dim htmlWrite As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite)
    
20.         '-----------------------------------------------------------------------------------------------
    
21.         ' 讀取另一個已有的SqlDateSource 的設定
    
22.         Dim sds As New SqlDataSource(Me.SqlDataSource2.ConnectionString, "")
    
23.         sds.SelectCommand = Me.SqlDataSource2.SelectCommand
    
24.         sds.DataSourceMode = SqlDataSourceMode.DataSet
    
25. 
    
26.         Dim dv As Data.DataView = sds.Select(New DataSourceSelectArguments)
    
27.         ' 啟動 GridView
    
28.         Me.GridViewToExcel.DataSource = dv
    
29.         Me.GridViewToExcel.DataBind()
    
30. 
    
31.         ' --- Excel 輸出的部份 -----------------------------------------------------------------------
    
32.         Me.GridViewToExcel.RenderControl(htmlWrite)
    
33.         Response.Write(stringWrite.ToString())
    
34.         Response.End()
    
35.         '-----------------------------------------------------------------------------------------------
    
36. 
    
37.     End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員