VB.net多个工作簿合并为一个工作簿
时间: 2023-06-20 12:04:02 浏览: 135
ASP.NET 导出EXCEL Aspose.Cells
5星 · 资源好评率100%
在 VB.net 中,可以使用 Microsoft Office Interop 库来操作 Excel 文件,实现多个工作簿合并为一个工作簿。以下是一个简单的示例代码:
```vb.net
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'创建Excel对象
Dim excelApp As New Excel.Application
'打开第一个工作簿
Dim workbook1 As Excel.Workbook = excelApp.Workbooks.Open("C:\Workbook1.xlsx")
'打开第二个工作簿
Dim workbook2 As Excel.Workbook = excelApp.Workbooks.Open("C:\Workbook2.xlsx")
'将第二个工作簿中的所有工作表复制到第一个工作簿中
For Each worksheet As Excel.Worksheet In workbook2.Worksheets
worksheet.Copy(After:=workbook1.Worksheets(workbook1.Worksheets.Count))
Next
'保存合并后的工作簿
workbook1.SaveAs("C:\MergedWorkbook.xlsx")
'关闭工作簿
workbook1.Close()
workbook2.Close()
'关闭Excel应用程序
excelApp.Quit()
End Sub
End Class
```
以上代码打开两个工作簿,将第二个工作簿中的所有工作表复制到第一个工作簿中,最后将合并后的工作簿保存到指定路径,并关闭 Excel 应用程序。需要注意的是,使用 Microsoft Office Interop 库需要在项目中引用 Microsoft Excel 对象库。
阅读全文