copyrange,copyrows,copycolumn如何从一个表复制到另一个表中？

我想从一个 表中复制数据到另一个表中，可是copyrange,copyrows,copycolumn方法都是在一个表中复制，如何从一个表复制到另一个表中？

回复 1楼cure_shy的帖子

可以实现不同表之间的格式及数据复制。请参考附件 Demo：

12308.zip (65.65 KB, 下载次数: 1831)

2014-4-4 10:00 上传

点击文件名下载附件

关键代码：

1. 
   
2.             this.fpSpread1.Sheets[0].ClipboardCopy(new CellRange(3,1,1,3));
   
3. 
   
4.             this.fpSpread1.ActiveSheetIndex = 1;
   
5.             this.fpSpread1.Sheets[1].SetActiveCell(1,1);
   
6.             this.fpSpread1.Sheets[1].ClipboardPaste(ClipboardPasteOptions.All);
   

复制代码

要通过剪贴板转换，好谢谢你了

回复 3楼cure_shy的帖子

不客气

請問 用vb6 怎麼做
  fpSpread1.Sheet = 1

fpSpread1.AddSelection -1, -1, -1, -1

fpSpread1.ClipboardCopy
fpSpread1.Sheet = 2



fpSpread1.ClipboardPaste

這樣的代碼沒有實現功能

上面的代碼少了一行
調試的代碼如下:  

fpSpread1.Sheet = 1

fpSpread1.AddSelection -1, -1, -1, -1

fpSpread1.ClipboardCopy
fpSpread1.Sheet = 2


fpSpread1.AddSelection -1, -1, -1, -1
fpSpread1.ClipboardPaste

End Sub

回复 6楼wrq1312的帖子

请使用以下代码测试：

1. 
   
2. Private Sub Command1_Click()
   
3.    
   
4.     Me.fpSpread1.Sheet = 1
   
5.     Dim a As Integer
   
6.     a = Me.fpSpread1.MaxRows
   
7.    
   
8.     Dim b As Integer
   
9.     b = Me.fpSpread1.MaxCols
   
10.    
    
11.     Me.fpSpread1.AddSelection 1, 1, a, b
    
12.    
    
13.     Me.fpSpread1.ClipboardCopy
    
14.     'Me.fpSpread1.ClearSelection
    
15.         
    
16.     Me.fpSpread1.ActiveSheet = 2
    
17.     fpSpread1.ClipboardPaste
    
18.    
    
19. End Sub
    

复制代码

謝謝,
測試OK,只需將原來代碼中的.SHEET=2改為.ACTIVESHEET=2即可

回复 8楼wrq1312的帖子

恩 不客气