將值寫入Excel單元格

Question

我的目標是創建一個帶有按鈕的簡單功能區，該按鈕將單元格（A1）的值設置為“ Hello World！”。 在工作表中。

我有這段代碼，但是它返回一個錯誤，我不知道自己在做什么錯。

錯誤的屏幕截圖：

碼：

Imports Microsoft.Office.Tools.Ribbon
Imports Microsoft.Office.Interop.Excel

Public Class Ribbon1

    Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click
        Dim xlApp As New Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet

        xlBook = xlApp.ActiveWorkbook
        xlSheet = xlBook.ActiveSheet

        With xlSheet
            .Range("A1").Value = "Hello World!"
        End With
    End Sub

End Class

Answer 1

您需要先添加一個新Workbook然后才能對其執行任何操作：

xlApp.Workbooks.Add()

我還將考慮聲明要使用的Range ：

Dim xlRange As Excel.Range = xlSheet.Range("A1")
xlRange.Value = "Hello World!"

您的代碼將類似於以下內容：

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add()
Dim xlSheet As Excel.Worksheet = CType(xlBook.ActiveSheet, Excel.Worksheet)

Dim xlRange As Excel.Range = xlSheet.Range("A1")
xlRange.Value = "Hello World!"

還請打開Option Strict ：

將隱式數據類型轉換限制為僅擴大轉換，不允許后期綁定，並禁止導致對象類型的隱式類型。