vb.net 向打开的Excel中光标位置输出值

你可以使用 Excel Interop 库来实现这个功能。以下是一个示例代码，可以向打开的 Excel 中光标位置输出值：

' 获取当前活动的 Excel 应用程序
Dim excelApp As Excel.Application = Marshal.GetActiveObject("Excel.Application")

' 获取当前选定的单元格
Dim selectedCell As Excel.Range = excelApp.ActiveWindow.RangeSelection

' 将值输出到选定的单元格
selectedCell.Value = "Hello, World!"

在上述代码中，我们首先获取当前活动的 Excel 应用程序，然后获取当前选定的单元格。最后，我们将字符串 "Hello, World!" 输出到选定的单元格中。你可以根据自己的需求修改这个代码，实现更加复杂的功能。

相关问题

vb.net 判断是否存在打开的Excel文件 然后向打开的Excel中光标位置输出值

可以使用以下代码判断是否存在打开的Excel文件并向打开的Excel中光标位置输出值：

Public Sub WriteToExcel()
    ' 创建Excel对象
    Dim excelApp As Excel.Application = New Excel.Application
    Dim workbook As Excel.Workbook = Nothing
    Dim worksheet As Excel.Worksheet = Nothing

    Try
        ' 循环遍历所有打开的Excel文件
        For Each wb As Excel.Workbook In excelApp.Workbooks
            ' 判断当前工作簿是否包含活动窗口
            If wb.Windows.Count > 0 AndAlso wb.Windows(1).Active Then
                ' 获取当前活动窗口所在的工作表
                workbook = wb
                worksheet = workbook.ActiveSheet
                Exit For
            End If
        Next

        ' 如果当前没有活动窗口，则创建一个新的工作簿和工作表
        If workbook Is Nothing Then
            workbook = excelApp.Workbooks.Add()
            worksheet = workbook.ActiveSheet
        End If

        ' 将值写入Excel中光标位置的单元格
        worksheet.ActiveCell.Value = "Hello World"

        ' 保存工作簿并关闭Excel应用程序
        workbook.Save()
        workbook.Close()
        excelApp.Quit()

    Catch ex As Exception
        ' 异常处理
        Console.WriteLine(ex.Message)

    Finally
        ' 释放Excel对象
        ReleaseObject(worksheet)
        ReleaseObject(workbook)
        ReleaseObject(excelApp)
    End Try
End Sub

' 释放COM对象
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

该程序会遍历所有打开的Excel文件，查找包含活动窗口的工作簿和工作表。如果找到了活动窗口，则将值写入Excel中光标位置的单元格。如果没有找到活动窗口，则创建一个新的工作簿和工作表，并将值写入Excel中光标位置的单元格。最后，保存工作簿并关闭Excel应用程序。