16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim app As New Excel.Application
Dim book As Workbook = app.Workbooks.Add
Dim sheet As Worksheet = CType(book.Worksheets(1), Worksheet)
sheet.Range("A1").Value = 1
sheet.Range("A2").Value = 2
sheet.Range("A3").Formula = "=A1+A2"
Dim value As Integer = CInt(sheet.Range("A3").Value)
Console.WriteLine(value)
book.Close(False)
app.Quit()
End Sub