VB.NET 如何将某个Excel的工作表中复制到另一个的Excel中的工作表中https://bbs.youkuaiyun.com/topics/392861034

原创于 2023-09-03 08:36:11 发布 · 1.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#.net #excel

该代码展示了如何使用VBA在Excel中通过Microsoft.Office.Interop.Excel库打开两个工作簿，然后复制第一个工作簿的Sheet1到第二个工作簿的Sheet1之后，并保存和关闭应用程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

参考http://share.freesion.com/306372/可以实现直接拷贝指定表

 Private Sub Excel复制工作簿()
        Dim myExcelApp As New Microsoft.Office.Interop.Excel.Application

        myExcelApp.Workbooks.Open(System.Environment.CurrentDirectory + "\\测试用例.xlsx", Type.Missing)
        myExcelApp.Workbooks.Open(System.Environment.CurrentDirectory + "\\复制用例.xlsx", Type.Missing)

        Dim worksheet1 As Microsoft.Office.Interop.Excel.Worksheet = CType(myExcelApp.Workbooks(1).Worksheets(1),  _
                                                                            Microsoft.Office.Interop.Excel.Worksheet)
        Dim worksheet2 As Microsoft.Office.Interop.Excel.Worksheet = CType(myExcelApp.Workbooks(2).Worksheets(1),  _
                                                                            Microsoft.Office.Interop.Excel.Worksheet)
        worksheet1.Copy(After:=worksheet2)

        myExcelApp.Workbooks(2).Save()
        myExcelApp.Quit()
        myExcelApp = Nothing

    End Sub