.net使用excel的cells对象没有value方法——学习.net的Excel工作表问题

$exception {"Public member 'Value' on type 'Range' not found."} System.MissingMemberException

代码
- 准备运行
- 问题解决
- - 1. 下载别的版本的.net框架
  - 2. 安装
  - 3. 运行

代码

Imports Excel = Microsoft.office.Interop.Excel
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '声明Excel对象
        Dim appXL As Excel.Application
        '声明工作簿对象
        Dim wbXL As Excel.Workbook
        '声明工作表对象
        Dim shXL As Excel.Worksheet
        Dim raXL As Excel.Range

        appXL = CreateObject("Excel.Application")
        appXL.Visible = True

        '添加一个工作表
        wbXL = appXL.Workbooks.Add
        shXL = wbXL.ActiveSheet


        '给工作表添加表头
        shXL.Cells(1, 1).Value = "First Name"
        shXL.Cells(1, 2).Value = "Last Name"
        shXL.Cells(1, 3).Value = "Full Name"
        shXL.Cells(1, 4).Value = "Specialization"

        '设置A1:D1加粗，垂直居中
        With shXL.Range("A1", "D1")
            .Font.Bold = True
            .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
        End With

        '创建一个数组作为表格中的值去填充
        Dim students(5, 2) As String
        students(0, 0) = "Zara"
        students(0, 1) = "Ali"
        students(1, 0) = "NuHa"
        students(1, 1) = "Ali"
        students(2, 0) = "Arilia"
        students(2, 1) = "RamKumar"
        students(3, 0) = "Rita"
        students(3, 1) = "Jones"
        students(4, 0) = "Umme"
        students(4, 1) = "Ayman"

        '把上述学生数组的姓和名填入表格A2:B6
        shXL.Range("A2", "B6").Value = students

        '用类似的格式填充C2:C6
        raXL = shXL.Range("C2", "C6")
        raXL.Formula = "=A2 & "" "" & B2"

        '填充D2:D6的值
        With shXL
            .Cells(2, 4).Value = "Biology"
            .Cells(3, 4).Value = "Mathmematics"
            .Cells(4, 4).Value = "Pyhsics"
            .Cells(5, 4).Value = "Mathmematics"
            .Cells(6, 4).Value = "Arabic"

        End With

        '自动调整列A:D
        raXL = shXL.Range("A1", "D1")
        raXL.EntireColumn.AutoFit()

        '确保表格是可见的，且能被用户控制
        appXL.Visible = True
        appXL.UserControl = True

        '相关的对象引用
        raXL = Nothing
        shXL = Nothing
        wbXL = Nothing
        appXL.Quit()
        appXL = Nothing
        Exit Sub

Err_Handler:
        MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)

    End Sub
End Class

窗体很简单，就是一个按钮触发
在这里插入图片描述