VB.NET 如何将某个Excel的工作表中复制到另一个的Excel中的工作表中

[qq_21681433]

如题，我想把选中的Excel工作表的参数，当做输入参数，复制到另一个Excel 中指定的Sheet中，可不可以整体复制？ 就像IO.Fiel.copy 那样，但是只是复制sheet，不是复制整个文件。。求大神赐教

[qq_21681433]

引用 4 楼 智者知已应修善业 的回复:

VB的确实还没写过,有C#的例子可以参考,所幸的是C#与VB.NET函数名称基本一样,只是语句写法不同,这是网址你先参考 一下,待空闲再弄VB的例子.
https://blog.csdn.net/xianfajushi/article/details/11999461

C#的语法不太明白，还请大神帮我看一看怎么用VB.net实现

[Eiceblue]

你的复制可以分为在同一个工作簿内复制和跨工作簿复制，你可以参考下Spire.XLS 的工作表复制方法：https://www.e-iceblue.cn/spirexls/copy-excel-worksheet.html

[qq_21681433]

引用 6 楼 Eiceblue 的回复:

你的复制可以分为在同一个工作簿内复制和跨工作簿复制，你可以参考下Spire.XLS 的工作表复制方法：https://www.e-iceblue.cn/spirexls/copy-excel-worksheet.html

我是跨工作簿复制，这些代码在VB.NET 中不行啊，大神帮我看看VB.net 怎么实现吧，谢谢！

[智者知已应修善业]

只要你想得到的都可以编程实现,先写出来,有问题再来讨论.

[qq_21681433]

引用 1 楼 智者知已应修善业 的回复:

只要你想得到的都可以编程实现,先写出来,有问题再来讨论.

我能想到的最笨的方法就是开两张表，复制每个单元格，但是总是报错 、
System.Runtime.InteropServices.COMException:“异常来自 HRESULT:0x800A03EC”

代码如下：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim Ex As Excel.Application
Dim ExSheet As Excel.Worksheet
Ex = New Excel.Application
Dim Exbook As Excel.Workbook = Ex.Workbooks.Open(path1)
ExSheet = Exbook.Sheets("sheet1")
ExSheet.Activate()
Ex.Visible = False


Dim Ex1 As Excel.Application
Dim ExSheet1 As Excel.Worksheet
Ex1 = New Excel.Application
Dim Exbook1 As Excel.Workbook = Ex1.Workbooks.Open(path11)
ExSheet1 = Exbook1.Sheets("参数规格")
ExSheet1.Activate()
Ex1.Visible = False

For i = 0 To 6000
For j = 0 To 6

ExSheet.Cells(i, j) = ExSheet1.Cells(i, j)
Next
Next

Ex.Quit()
Ex = Nothing

Ex1.Quit()
Ex1 = Nothing


End Sub

[nuclear2011]

https://stackoverflow.com/questions/3808368/c-sharp-how-to-copy-a-single-excel-worksheet-from-one-workbook-to-another

[智者知已应修善业]

VB的确实还没写过,有C#的例子可以参考,所幸的是C#与VB.NET函数名称基本一样,只是语句写法不同,这是网址你先参考 一下,待空闲再弄VB的例子. https://blog.csdn.net/xianfajushi/article/details/11999461

[智者知已应修善业]

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