[英]Export to Excel with header text
我的代码在导出到Excel时应该包含标题文本。
For i As Integer = 0 To DataGridView2.Rows.Count - 2
For j As Integer = 0 To DataGridView2.Columns.Count - 1
' Excel index starts from 1,1. As first Row would have the Column headers, adding a condition check.
If cellRowIndex = 1 Then
worksheet.Cells(cellRowIndex, cellColumnIndex) = DataGridView2.Columns(j).HeaderText
Else
worksheet.Cells(cellRowIndex, cellColumnIndex) = DataGridView2.Rows(i).Cells(j).Value
End If
cellColumnIndex += 1
Next
cellColumnIndex = 1
cellRowIndex += 1
Next
但是,此代码用标题文本替换了第一数据行,而不是将其插入上方。 如果我删除提取标题文本的If语句,则会得到所有行,但不会得到标题文本。
For i As Integer = 0 To DataGridView2.Rows.Count - 2
For j As Integer = 0 To DataGridView2.Columns.Count - 1
worksheet.Cells(cellRowIndex, cellColumnIndex) = DataGridView2.Rows(i).Cells(j).Value
cellColumnIndex += 1
Next
cellColumnIndex = 1
cellRowIndex += 1
Next
关于如何解决这个问题的任何想法?
下面的代码创建一个带有DataGridView头的Excel文件。 我已经在Visual Studio 2010中对其进行了测试。首先,您必须添加Microsoft Office程序集的引用。
Microsoft.Office.Interop.Excel(版本-12.0.0.0)
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value Dim i As Integer Dim j As Integer xlApp = New Microsoft.Office.Interop.Excel.Application xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") For i = 0 To DataGridView1.RowCount - 2 For j = 0 To DataGridView1.ColumnCount - 1 For k As Integer = 1 To DataGridView1.Columns.Count xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString() Next Next Next xlWorkSheet.SaveAs("C:\\vbToexcel.xlsx") xlWorkBook.Close() xlApp.Quit() releaseObject(xlApp) releaseObject(xlWorkBook) releaseObject(xlWorkSheet) MsgBox("File successfully created - C:\\vbToexcel.xlsx") End Sub Private Sub releaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC.Collect() End Try End Sub
跟踪代码后,很明显,两个for
循环中都存在索引问题。 您提供的代码似乎缺少第一行数据。
如您所言:
此代码用标题文本替换第一数据行,而不是将其插入上方 ...
这是不正确的,它不是替换行,而只是跳过DataGridView
的第一行数据。 下面是您的代码来解释。
For i As Integer = 0 To DataGridView1.Rows.Count - 2
For j As Integer = 0 To DataGridView1.Columns.Count - 1
If cellRowIndex = 1 Then
worksheet.Cells(cellRowIndex, cellColumnIndex) = DataGridView1.Columns(j).HeaderText
Else
worksheet.Cells(cellRowIndex, cellColumnIndex) = DataGridView1.Rows(i).Cells(j).Value
End If
cellColumnIndex += 1
Next
cellColumnIndex = 1
cellRowIndex += 1
Next
基本上,这会依次遍历行和列。 问题出在If
语句和索引i
。 在此If
语句中,您检查是否是第一次获取标头。 如果这是您的第一次,请编写标题以使用excel并继续。 这将跳过数据的第一行,因为循环变量i
用作分配给DataGridView行的索引:
worksheet.Cells(cellRowIndex, cellColumnIndex) = DataGridView1.Rows(i).Cells(j).Value
当进入j
循环时, i
周围的第一次为零(0)。 使用cellRowIndex
进行检查以确定是否需要输出标头。 在这种情况下,他们做......头然后输出退出这个if
和循环备份到下一个头。 当所有标头都输出后,您退出j
循环并循环回到i
循环。 这将使i
增至1并进入j
循环...由于在输出标头时i
已经为0,所以我们将跳过/错过DataGridView
第0行。 我希望这是有道理的。
一个简单的解决方案是将i
从-1开始:
For i As Integer = -1 To DataGridView1.Rows.Count - 2
这将解决您遇到的问题,但是代码不容易遵循。 我建议使用foreach
循环遍历DataGridView
行并将列输出与行输出分开。 这确实会创建两个循环,但是第一个循环只会循环一次以添加标头。 下一个循环遍历所有行。 这将使索引更易于处理,将来也更易于阅读。
For Each column In DataGridView1.Columns
worksheet.Cells(1, column.Index + 1).Value = column.Name
Next
Dim rowIndex = 2
For Each row As DataGridViewRow In DataGridView1.Rows
If Not row.IsNewRow Then
For colIndex As Integer = 0 To DataGridView1.Columns.Count - 1
worksheet.Cells(rowIndex, colIndex + 1).Value = row.Cells(colIndex).Value.ToString
Next
End If
rowIndex += 1
Next
希望这可以帮助。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.