VB.NET实现DataGridView数据自动粘贴至Excel的技术求助

你已经完成了核心的复制和Excel启动步骤，只差最后几步自动粘贴的逻辑啦！我帮你调整了代码，不仅能实现自动粘贴，还优化了工作簿创建方式（毕竟你要的是新建工作簿，不是打开已有文件），同时补上了资源释放的细节，避免Excel进程残留。

修正后的完整代码 #

Imports Microsoft.Office.Interop.Excel
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

' 窗体类内的实现方法
Private Sub CopyDgvToNewExcel()
    Dim objExcel As Application = Nothing
    Dim objWB As Workbook = Nothing
    Dim objWS As Worksheet = Nothing
    Dim strTitle As String = "操作提示"

    Try
        ' 1. 复制DataGridView数据到剪贴板
        Me.DataGridView1.SelectAll()
        Dim clipboardContent As IDataObject = Me.DataGridView1.GetClipboardContent()
        If clipboardContent Is Nothing Then
            MsgBox("未获取到可复制的数据", MsgBoxStyle.Exclamation, strTitle)
            Return
        End If
        Clipboard.SetDataObject(clipboardContent)

        ' 2. 创建Excel应用并新建空白工作簿（替换原Open方法）
        objExcel = New Application()
        objExcel.Visible = True
        objWB = objExcel.Workbooks.Add() ' 生成新的空白工作簿
        objWS = objWB.ActiveSheet ' 获取默认的第一个工作表

        ' 3. 自动粘贴到A1单元格（无需手动操作）
        ' 方式1：粘贴全部内容（含格式、公式）
        objWS.Range("A1").PasteSpecial(PasteType.xlPasteAll)

        ' 方式2：仅粘贴单元格值（适合不需要格式的场景）
        ' objWS.Range("A1").PasteSpecial(PasteType.xlPasteValues)

        ' 可选：自动调整列宽适配内容
        objWS.UsedRange.Columns.AutoFit()

        MsgBox("数据已自动粘贴到Excel", MsgBoxStyle.Information, strTitle)
    Catch ex As Exception
        MsgBox($"操作出错：{ex.Message}", MsgBoxStyle.Exclamation, strTitle)
    Finally
        ' 释放COM对象，防止Excel进程后台残留
        If objWS IsNot Nothing Then
            Marshal.ReleaseComObject(objWS)
        End If
        If objWB IsNot Nothing Then
            ' 如需自动保存，取消注释下面一行（替换为你的保存路径）
            ' objWB.SaveAs("C:\YourFolder\NewExcelFile.xlsx")
            Marshal.ReleaseComObject(objWB)
        End If
        If objExcel IsNot Nothing Then
            ' 如需自动关闭Excel，取消注释下面一行
            ' objExcel.Quit()
            Marshal.ReleaseComObject(objExcel)
        End If
    End Try
End Sub

关键调整说明 #

• 工作簿创建修正：用Workbooks.Add()生成全新空白工作簿，替代原有的Open("Test.xls")，完全匹配你“新建工作簿”的需求。
• 自动粘贴逻辑：通过Range("A1").PasteSpecial()直接调用Excel的粘贴功能，无需用户手动操作。提供两种粘贴模式，你可以根据需求选择。
• 资源释放：新增Finally块释放所有Excel相关的COM对象，避免程序关闭后Excel进程仍在后台占用内存。
• 有效性检查：提前判断剪贴板内容是否为空，减少异常概率。

注意事项 #

1. 确保项目已引用Microsoft.Office.Interop.Excel组件（右键项目→添加→引用→COM→找到对应版本的Microsoft Excel Object Library）。
2. 如果需要自动保存工作簿，取消注释objWB.SaveAs()并替换为合法的本地路径，注意要有写入权限。
3. 若不需要Excel保持打开状态，取消注释objExcel.Quit()即可让程序自动关闭Excel。

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