代码

Imports Excel = Microsoft.office.Interop.Excel
Public Class Form1Private 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.WorksheetDim raXL As Excel.RangeappXL = CreateObject("Excel.Application")appXL.Visible = True'添加一个工作表wbXL = appXL.Workbooks.AddshXL = 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.xlVAlignCenterEnd With'创建一个数组作为表格中的值去填充Dim students(5, 2) As Stringstudents(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:B6shXL.Range("A2", "B6").Value = students'用类似的格式填充C2:C6raXL = 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:DraXL = shXL.Range("A1", "D1")raXL.EntireColumn.AutoFit()'确保表格是可见的，且能被用户控制appXL.Visible = TrueappXL.UserControl = True'相关的对象引用raXL = NothingshXL = NothingwbXL = NothingappXL.Quit()appXL = NothingExit SubErr_Handler:MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)End Sub
End Class

窗体很简单，就是一个按钮触发

准备运行

报错，发现是.value发现没有找到，搜了一顿之后发现，可能是.net框架的问题，因为我就在开始建项目的时候，.net框架5.0后面括号里面显示不支持。当时也不知道那是个啥，直接就下一步了，没想到这里挖坑了。

问题解决

1. 下载别的版本的.net框架

我下载了一个4.8.1版本的和6.0版本的，其实下载一个就好了。

2. 安装

等待安装之后，我本来想直接在项目——右键属性——应用程序——目标框架，里面去选择我刚刚安装的，但是我的里面就只有5.0和3.1，还都显示不支持（下图是我安装之后重新新建了一个才出来的）

3. 运行

运行结果很成功