DataGridViewの内容をExcelに書き込みたいのですが

質問

お世話になります。現在VB2008にて、DataGridViewの内容をExcelに書き込むという仕様を作っているのですが、ExcelのCellにDataGridViewの値を書き込むという作業をループ処理で行いたいのですが、ソースの書き方がわからないんです。
まず私が書いたソースは、
Private Sub Excel()
Dim xlapp As Excel.Applcation
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

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

xlApp.Workbooks.Add()
xlBook = xlApp.ActiveSheet
xlSheet = xlBook.ActiveSheet

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

'Excelファイル終了処理
　 xlBook.Close
xlApp.Quit()

xlSheet = Noting
xlBook = Noting
xlApp = Noting

End Sub
こちらになりますが、このソースの「'シートの編集」の部分をループ処理で行いたいのです。
DataGridViewで一行Excelに書き込んだら、ExcelのCellの位置も一行移動するという書き方がわからないんです。
どなたかご教授ください。よろしくお願いします。

回答No.1

AKARI0418 · ベストアンサー

xlSheet.Cells(1, 1).Value = DataGridView1(0, 0).Value.ToString
xlSheet.Cells(2, 1).Value = DataGridView1(0, 1).Value.ToString

を
For i as integer = 0 to DataGridView1.Rows.Count -1
For j as integer = 0 to DataGridView1.Columns.Count -1
xlSheet.Cells(i + 1, j + 1).Value = DataGridView1(i, j).Value.ToString
Next j
Next i

ですかね。

EXCELをCOMオブジェクト経由で使用する際はきちんと開放しないと、EXCELのプロセスが残ってしまいます。

''' <summary>
''' COMオブジェクト開放処理
''' </summary>
''' <remarks>
''' 使用したCOMオブジェクトの開放を行う
''' </remarks>
Private Sub MRComObject(Of T As Class)(ByRef objCom As T, Optional ByVal force As Boolean = False)
If objCom Is Nothing Then
Return
End If
Try
If System.Runtime.InteropServices.Marshal.IsComObject(objCom) Then
If force Then
System.Runtime.InteropServices.Marshal.FinalReleaseComObject(objCom)
Else
Dim count As Integer = System.Runtime.InteropServices.Marshal.ReleaseComObject(objCom)
End If
End If
Finally
objCom = Nothing
End Try
End Sub

を使用して、きちんと開放してくださいね。
MRComObject(xlSheet)
といった感じで使用します。
EXCEL関係はすべてこれを利用して開放してください。

私は以下のように使用しています。
MRComObject(xlSheet) 'xlSheet の解放
MRComObject(xlSheets) 'xlSheets の解放
Try
xlBook.Close(False) 'xlBook を閉じる
Catch ex As Exception

End Try

MRComObject(xlBook) 'xlBook の解放
MRComObject(xlBooks) 'xlBooks の解放
xlApp.Quit() 'Excelを閉じる
MRComObject(xlApp) 'xlApp を解放

お礼

回答ありがとうございます。
>EXCELをCOMオブジェクト経由で使用する際はきちんと開放しないと、EXCELのプロセスが残ってしまいます。

ご指摘ありがとうございます。
実は、質問で書いたソース上において、
開放という部分が理解できていなかったんです。
AKARI0418さんのサンプルコードを基に勉強したいと思います。