2014-12-05 34 views
-1

在VBA中尋找解決方案,而不是C#導出文件DataGridView我的所有列和行都以.txt文件的逗號或「:」分隔值。 在YouTube或谷歌上找不到任何內容,有些主題會幫助我閱讀和學習,謝謝。在文本文件中導出DataGridView雙點分隔

PS:我不想打開它在Excel或PDF打印。

+0

http://stackoverflow.com/questions/6674555/export-gridview-data-into-csv-file 在堆棧溢出收益率這個快速搜索。 – GVashist 2014-12-05 15:11:48

+0

thx但我需要VBA,VB .Net代碼,並且有時將c#轉換爲vb.net時出現問題,所以我一直在尋找。 AN其csv而不是.txt :) – Brandon 2014-12-05 15:28:41

+0

看看我的答案是否適合你。 – GVashist 2014-12-05 20:09:03

回答

0

VB.NET代碼:

Protected Sub btnExportCSV_Click(sender As Object, e As EventArgs) 
     Response.Clear() 
     Response.Buffer = True 
     Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.txt") 
     Response.Charset = "" 
     Response.ContentType = "text/plain" 

     GridView1.AllowPaging = False 
     GridView1.DataBind() 

     Dim sb As New StringBuilder() 
     For k As Integer = 0 To GridView1.Columns.Count - 1 
      'add separator 
      sb.Append(GridView1.Columns(k).HeaderText + ","c) 
     Next 
     'append new line 
     sb.Append(vbCr & vbLf) 
     For i As Integer = 0 To GridView1.Rows.Count - 1 
      For k As Integer = 0 To GridView1.Columns.Count - 1 
       'add separator 
       sb.Append(GridView1.Rows(i).Cells(k).Text + ","c) 
      Next 
      'append new line 
      sb.Append(vbCr & vbLf) 
     Next 
     Response.Output.Write(sb.ToString()) 
     Response.Flush() 
     Response.End() 
    End Sub 
+0

好thx我現在要測試 – Brandon 2014-12-06 17:29:36

+0

它甚至沒有開始,因爲有很多missign引用,如響應我沒有任何謊言,它是在RED錯誤,那麼如果我改變GridView1到我的DataGridView,它也顯示藍色下劃線錯誤,所以我不能真正使用它。 – Brandon 2014-12-06 17:34:21

+0

也沒有任何打開文件對話框要求我保存在PC中,所以我需要用戶在PC中選擇路徑,然後選擇自己的名字:http://postimg.org/image/q1frqpxu3/ – Brandon 2014-12-06 17:35:08

相關問題