[VB.NET] CSVファイルをダウンロードする

VB.NETでCSVデータを生成して、CSVデータをファイルとして
ダウンロードするサンプルです。

サンプル

例）CSVファイルをダウンロードするサンプル

Protected Sub CsvDownload()

  'CSVデータを生成
  Dim str As StringBuilder = New StringBuilder
  str.Append("文字1-1")
  str.Append(",")
  str.Append("文字1-2")
  str.Append(",")
  str.Append("文字1-3")
  str.Append(vbCrLf)

  str.Append("文字2-1")
  str.Append(",")
  str.Append("文字2-2")
  str.Append(",")
  str.Append("文字2-3")
  str.Append(vbCrLf)

  'Contentをクリア
  Response.ClearContent()

  'Contentを設定
  Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift-jis")  'Shift-JISで出力したい場合
  'Response.ContentEncoding = System.Text.Encoding.UTF8  'UTF-8で出力したい場合
  Response.ContentType = "text/csv"

  '表示ファイル名を指定
  Dim viewFileName As String = HttpUtility.UrlEncode("サンプル.csv")
  Response.AddHeader("Content-Disposition", "attachment;filename=" + viewFileName)

  'CSVデータを書き込み
  Response.Write(str.ToString)

  'ダウンロード実行
  Response.Flush()
  Response.End()

End Sub

Protected Sub CsvDownload()

'CSVデータを生成

Dim str As StringBuilder = New StringBuilder

str.Append("文字1-1")

str.Append(",")

str.Append("文字1-2")

str.Append(",")

str.Append("文字1-3")

str.Append(vbCrLf)

str.Append("文字2-1")

str.Append(",")

str.Append("文字2-2")

str.Append(",")

str.Append("文字2-3")

str.Append(vbCrLf)

'Contentをクリア

Response.ClearContent()

'Contentを設定

Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift-jis") 'Shift-JISで出力したい場合

'Response.ContentEncoding = System.Text.Encoding.UTF8 'UTF-8で出力したい場合

Response.ContentType = "text/csv"

'表示ファイル名を指定

Dim viewFileName As String = HttpUtility.UrlEncode("サンプル.csv")

Response.AddHeader("Content-Disposition", "attachment;filename=" + viewFileName)

'CSVデータを書き込み

Response.Write(str.ToString)

'ダウンロード実行

Response.Flush()

Response.End()

End Sub

備考

文字コードは、Excelで表示させるのであれば、Shift-JISで出力してください。
区切り文字をタブ文字にしたい場合は、「","」の箇所を「vbTab」に変更してください。