将DataGridView当前行复制到Excel的VB.NET代码语法问题求助

原代码核心问题 #

• COM对象获取无容错：GetObject(, Constants.ExcelApp)仅能获取已经启动的Excel实例，如果Excel未运行、Products工作簿未打开，会直接抛出运行时错误
• 索引规则误用：.NET中DataGridView的Cells集合从0开始计数，你写的Cells(1 To 12)是VBA语法，不适用于WinForm的DataGridView对象，无法直接批量截取12个单元格内容
• 值类型不匹配：DataGridViewRow.Cells无法直接批量赋值给Excel Range，需要先转换为一维数组才能匹配单行Range的赋值要求
• 无COM对象释放逻辑：代码运行后会残留Excel后台进程，占用系统资源

修复后可用代码 #

' 项目需先引用Microsoft.Office.Interop.Excel程序集，可通过NuGet安装对应版本
Imports Excel = Microsoft.Office.Interop.Excel
' 如需使用Marshal释放COM对象，需额外引用Imports System.Runtime.InteropServices

Public Sub CopyRowToExcel()
    Dim xlApp As Excel.Application = Nothing
    Dim WB As Excel.Workbook = Nothing
    Dim WS As Excel.Worksheet = Nothing
    Dim LR As Integer
    Dim RowNum As Integer
    ' 0-11共12个元素，对应要复制的12列数据
    Dim copyData(11) As Object

    Try
        ' 优先获取已运行的Excel实例，不存在则新建
        Try
            xlApp = GetObject(, "Excel.Application")
        Catch ex As Exception
            xlApp = New Excel.Application()
        End Try
        xlApp.Visible = True ' 不需要显示Excel可设为False

        ' 优先取已打开的Products工作簿，不存在则从路径打开
        Try
            WB = xlApp.Workbooks("Products.xlsx") ' 名称和Excel中显示的工作簿名一致，需带后缀
        Catch ex As Exception
            ' 替换为你本地Products.xlsx的实际全路径
            WB = xlApp.Workbooks.Open("C:\你的文件路径\Products.xlsx")
            ' 如果不需要使用已有文件，也可以直接新建工作簿：WB = xlApp.Workbooks.Add()
        End Try

        WS = CType(WB.Sheets("DataSheet"), Excel.Worksheet)
        LR = WS.Range("A" & WS.Rows.Count).End(Excel.XlDirection.xlUp).Row + 1
        RowNum = DataGridView1.CurrentRow.Index

        ' 循环读取当前行12列的值到数组
        For i = 0 To 11
            copyData(i) = DataGridView1.Rows(RowNum).Cells(i).Value
        Next

        ' 批量赋值到Excel行
        WS.Range("A" & LR & ":L" & LR).Value = copyData

        ' 可选：自动保存修改
        WB.Save()

    Catch ex As Exception
        MsgBox("操作失败：" & ex.Message)
    Finally
        ' 释放COM对象，避免残留Excel后台进程
        If Not IsNothing(WS) Then Marshal.ReleaseComObject(WS)
        If Not IsNothing(WB) Then Marshal.ReleaseComObject(WB)
        If Not IsNothing(xlApp) Then Marshal.ReleaseComObject(xlApp)
    End Try
End Sub

额外注意事项 #

• 如果DataGridView列顺序和你要写入Excel的列顺序不一致，调整循环中Cells的索引即可
• 如果不需要操作已存在的Products工作簿，直接新建工作簿写入的逻辑会更简单，容错性更高

内容的提问来源于stack exchange，提问作者Patrick