[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 文件,粘贴时是不会出现该提示框的,可以从任务管理器中查看是否是同一个 Excel 线程。

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

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

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

posted @ 2015-01-16 14:31  01码匠  阅读(11267)  评论(6编辑  收藏  举报