如何由 A 栏 复制到 C 栏, 包含格式, 表头, 方程式, 但不包含资料?

如何由 A 栏 复制到 C 栏, 包含格式, 表头, 方程式, 但不包含资料?
我用的是 spread 5
用 copyrange 可以复制，但不包括格式及表头
fpSpread_Sheet1.CopyRange(0,0,0,6,101,6,False)

thanks!

rkk 你好

首先要和你确认一下，你使用的是Spread for WinForms还是Spread for ASP.NET，因为，针对不同产品有不同的发帖区。

是 spread for WinForms, 谢谢!

回复 3楼rkk的帖子

rkk  你好

该需求需要以整列为单位进行复制，代码如下：

1.     SelectionUnit unit = fpSpread1.ActiveSheet.SelectionUnit;
   
2.     fpSpread1.ActiveSheet.SelectionUnit = SelectionUnit.Column;
   
3.     fpSpread1.ActiveSheet.ClearSelection();
   
4.     fpSpread1.ActiveSheet.AddSelection(0, 0, 101, 6);
   
5.     fpSpread1.ActiveSheet.ClipboardCopy();
   
6.     fpSpread1.ActiveSheet.ClearSelection();
   
7.     fpSpread1.ActiveSheet.AddSelection(0, 6, 101, 6);
   
8.     fpSpread1.ActiveSheet.ClipboardPaste();
   
9.     fpSpread1.ActiveSheet.ClearSelection();

复制代码

我都找到复制表头的方式，同你的一样，但仍不能做到清除数据. 测试加入 ClearSelection() 都是没有作用. 因 旧栏位里是有数据存在的. 以下为我的代码

       fpSpreadSAM_Sheet1.SelectionUnit = FarPoint.Win.Spread.Model.SelectionUnit.Column
        fpSpreadSAM.ActiveSheet.AddSelection(0, 6 - 1, 1, 6)
        fpSpreadSAM.ActiveSheet.ClipboardCopy()
        fpSpreadSAM.ActiveSheet.ClearSelection()

        fpSpreadSAM.ActiveSheet.AddSelection(0, 24 - 1, 1, 6)
        fpSpreadSAM.ActiveSheet.ClipboardPaste()
        fpSpreadSAM.ActiveSheet.ClearSelection()
        fpSpreadSAM_Sheet1.SelectionUnit = FarPoint.Win.Spread.Model.SelectionUnit.Cell

回复 5楼rkk的帖子

1.     SelectionUnit unit = fpSpread1.ActiveSheet.SelectionUnit;
   
2.     fpSpread1.ActiveSheet.SelectionUnit = SelectionUnit.Column;
   
3.     fpSpread1.ActiveSheet.ClearSelection();
   
4.     fpSpread1.ActiveSheet.AddSelection(0, 0, 101, 6);
   
5.     fpSpread1.ActiveSheet.ClipboardCopy();
   
6.     fpSpread1.ActiveSheet.ClearSelection();
   
7.     fpSpread1.ActiveSheet.AddSelection(0, 6, 101, 6);
   
8.     fpSpread1.ActiveSheet.ClipboardPaste();
   
9.     fpSpread1.ActiveSheet.ClearRange(0, 6, 101, 6, true);
   
10.     fpSpread1.ActiveSheet.ClearSelection();

复制代码

测试后， 虽可清除，但同时会将格式及方程式清除，同 DataOnly=True 有出入呀...
fpSpreadSAM.ActiveSheet.ClearRange(0, 24 - 1, 101, 6, True)

Hi dof,
   已解决此问题，加多句 fpSpreadSAM.ActiveSheet.ClipboardPaste(FarPoint.Win.Spread.ClipboardCopyOptions.Formulas)  即可. 将清除的 Formulas 填回. 以下为完成的代码.
Thanks!


        '设定可复制表头
        fpSpreadSAM.ClipboardOptions = ClipboardOptions.ColumnHeaders

        fpSpreadSAM.ActiveSheet.SelectionUnit = SelectionUnit.Column
        fpSpreadSAM.ActiveSheet.ClearSelection()
        fpSpreadSAM.ActiveSheet.AddSelection(0, 5, 101, 6)
        fpSpreadSAM.ActiveSheet.ClipboardCopy()
        fpSpreadSAM.ActiveSheet.ClearSelection()

        fpSpreadSAM.ActiveSheet.AddSelection(0, 23, 101, 6)
        fpSpreadSAM.ActiveSheet.ClipboardPaste()
        fpSpreadSAM.ActiveSheet.ClearRange(0, 23, 101, 6, True)
        fpSpreadSAM.ActiveSheet.ClipboardPaste(FarPoint.Win.Spread.ClipboardCopyOptions.Formulas)   '只复制方程式
        fpSpreadSAM.ActiveSheet.ClearSelection()
        fpSpreadSAM.ActiveSheet.SelectionUnit = SelectionUnit.Cell

        '设定回不可复制表头
        fpSpreadSAM.ClipboardOptions = ClipboardOptions.NoHeaders

  非常感谢你分享完整的代码

都要多谢 dof 的帮助...