VB.net文件夹下多个工作簿合并为一个工作簿

可以使用VB.net中的Microsoft.Office.Interop.Excel来合并多个工作簿为一个工作簿。

以下是一个简单的示例代码：

Imports Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim xlApp As New Application
        Dim xlWorkbooks As Workbooks = xlApp.Workbooks
        Dim xlWorkbook As Workbook = xlWorkbooks.Add
        Dim xlSheets As Sheets = xlWorkbook.Sheets
        Dim xlSheet As Worksheet = xlSheets(1)

        '设置合并后工作簿的第一行为标题行
        xlSheet.Cells(1, 1).Value = "工作簿1的标题"
        xlSheet.Cells(1, 2).Value = "工作簿1的数据"
        xlSheet.Cells(1, 3).Value = "工作簿2的标题"
        xlSheet.Cells(1, 4).Value = "工作簿2的数据"

        '打开工作簿1并复制数据到合并后的工作簿
        Dim xlWorkbook1 As Workbook = xlWorkbooks.Open("工作簿1的路径")
        Dim xlSheet1 As Worksheet = xlWorkbook1.Sheets(1)
        xlSheet1.Range("A2:B10").Copy()
        xlSheet.Range("A2").PasteSpecial(XlPasteType.xlPasteValues)

        '打开工作簿2并复制数据到合并后的工作簿
        Dim xlWorkbook2 As Workbook = xlWorkbooks.Open("工作簿2的路径")
        Dim xlSheet2 As Worksheet = xlWorkbook2.Sheets(1)
        xlSheet2.Range("A2:B10").Copy()
        xlSheet.Range("C2").PasteSpecial(XlPasteType.xlPasteValues)

        '保存合并后的工作簿
        xlWorkbook.SaveAs("合并后的工作簿的路径")
        xlWorkbook.Close()
        xlApp.Quit()

        '释放资源
        ReleaseObject(xlSheet2)
        ReleaseObject(xlWorkbook2)
        ReleaseObject(xlSheet1)
        ReleaseObject(xlWorkbook1)
        ReleaseObject(xlSheet)
        ReleaseObject(xlSheets)
        ReleaseObject(xlWorkbook)
        ReleaseObject(xlWorkbooks)
        ReleaseObject(xlApp)

        MessageBox.Show("合并完成")
    End Sub

    Private Sub ReleaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class

在上面的代码中，我们首先创建一个新的工作簿，然后为其添加一个工作表。我们将合并后的工作簿的第一行设置为标题行，并在第一列和第三列中分别插入工作簿1和工作簿2的标题。

接下来，我们打开工作簿1和工作簿2，并将其数据复制到合并后的工作簿的相应位置。最后，我们保存合并后的工作簿，并关闭所有打开的工作簿和Excel应用程序。

请注意，在代码末尾，我们使用ReleaseObject()方法释放所有Excel对象的资源，以避免内存泄漏。