当使用VB.Net进行Excel的读写操作时，可以使用Microsoft.Office.Interop.Excel库来实现与Excel的交互。

准备工作

首先通过NuGet安装Microsoft.Office.Interop.Excel

读取Excel文件

1，声明Excel对象：

• 在你的VB.Net代码中，你需要声明一些对象来代表Excel应用程序、工作簿和工作表。

Dim excelApp As Microsoft.Office.Interop.Excel.Application  
Dim workbook As Microsoft.Office.Interop.Excel.Workbook  
Dim worksheet As Microsoft.Office.Interop.Excel.Worksheet

2，初始化Excel对象：

• 实例化Excel应用程序对象，并打开你的Excel文件。

excelApp = New Microsoft.Office.Interop.Excel.Application  
workbook = excelApp.Workbooks.Open("Excel路径")  
worksheet = workbook.Sheets("Sheet1") ' 获取第一个工作表

3，读取数据：

• 你可以通过Range或Cells属性来读取单元格中的数据。

Dim cellValue As String  
cellValue = worksheet.Range("A1").Value.ToString() ' 读取A1单元格的值  
' 或者  
cellValue = worksheet.Cells(1, 1).Value.ToString() ' 使用Cells方法，索引从1开始

4，关闭Excel对象：

• 在完成读取后，确保关闭工作簿和Excel应用程序。

workbook.Close(SaveChanges:=False) ' 不保存更改  
excelApp.Quit()  
' 释放COM对象（可选，但推荐）  
System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)  
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)  
excelApp = Nothing  
GC.Collect()
GC.WaitForPendingFinalizers()

写入Excel文件

1. 打开Excel文件（如果之前没有打开）：

重复读取Excel文件的步骤1和2。

2. 写入数据：

使用Range或Cells属性来写入数据到单元格中。

worksheet.Range("A1").Value = "Hello, Excel!" ' 写入A1单元格  
' 或者  
worksheet.Cells(1, 1) = "Hello, Excel!" ' 使用Cells方法

3. 保存并关闭Excel对象：

• 在完成写入后，保存工作簿并关闭Excel应用程序。

workbook.Save() ' 保存更改  
workbook.Close(SaveChanges:=True) ' 保存更改并关闭工作簿  
excelApp.Quit()