使用vba sendkey将vb.net数据格值复制到excel

Dim excelApp As New Excel.Application
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\path\to\your\excel.xlsx")
Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")

Dim value As String = YourDataGridView.Rows(rowIndex).Cells(columnIndex).Value.ToString()
Clipboard.SetText(value)

worksheet.Range("A1").Select() ' 选择目标单元格
excelApp.ActiveSheet.Paste() ' 粘贴剪贴板内容

workbook.Save()
workbook.Close()
excelApp.Quit()

ReleaseObject(worksheet)
ReleaseObject(workbook)
ReleaseObject(excelApp)

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