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２００７ になります。
上記のエラーで止まり、エクセルも立ち上がりぱなしです。
お忙しい所お手数をお掛けしますが、ご教授下さい。
