[Q&A] 类Range的PasteSpecial方法无效

环境说明：

VS2013(C#) + Office2013

Bug说明：

range1.Copy(Type.Missing);

range2.PasteSpecial(Excel.XlPasteType.xlPasteValues, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, false, false);

其中 range1 和 range2 来自两个 Excel.Applicaton，即想从一个 Excel.Applicaton1 中拷贝数据到另一个 Excel.Applicaton2 中，会出现“类 Range 的 PasteSpecial 方法无效”的异常；（在 C# 中通过 Excel.Application 可以 New 出来不同线程的 Excel 进程，然后各自处理数据）

参考解决方法：

先从 Excel.Applicaton1 的录制宏模拟该操作，然后根据宏代码（VBA）来调整代码；

在源 Excel.Application1 中进行拷贝的宏代码：

Sub 宏2()
    Range("F11:J11").Select
    Application.CutCopyMode = False
    Selection.Copy
End Sub

然后在另一个 Excel.Applicaton2 中粘贴的宏代码：

Sub 宏2()
    Range("G13").Select
    ActiveSheet.PasteSpecial Format:="文本", Link:=False, DisplayAsIcon:=False
End Sub

在粘贴时会弹出提示框：

注意，如果是在同一个 Excel 线程下打开的两个 Excel 文件，粘贴时是不会出现该提示框的，可以从任务管理器中查看是否是同一个 Excel 线程。

通过上面两端 VBA 代码可以知道，Excel 在处理不同进程之间的粘贴时，是通过 WorkSheet.PasteSpecial 方法处理的；所以在 C# 中将拷贝代码改为如下：

sourceRng.Copy();
targetRng.Select();
m_TargetSheet.PasteSpecial("文本", false, false);

即先对数据源 Range 进行 Copy，然后选择要粘贴的 Range，再进行粘贴。

转载于:https://www.cnblogs.com/memento/p/4228655.html