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の位置も一行移動するという書き方がわからないんです。
どなたかご教授ください。よろしくお願いします。
お礼
ありがとうございます。 DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter にて、バッチリ解決いたしました。