Imports Spire.Xls Namespace CopyWorksheet_XLS Class Program Private Shared Sub Main(ByVal args As String()) Dim workbook1 As Workbook = New Workbook() workbook1.LoadFromFile("sample1.xlsx") Dim sheet1 As Worksheet = workbook1.Worksheets(0) Dim workbook2 As Workbook = New Workbook() workbook2.LoadFromFile("sample2.xlsx") Dim sheet2 As Worksheet = workbook2.Worksheets.AddCopy(sheet1) sheet2.Name = "copiedsheet" workbook2.SaveToFile("newsample2.xlsx") End Sub End Class End Namespace 用的Spire.xls.dll来复制,带图片的工作表复制后没问题。参考:原文。
Imports Spire.Xls Namespace CopyWorksheet_XLS Class Program Private Shared Sub Main(ByVal args As String()) Dim workbook1 As Workbook = New Workbook() workbook1.LoadFromFile("sample1.xlsx") Dim sheet1 As Worksheet = workbook1.Worksheets(0) Dim workbook2 As Workbook = New Workbook() workbook2.LoadFromFile("sample2.xlsx") Dim sheet2 As Worksheet = workbook2.Worksheets.AddCopy(sheet1) sheet2.Name = "copiedsheet" workbook2.SaveToFile("newsample2.xlsx") End Sub End Class End Namespace
16,554
社区成员
110,527
社区内容
加载中
试试用AI创作助手写篇文章吧