vb.net - 为什么设置excel的值单元格在vb.net中不起作用？

Question

我通过 vb.net 为 excel 创建了一个示例插件：

Imports System.Runtime.InteropServices
Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim excelApp As Excel.Application
            excelApp = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application)
            ' Dim xlwb As Excel.Workbook = Globals.ThisAddIn.Application.Worksheets.Add()
            ' dim sheet As Excel.Worksheet = xlwb.ActiveSheet
            Dim sheet As Excel.Worksheet
            sheet = excelApp.ActiveSheet
            sheet.Range("A1").Value = "OK"

            Me.Close()

        End Sub
    End Class

我为 excel 的单元格设置了值： sheet.Range("A1").Value = "OK"但它没有设置。为什么？怎么修？

Answer 1

与其将工作表声明为变量，不如直接根据其名称调用工作表。例如，

Sheets("Sheet1").Range("A1").Value = "OK"

这样你就不会有多个工作表变量。

我还应该补充一点，这意味着您必须激活正确的工作簿。

希望这可以帮助

格雷格