最初に言っておきたいのは、他の人が学ぶのを助けるために自分の知識を提供してくれるすべての人に感謝しています...
Datgrid を Excel ファイルにエクスポートして正常に動作するコードをまとめることができましたが、データグリッドの最初の行しか取得していません。データグリッドには 1 つまたは数百のレコードが含まれる可能性があるため、すべての行を Excel にエクスポートする必要があります。
これが私がまとめることができたものです(繰り返しますが、正常に動作し、ファイルは列ヘッダーで保存されますが、データグリッドからデータの最初の行のみを書き込みます):
'Export to Excel
Dim ExApp1 As Excel.Application
Dim ExWkbk1 As Excel.Workbook
Dim ExWksht1 As Excel.Worksheet
Dim MisValue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
ExApp1 = New Excel.Application
ExWkbk1 = ExApp1.Workbooks.Add(MisValue)
ExWksht1 = ExWkbk1.Sheets("sheet1")
For i = 0 To dg7.RowCount - 2
For j = 0 To dg7.ColumnCount - 1
ExWksht1.Cells(i + 2, j + 1) = dg7(j, i).Value.ToString()
For k As Integer = 1 To dg7.Columns.Count
ExWksht1.Cells(1, k) = dg7.Columns(k - 1).HeaderText
ExWksht1.Cells(i + 2, j + 1) = dg7(j, i).Value.ToString()
Next
Next
Next
ExWksht1.SaveAs("C:\MyExcel.xlsx")
ExWkbk1.Close()
ExApp1.Quit()
releaseObject(ExApp1)
releaseObject(ExWkbk1)
releaseObject(ExWksht1)
繰り返しますが、私が学ぶのを手伝ってくれて、前もって感謝します