datagridviewからexcelへエクスポートしたい

質問

datagridviewからexcelへエクスポートしたい

アクセス２０００に接続をして、クエリから得られる結果をdatagridviewに表示は出来たのですが、
それをエクセルに吐き出す事が出来ずに苦慮しております。

Public Class form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cn As OleDb.OleDbConnection _
= New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\VB2008\ｘｘｘｘｘ.mdb;")

Dim cmd As New OleDb.OleDbCommand("Q１")

cmd.CommandType = CommandType.TableDirect
Dim da As New OleDb.OleDbDataAdapter()
da.SelectCommand = cmd
da.SelectCommand.Connection = cn

Dim dt As New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt

End Sub

上記のコードでdatagridviewに表示は出来ました。

webで色々調べたのですが、サンプルとなるコードが見つからずの状態です。
サンプルとなるコードはありますでしょうか？
そもそも、エクセルに吐き出す事は可能でしょうか？
可能であれば、どのようなコードを書けばよいでしょうか？

環境ですが、
XP（SP3）、
VB２００８EXPRESS　EDITION
Access２０００（SP3）
Excel２００７（SP2）

以上になります。

お忙しい所お手数をお掛けしますが、
ご教授下さい。

以上、宜しくお願いします。

回答No.1

rk_les · ベストアンサー

こんにちは。

DataTableの値をcsv形式でファイルを作成しております。

Dim Writer As New IO.StreamWriter("フォルダ名＋ファイル名 ex) c:\hoge\hoge.csv", False, System.Text.Encoding.GetEncoding("Shift-Jis"))

Dim LineText As String = """列名１"",""列名２"",""列名３"""
Writer.WriteLine(LineText)

For j As Integer = 0 To DataTable1.Rows.Count - 1 Step 1　　'DataGridViewに変更で大丈夫です。

LineText = """"

For i As Integer = 0 To DataTable1.Columns.Count - 1
If i > 0 Then
LineText &= ""","""
End If
LineText &= DataTable1.Rows(j).Item(i).ToString()
Next

Writer.WriteLine(LineText & """")

Next

Writer.Close()
Writer.Dispose()

ご参考までに

お礼

ありがとうございました。
早速やってみます