datagridviewからエクセルへ出力する際のエラーについて

質問

datagridviewからエクセルへ出力する際のエラーについて

いつもお世話になります。

datagridviewに表示されたデータをエクセルへ出力したく以下のコードを書きました。

Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Office.Interop

Public Class form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cn As OleDb.OleDbConnection _
= New OleDb.OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\VB2008\コピー ～ 社会保険計算.mdb;")
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

'Excelを開く
xlapp = CreateObject("Excel.Application")
xlapp.Visible = True

xlapp.Workbooks.Add()
xlBook = xlapp.ActiveWorkbook
xlSheet = xlBook.ActiveSheet

'シートの編集
☆　xlSheet.Cells(1, 1).Value = DataGridView1(1, 1).Value.ToString
　xlSheet.Cells(2, 1).Value = DataGridView1(2, 1).Value.ToString

xlBook.Close()
xlapp.Quit()
xlBook = Nothing
xlapp = Nothing

End Sub

☆マークで止まってしまいます。
argumentoutofrangeexceptionがハンドルされませんでした。
インデックスが範囲を超えています。負でない値でコレクションのサイズよりも小さくなければなりません。
パラメータ名：index

と表示されます。

環境は、VB.NET２００８
　　　　XP（SP3）
　　　　Excel２００７　になります。
上記のエラーで止まり、エクセルも立ち上がりぱなしです。

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

回答No.1

rk_les · ベストアンサー

その方法での出力は正直同意しかねます。理由は山ほどありすぎて話切れないので割愛させていただきます。

>argumentoutofrangeexceptionがハンドルされませんでした。
インデックスが範囲を超えています。負でない値でコレクションのサイズよりも小さくなければなりません。

エラーのいってる通りです。
http://msdn.microsoft.com/ja-jp/library/system.argumentoutofrangeexception(VS.80).aspx
ブレークポイントを置いて中身を見てみましょう。