[Q&A][Excel] 类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线程:

image

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

sourceRng.Copy();

targetRng.Select();

m_TargetSheet.PasteSpecial("文本", false, false);

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

你可能感兴趣的:(Excel)