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

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

備考

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